kalarm/kalarm-1.2.1-general.pl

   1 #!/usr/bin/perl -w
   2 # Convert KAlarm pre-1.2.1 General section settings.
   3
   4 use strict;
   5
   6 my $haveEmailFrom = 0;
   7 my $haveEmailUseCtrlCentre = 0;
   8 my $haveEmailBccUseCtrlCentre = 0;
   9 my $emailUseCtrlCentre    = 1;    # default = true
  10 my $emailBccUseCtrlCentre = 1;    # default = true
  11 my $emailAddress;
  12 my $emailBccAddress;
  13
  14 while (<>)
  15 {
  16         chomp;
  17         if (/^EmailFrom=(.*)$/) {
  18                 $haveEmailFrom = 1;
  19         }
  20         elsif (/^EmailUseControlCenter=(.*)$/) {
  21                 $haveEmailUseCtrlCentre = 1;
  22                 $emailUseCtrlCentre = ($1 eq "true");
  23         }
  24         elsif (/^EmailBccUseControlCenter=(.*)$/) {
  25                 $haveEmailBccUseCtrlCentre = 1;
  26                 $emailBccUseCtrlCentre = ($1 eq "true");
  27         }
  28         elsif (/^EmailAddress=(.*)$/) {
  29                 $emailAddress = $1;
  30         }
  31         elsif (/^EmailBccAddress=(.*)$/) {
  32                 $emailBccAddress = $1;
  33         }
  34 }
  35
  36 if (!$haveEmailFrom && $haveEmailUseCtrlCentre)
  37 {
  38         my $bccUseCC = $haveEmailBccUseCtrlCentre ? $emailBccUseCtrlCentre : $emailUseCtrlCentre;
  39         print "EmailFrom=" . ($emailUseCtrlCentre ? "\@ControlCenter" : $emailAddress) . "\n";
  40         print "EmailBccAddress=" . ($bccUseCC ? "\@ControlCenter" : $emailBccAddress) . "\n";
  41         print "# DELETE EmailAddress\n";
  42         if ($haveEmailUseCtrlCentre) {
  43                 print "# DELETE EmailUseControlCenter\n";
  44         }
  45         if ($haveEmailBccUseCtrlCentre) {
  46                 print "# DELETE EmailBccUseControlCenter\n";
  47         }
  48 }