summaryrefslogtreecommitdiffstats
path: root/fix-webkit
blob: 813b203ed882163d5ffdf7e3daa8ec7a7272ebbf (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
#!/usr/bin/perl

use Cwd;
use Cwd 'abs_path';
use File::Basename;
use File::Path;


# Find SHA1 of commit before $subject, else empty string
sub findWebKitSHA1
{
    my ($subject) = @_;
    my @commits = `git rev-list --grep="$subject" HEAD~300..HEAD`;
    if (@commits) {
        my $commit = $commits[0];
        chomp $commit;
        $commit = `git rev-parse $commit~`;
        chomp $commit;
        return $commit;
    }
    return "";
}

my $current = dirname(abs_path($0));
$current =~ s,\\,/,g;
chdir("$current/qtwebkit");

if (!findWebKitSHA1("Removed modular references after support for the flag was removed")) {
    if (system("git am --ignore-whitespace $current/patches/qtwebkit/*.patch")) {
        print("Applying webkit patches failed, retrying...\n");
        system("git am --abort");
        system("git am --ignore-whitespace $current/patches/qtwebkit/*.patch") and die("Could not apply patches");
    }
    chdir("..");
    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");
}