fix-webkit

   1 #!/usr/bin/perl
   2
   3 use Cwd;
   4 use Cwd 'abs_path';
   5 use File::Basename;
   6 use File::Path;
   7
   8
   9 # Find SHA1 of commit before $subject, else empty string
  10 sub findWebKitSHA1
  11 {
  12     my ($subject) = @_;
  13     my @commits = `git rev-list --grep="$subject" HEAD~300..HEAD`;
  14     if (@commits) {
  15         my $commit = $commits[0];
  16         chomp $commit;
  17         $commit = `git rev-parse $commit~`;
  18         chomp $commit;
  19         return $commit;
  20     }
  21     return "";
  22 }
  23
  24 my $current = dirname(abs_path($0));
  25 $current =~ s,\\,/,g;
  26 chdir("$current/qtwebkit");
  27
  28 if (!findWebKitSHA1("Removed modular references after support for the flag was removed")) {
  29     if (system("git am --ignore-whitespace $current/patches/qtwebkit/*.patch")) {
  30         print("Applying webkit patches failed, retrying...\n");
  31         system("git am --abort");
  32         system("git am --ignore-whitespace $current/patches/qtwebkit/*.patch") and die("Could not apply patches");
  33     }
  34     chdir("..");
  35     system("git commit -a -m \"Committed Qt Modularization patches to QtWebKit.\" --author \"axis <qt-info\@nokia.com>\"") and die("Could not commit to qt5 repository");
  36 }