kalarm/kalarm-1.9.5-defaults.pl

   1 #!/usr/bin/perl -w
   2 # Convert pre-1.9.5 Defaults section settings.
   3
   4 use strict;
   5
   6 my $param;
   7 my $cmdLogType;
   8 my $soundType;
   9 while (<>)
  10 {
  11         chomp;
  12         # Convert KAlarm pre-1.9.5 entries
  13         if (/^DefSoundVolume=(.*)$/) {
  14                 $param = ($1 < 0) ? -1 : ($1 > 1) ? 100 : $1 * 100;
  15                 print "SoundVolume=$param\n";
  16                 print "# DELETE DefSoundVolume\n";
  17         }
  18         elsif (/^DefCmdLogType=(.*)$/) {
  19                 $cmdLogType = ($1 == 1) ? "File"
  20                             : ($1 == 2) ? "Terminal" : "Discard";
  21                 print "# DELETE DefCmdLogType\n";
  22         }
  23         elsif (/^DefRecurPeriod=(.*)$/) {
  24                 $param = ($1 == 1) ? "Login"
  25                        : ($1 == 2) ? "SubDaily"
  26                        : ($1 == 3) ? "Daily"
  27                        : ($1 == 4) ? "Weekly"
  28                        : ($1 == 5) ? "Monthly"
  29                        : ($1 == 6) ? "Yearly" : "None";
  30                 print "RecurPeriod=$param\n";
  31                 print "# DELETE DefRecurPeriod\n";
  32         }
  33         elsif (/^DefRemindUnits=(.*)$/) {
  34                 $param = ($1 == 1) ? "Days"
  35                        : ($1 == 2) ? "Weeks" : "HoursMinutes";
  36                 print "RemindUnits=$param\n";
  37                 print "# DELETE DefRemindUnits\n";
  38         }
  39         elsif (/^DefSoundType=(.*)$/) {
  40                 if (!$soundType) {
  41                         $soundType = ($1 == 1) ? "Beep"
  42                                    : ($1 == 2) ? "File"
  43                                    : ($1 == 3) ? "Speak" : "None";
  44                 }
  45                 print "# DELETE DefSoundType\n";
  46         }
  47
  48         # Convert KAlarm pre-1.4.6 entries
  49         elsif (/^DefSound=(.*)$/) {
  50                 if ($1 ne "true") {
  51                         $soundType = "None";
  52                 }
  53                 print "# DELETE DefSound\n";
  54         }
  55
  56         # Convert KAlarm pre-1.3.0 entries
  57         elsif (/^DefCmdXterm=(.*)$/) {
  58                 $cmdLogType = ($1 eq "true") ? "Terminal" : "Discard";
  59                 print "# DELETE DefCmdXterm\n";
  60         }
  61 }
  62
  63 if ($cmdLogType) {
  64         print "CmdLogType=$cmdLogType\n";
  65 }
  66 if ($soundType) {
  67         print "SoundType=$soundType\n";
  68 }