cervisia/change_colors.pl


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


while(<>)
{
    ($key)   = ($_ =~ /([^=]*)=(.*)$/);
    ($value) = ($_ =~ /^[^=]*=(.*)$/);

    if( $key eq "Conflict" and $value eq "255,100,100" )
    {
        print "# DELETE " . $key . "\n";
        print $key . "=255,130,130\n";
        next;
    }

    if( $key eq "LocalChange" and $value eq "190,190,237" )
    {
        print "# DELETE " . $key . "\n";
        print $key . "=130,130,255\n";
        next;
    }

    if( $key eq "RemoteChange" and $value eq "255,240,190" )
    {
        print "# DELETE " . $key . "\n";
        print $key . "=70,210,70\n";
        next;
    }

    print $_;
}