Remove QtMultimediaKit - all content has moved to QtMultimedia.
[mirror/qt/qt5.git] / 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 }