1 files changed, 38 insertions, 0 deletions
diff --git a/kmail/kmail-3.1-update-new-mail-notification-settings.pl b/kmail/kmail-3.1-update-new-mail-notification-settings.pl
new file mode 100755
index 000000000..61ca42464
--- /dev/null
+++ b/kmail/kmail-3.1-update-new-mail-notification-settings.pl
@@ -0,0 +1,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";