mother/fix-webkit


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

#!/usr/bin/perl

use Cwd;

# 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 = getcwd();
chdir("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 mother repository");
}