kmail/kmail-3.1-update-new-mail-notification-settings.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
32
33
34
35
36
37
38

#!/usr/bin/perl -w

use strict;

my $presentation = -1;
my $commandline = "";
while ( <> ) {
  chomp;
  if ( /^msgbox-on-mail/ ) {
    my ($key,$value) = split /=/;
    if( -1 == $presentation ) {
      $presentation = 0;
    }
    $presentation += 2*( $value eq "true" );
  }
  elsif ( /^exec-on-mail-cmd/ ) {
    my ($key,$value) = split /=/;
    $commandline = $value;
  }
  elsif ( /^exec-on-mail/ ) {
    my ($key,$value) = split /=/;
    if( -1 == $presentation ) {
      $presentation = 0;
    }
    $presentation += 32*( $value eq "true" );
  }
}

if ( "" ne $commandline ) {
  print "commandline=$commandline\n";
}
if ( -1 != $presentation ) {
  print "presentation=$presentation\n";
}

print "# DELETE msgbox-on-mail\n";
print "# DELETE exec-on-mail\n";
print "# DELETE exec-on-mail-cmd\n";