← Back to branch summary

~ubuntu-branches/ubuntu/natty/knemo/natty 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#!/usr/bin/perl -w

# Delete unused plotter keys

use strict;

while ( <> ) {
    next if ( /^$/ );
    if ( /^(\[.+\])$/ ) {
        my $currentGroup = $1;
        if ( $currentGroup =~ /^\[Plotter_/ ) {
            print "# DELETE ${currentGroup}BottomBar\n";
            print "# DELETE ${currentGroup}ColorBackground\n";
            print "# DELETE ${currentGroup}ColorVLines\n";
            print "# DELETE ${currentGroup}Opacity\n";
        }
    }
    next;
}