home *** CD-ROM | disk | FTP | other *** search
/ linuxmafia.com 2016 / linuxmafia.com.tar / linuxmafia.com / pub / palmos / other-os / ical2ics.pl < prev    next >
Perl Script  |  2004-01-06  |  11KB  |  465 lines
  1. #!/usr/bin/perl
  2.  
  3. # Author: Florian Schaefer <florian@netego.de>, April 2002
  4. # Feel free to distribute this file under the terms of the GPL.
  5.  
  6. use POSIX qw(strftime);
  7.  
  8. @uidl="";
  9. $uidl[0]=0;
  10.  
  11. #
  12. # Converts a date from dd/mm/yyyy format to yyyymmdd format
  13. # 
  14.  
  15. sub create_date
  16. {
  17.     my ($raw) = @_;
  18.  
  19.     $raw =~ s/^([0-9]*)\/([0-9]*)\/([0-9]*)$/$3/;
  20.     if (length($raw) > 4) {chop($raw);}
  21.     $raw .= sprintf("%02i%02i", $2, $1);
  22.  
  23.     return ($raw);
  24. }
  25.  
  26. #
  27. # Converts a time in minutes since midnight into hhmm format
  28. # 
  29.  
  30. sub create_time
  31. {
  32.     my ($mins) = @_;
  33.  
  34.     my $hour = sprintf("%02i",$mins/60);
  35.     my $min = sprintf("%02i",($mins-60*$hour));
  36.  
  37.     return ("$hour$min"."00");
  38. }
  39.  
  40. #
  41. # The function manages to exclude dates on repeated events
  42. #
  43.  
  44. sub exclude_dates
  45. {
  46.     my ($exdate) = @_;
  47.     my $output ="";
  48.     if ($exdate =~ /,$/) {chop($exdate)};
  49.     $output = "EXDATE\n :$exdate\n";
  50.  
  51.     return $output;
  52. }
  53.  
  54. #
  55. # This is the main part: &convert gets an array with the lines
  56. # of one event and the number of lines. It does all the fancy
  57. # work.
  58. #
  59.  
  60. sub convert
  61. {
  62.     my ($lines, @raw) = @_;
  63.     my $uid, $cont, $tart, $length;
  64.     my $finishdate = $extrastart = 0;
  65.     my $exdate = "";
  66.     $start = "";
  67.  
  68.     # 
  69.     # This loop tries to get all relevant information
  70.     #
  71.     for (my $pos = 0; $pos < $lines; $pos++)
  72.     {
  73.         if ($raw[$pos] =~ /^Finish /)
  74.         {
  75.             # 
  76.             # find the finish date
  77.             #
  78.             $finishdate = $raw[$pos];
  79.             $finishdate =~ s/ End//;
  80.             $finishdate =~ s/^Finish (.*)/$1/;
  81.             chop($finishdate);
  82.             $finishdate = &create_date($finishdate);
  83.         }
  84.         if ($raw[$pos] =~ /^Start [0-9]/)
  85.         {
  86.             # 
  87.             # an extra start field containing a date
  88.             #
  89.             $extrastart = $raw[$pos];
  90.             $extrastart =~ s/ End//;
  91.             $extrastart =~ s/^Start (.*)/$1/;
  92.             chop($extrastart);
  93.             $extrastart = &create_date($extrastart);
  94.         }
  95.  
  96.         if ($raw[$pos] =~ /^Deleted /)
  97.         {
  98.             #
  99.             # find dates to be excluded from a repeating event
  100.             #
  101.             my $rawdate = $raw[$pos];
  102.             $rawdate =~ s/ End//;
  103.             $rawdate =~ s/Deleted //;
  104.             $exdate .= &create_date($rawdate).",";
  105.         }
  106.         
  107.         #
  108.         # and finally split the info into two pieces and
  109.         # fill the variables, I know there are hashes, but
  110.         # I don't know how to use them...
  111.         #
  112.         $raw[$pos] =~ s/^(.*) \[(.*)$/$1~$2/;
  113.         ($item, $value) = split(/~/, $raw[$pos]);
  114.         $value =~ s/\]$//;
  115.         chop($value);
  116.         if ($item eq "PilotRecordId") {$uid = $value;}
  117.         if ($item eq "Contents") {$cont = $value;}
  118.         if (($item eq "Start") && ($value !=~ /\//)) {$start = $value;}
  119.         if ($item eq "Length") {$length = $value;}
  120.         if ($item eq "Dates") {$date = $value;}
  121.     }
  122.  
  123.     #
  124.     # the header of each event
  125.     # 
  126.     my $out ="";
  127.     $out  = "BEGIN:VCALENDAR\nVERSION\n :2.0\n";
  128.     $out .= "PRODID\n :PRODID:-//netego.de/NONSGML ical2ics.pl//EN\n";
  129.     $out .= "BEGIN:VEVENT\n";
  130.     $out .= "UID\n :$uid\n";
  131.     $out .= "SUMMARY\n :$cont\n";
  132.     $out .= "CLASS\n :PRIVATE\n";
  133.     $out .= "DESCRIPTION\n :$description\n" if ($description);
  134.  
  135.     #
  136.     # It is a repeated event - something with days
  137.     #
  138.     if (($date =~ /Days/) && (!($date =~ /WeekDays/)))
  139.     {
  140.         my $interval = $date;
  141.         $interval =~ s/^.* ([0-9]*)$/$1/;
  142.             
  143.         if ($date =~ /7$/)
  144.         {
  145.             #
  146.             # 7 days, let's make 1 week out of it
  147.             #
  148.             $out .= "X-MOZILLA-RECUR-DEFAULT-UNITS\n :weeks\nX-MOZILLA-RECUR-DEFAULT-INTERVAL\n :1\n";
  149.             $out .= "RRULE\n :";
  150.             $out .= "FREQ=WEEKLY;INTERVAL=1;";
  151.             if ($finishdate) { $out .= "UNTIL=$finishdate\n"; }
  152.             else { chop($out); $out .= "\n"; }
  153.         }
  154.         else
  155.         {
  156.             #
  157.             # seems like a real event for a dayly recurrence
  158.             #
  159.             $out .= "X-MOZILLA-RECUR-DEFAULT-UNITS\n :days\nX-MOZILLA-RECUR-DEFAULT-INTERVAL\n :$interval\n";
  160.             $out .= "RRULE\n :";
  161.             $out .= "FREQ=DAILY;";
  162.             if ($finishdate) { $out .= "UNTIL=$finishdate;"; }
  163.             $out .= "INTERVAL=$interval\n";
  164.         }
  165.         #
  166.         # don't forget to exclude certain dates
  167.         #
  168.         if ($exdate) {$out .= &exclude_dates($exdate);}
  169.     }
  170.  
  171.     #
  172.     # It is a repeated event - the same with months
  173.     #
  174.     if (($date =~ /Months/) && (!($date =~ /WeekDays/)))
  175.     {
  176.         my $interval = $date;
  177.         $interval =~ s/^.* ([0-9]*)$/$1/;
  178.             
  179.         if ($date =~ /12$/)
  180.         {
  181.             #
  182.             # 12 month make one year
  183.             #
  184.             $out .= "X-MOZILLA-RECUR-DEFAULT-UNITS\n :years\nX-MOZILLA-RECUR-DEFAULT-INTERVAL\n :1\n";
  185.             $out .= "RRULE\n :";
  186.             $out .= "FREQ=YEARLY;INTERVAL=1;";
  187.             if ($finishdate) { $out .= "UNTIL=$finishdate;"; }
  188.             my $mon = $date;
  189.             $mon =~ s/^.*\/([0-9]+)\/.*$/$1/;
  190.             $out .= "BYMONTH=$mon\n";
  191.         }
  192.         else
  193.         {
  194.             $out .= "X-MOZILLA-RECUR-DEFAULT-UNITS\n :years\nX-MOZILLA-RECUR-DEFAULT-INTERVAL\n :$interval\n";
  195.             $out .= "RRULE\n :";
  196.             $out .= "FREQ=MONTHLY;";
  197.             if ($finishdate) { $out .= "UNTIL=$finishdate;"; }
  198.             $out .= "INTERVAL=$interval\n";
  199.         }
  200.         #
  201.         # don't forget to exclude certain dates
  202.         #
  203.         if ($exdate) {$out .= &exclude_dates($exdate);}
  204.     }
  205.     
  206.     #
  207.     # It is a weekly event, but only some days are selected
  208.     #
  209.     if ($date =~ /WeekDays/)
  210.     {
  211.         $out .= "X-MOZILLA-RECUR-DEFAULT-UNITS\n :weeks\nX-MOZILLA-RECUR-DEFAULT-INTERVAL\n :1\n";
  212.         $out .= "RRULE\n :";
  213.         $out .= "FREQ=WEEKLY;INTERVAL=1;";
  214.         if ($finishdate) { $out .= "UNTIL=$finishdate;"; }
  215.         
  216.         (my $daynames = $date) =~ s/.*WeekDays  (.*) Months.*$/$1/;
  217.         $daynames =~ s/2/MO/;
  218.         $daynames =~ s/3/TU/;
  219.         $daynames =~ s/4/WE/;
  220.         $daynames =~ s/5/TH/;
  221.         $daynames =~ s/6/FR/;
  222.         $daynames =~ s/7/SA/;
  223.         $daynames =~ s/1/SU/;
  224.         $daynames =~ s/ /,/g;
  225.         $out .= "BYDAY=$daynames\n";
  226.             
  227.         #
  228.         # don't forget to exclude certain dates
  229.         #
  230.         if ($exdate) {$out .= &exclude_dates($exdate);}
  231.  
  232.         #
  233.         # The date of the first event is in another field
  234.         #
  235.         $date = $extrastart;
  236.     }
  237.     
  238.     if ($date =~ /\//)
  239.     {
  240.         #
  241.         # Just in case that date isn't converted yet...
  242.         # The format is slightly different from the one required for
  243.         # &create_date, this is why I don't call it here.
  244.         #
  245.         $date =~ s/^.* ([0-9]*)\/([0-9]*)\/([0-9]*).*$/$3/;
  246.         $date .= sprintf("%02i%02i", $2, $1);
  247.     }
  248.  
  249.     if ($start)
  250.     {
  251.         #
  252.         # Now just print the start and end time.
  253.         #
  254.         $out = $out."DTSTART\n :".$date."T".&create_time($start)."\n";
  255.         $out = $out."DTEND\n :".$date."T".&create_time($start+$length)."\n";
  256.     }
  257.     else
  258.     {
  259.         #
  260.         # There is no time for the beginning of the event defined, I assume
  261.         # that the event should last all day.
  262.         #
  263.         $out = $out."DTSTART\n ;VALUE=DATE\n :".$date."\n";
  264.     }
  265.  
  266.     #
  267.     # The RFC requires me to include the time of the object creation
  268.     #
  269.     $date = strftime "%Y%m%dT%H%M%S", localtime;
  270.     $out = $out."DTSTAMP\n :".$date."\n";
  271.  
  272.     $out = $out."END:VEVENT\nEND:VCALENDAR\n";
  273.  
  274.  
  275.     #
  276.     # Remember the UID for later merging
  277.     #
  278.     $uidl[0]++;
  279.     $uidl[$uidl[0]]=$uid;
  280.     
  281.     return ($out);
  282. }
  283.  
  284. #
  285. # This sub takes an older ical file and merges it to the new one.
  286. # It does this by comparing the stored UID's and adding all entries
  287. # whose ID hasn't been found. As you can see, the new events have
  288. # got a higher priority and can delete newer entries from the old file
  289. #
  290.  
  291. sub merge_entries
  292. {
  293.     my ($mergefile) =@_;
  294.     my $out = "";        # this string will be added later
  295.     my $event = "";      # the current event being processed
  296.     my $record = 0;      # is true if loop is in an event object
  297.     my $nextoneuid = 0;  # marks the line for the UID
  298.     my $uidfound = 0;    # is true if UID is already in new file
  299.  
  300.     open MERGEFILE, $mergefile or die "Can't open '$mergefile' for input $!";
  301.     foreach my $line (<MERGEFILE>)
  302.     {
  303.         if ($line =~ /BEGIN:VCALENDAR$/)
  304.         {
  305.             $event = "";
  306.             $record = 1;
  307.         }
  308.         if ($record == 1) {$event.=$line};
  309.         if ($nextoneuid == 1)
  310.         {
  311.             $nextoneuid = 0;
  312.             $uidfound = $line;
  313.             $uidfound =~ s/^ ://;
  314.             chop($uidfound);
  315.         }
  316.         # This way of finding the UID depends on having two lines
  317.         # for field descriptor and value and is therefore Mozilla
  318.         # Calendar specific.
  319.         if ($line =~ /^UID$/) {$nextoneuid=1};
  320.         if ($line =~ /^END:VCALENDAR$/)
  321.         {
  322.             $record = 0;
  323.             my $found = 0;
  324.             for (my $c=1; $c < $uidl[0]+1; $c++)
  325.             {
  326.                 $found=1 if ($uidl[$c] eq $uidfound);
  327.             }
  328.             if ($found == 0)
  329.             {
  330.                 $out .= $event;
  331.             }
  332.         }
  333.     }
  334.     close (MERGEFILE);
  335.     
  336.     return($out);
  337. }
  338.  
  339. #
  340. # Here the input file is read and each event is then given to
  341. # &convert for further processing.
  342. #
  343.  
  344. sub read_palmfile
  345. {
  346.     my ($instream, $outstream) = @_;
  347.     if (($instream  ne "") && ($instream ne "-"))
  348.         { open STDIN, $instream or die "Can't open '$instream' for input: $!";}
  349.     if ($outstream ne "") 
  350.         { open STDOUT, ">$outstream" or die "Can't open '$outstream' for output $!";;}
  351.     my $line = "";
  352.     my $pos = 0;
  353.     my @note;
  354.     foreach $line (<STDIN>)
  355.     {
  356.         if ($line =~ /(Note|Appt)/)
  357.         {
  358.             if ($pos != 0)
  359.             {
  360.                 print &convert($pos,@note);
  361.             }
  362.             $pos = 0;
  363.             $note[$pos] = $line;
  364.             $pos++;
  365.         }
  366.         elsif ($pos != 0)
  367.         {
  368.             $note[$pos] = $line;
  369.             $pos++;
  370.         }
  371.     }
  372.     close (INFILE);
  373.     print &convert($pos, @note);
  374.     print &merge_entries($mergefile) if ($mergefile);
  375. }
  376.  
  377. #
  378. # Well, the first sub has to be called somewhere. ;-)
  379. # Most of the stuff below is just option parsing.
  380. #
  381.  
  382. if (($ARGV[0] eq "--help") || ($ARGV[0] eq "-h"))
  383. {
  384. print << "EOF"
  385.  
  386. Usage: ical2ics.pl [-d STRING] [-m mergefile] [infile] [outfile]
  387.  
  388. This little script tries to convert ical calender files produced by read-ical
  389. to a rfc2445 compliant format which can be read by the Mozilla Calendar.
  390.  
  391. If no filename (or '-' for infile) is given STDIN respectively STDOUT are used.
  392.  
  393.   -d STRING     Change default description to STRING
  394.   -m mergefile  Merge the outfile with mergefile (the syntax has to be
  395.                 similar to the one created by this script), may be the
  396.                                 outfile itself
  397.  
  398. Please report bugs or send comments to <florian\@netego.de>.
  399. EOF
  400. }
  401. else
  402. {
  403.     $description = "Imported from Palm Pilot.";
  404.     my $infile = $outfile = ""; # names of the streams
  405.     my $infilenum = 0;          # position of infile in ARGV
  406.     my $outfilenum = 1;         # the same for outfile
  407.     my $argpos = 0;             # pointer to ARGV position
  408.     
  409.     # I hope that this option-vodoo works reliably
  410.     while ($ARGV[$argpos] ne "")
  411.     {
  412.         if ($ARGV[$argpos] eq "-d") 
  413.         {
  414.             $argpos++;
  415.             $description = $ARGV[$argpos];
  416.             $infilenum += 2;
  417.             $outfilenum += 2;
  418.         }
  419.         elsif ($ARGV[$argpos] eq "-m") 
  420.         {
  421.             $argpos++;
  422.             $mergefile = $ARGV[$argpos];
  423.             $infilenum += 2;
  424.             $outfilenum += 2;
  425.         }
  426.         else {$argpos++};
  427.     }
  428.     $infile  = $ARGV[$infilenum];
  429.     $outfile = $ARGV[$outfilenum];
  430.     
  431.     if ($mergefile)
  432.     {
  433.         # mergefile and outfile mustn't be the same, work
  434.         # with a backup copy instead
  435.         my $rnd = int(rand(100000));
  436.         $status = `cp $mergefile /tmp/ical2ics-$rnd.tmp`;
  437.         $mergefile="/tmp/ical2ics-$rnd.tmp";
  438.     }
  439.  
  440.     &read_palmfile($infile,$outfile,$mergefile);
  441.  
  442.     unlink $mergefile;
  443. }
  444.  
  445. # ChangeLog:
  446. #
  447. # 25.07.2002:
  448. # - Switched from the old "X ;MEMBER" fields to the new "X-MOZILLA" properties
  449. # - Events that last all day don't use "MEMBER=AllDay" any more, I just give a
  450. #   DTSTART date and no DTEND
  451. #
  452. # 24.05.2002:
  453. # - New option for merging ('-d') with existing data
  454. #
  455. # 13.05.2002:
  456. # - Added DTSTAMP property
  457. #
  458. # 25.04.2002:
  459. # - The bug in libical and Calendar concerning the EXDATE property have been
  460. #   fixed, therefore I removed the RECURRENCE-ID alternative.
  461. # - Added the -d option
  462. #
  463. # 24.04.2002:
  464. # - First official release
  465.