X-Git-Url: http://pere.pagekite.me/gitweb/homepage.git/blobdiff_plain/0408e2cdc30edea5382e06c51a0517f08b9fc6d2..5477002b831addf68ef3d43b0a9cd5326f68631e:/linux/plan2icalendar

diff --git a/linux/plan2icalendar b/linux/plan2icalendar
new file mode 100755
index 0000000000..92ef801561
--- /dev/null
+++ b/linux/plan2icalendar
@@ -0,0 +1,122 @@
+#!/usr/bin/perl -w
+#
+# Author: Petter Reinholdtsen <pere@hungry.com>
+# Date:   2002-01-10
+#
+# Convert plan calender data to icalender format.
+#
+# plan, <URL:http://www.bitrot.de/>
+# icalendar, RFC 2445, <URL:http://www.faqs.org/rfcs/rfc2445.html">iCalendar>
+
+use Date::Parse;
+use Date::Format;
+
+my @events;
+
+my $mailto = "pere\@hungry.com";
+
+read_planfile(".plan.dir/dayplan");
+write_icalendar();
+
+sub read_planfile {
+    my ($planfile) = @_;
+    open(PLAN, "<$planfile") || die "Unable to read $planfile";
+    my $planver = <PLAN>;
+    chomp $planver;
+    while (<PLAN>) {
+        chomp;
+        if (m%\d+/\d+/\d+\s%) {
+            my ($date, $start, $duration) = split(/\s+/);
+            my $info = <PLAN>;
+            chomp $info;
+            my ($dontknow, $msg) = $info =~ m/^(.)\t(.+)$/;
+            print STDERR "E: $date $start $duration $msg\n";
+
+            my $timestamp = str2time("$date $start");
+            $isostartstamp  = time2str("%Y%m%dT%H%M%S", $timestamp);
+
+            my @f = split(/:/, $duration);
+            $timestamp += ($f[0]*60*60 + $f[1]*60 +$f[2]);
+            $isoendstamp  = time2str("%Y%m%dT%H%M%S", $timestamp);
+
+            print STDERR "IE: $isostartstamp $isoendstamp\n";
+            push(@events, {
+                organizer => "$mailto",
+                summary   => $msg,
+                dtstart   => $isostartstamp,
+                dtend     => $isoendstamp,
+                priority  => '1'
+                });
+        }
+    }
+    close(PLAN);
+}
+
+
+# BEGIN:VCALENDAR
+# PRODID
+#  :-//K Desktop Environment//NONSGML KOrganizer//EN
+# VERSION
+#  :2.0
+# BEGIN:VEVENT
+# CREATED
+#  :20020110T153939
+# UID
+#  :KOrganizer-141229514.660
+# SEQUENCE
+#  :0
+# LAST-MODIFIED
+#  :20020110T153939
+# DTSTAMP
+#  :20020110T153952
+# ORGANIZER
+#  :MAILTO:pre@diskless.uio.no
+# SUMMARY
+#  :SL-veiledning
+# PRIORITY
+#  :1
+# DTSTART
+#  :20020114T151500
+# DTEND
+#  :20020114T160000
+# END:VEVENT
+# END:VCALENDAR
+sub write_icalendar {
+    print <<EOF;
+BEGIN:VCALENDAR
+PRODID
+ :-//K Desktop Environment//NONSGML KOrganizer//EN
+VERSION
+ :2.0
+EOF
+    my $count = 0;
+    my $event;
+    for $event (@events) {
+        print <<EOF;
+BEGIN:VEVENT
+CREATED
+ :20020110T153939
+UID
+ :plan2icalendar-$count
+SEQUENCE
+ :$count
+LAST-MODIFIED
+ :20020110T153939
+DTSTAMP
+ :20020110T153952
+ORGANIZER
+ :MAILTO:$event->{organizer}
+SUMMARY
+ :$event->{summary}
+PRIORITY
+ :$event->{priority}
+DTSTART
+ :$event->{dtstart}
+DTEND
+ :$event->{dtend}
+END:VEVENT
+EOF
+        $count++;
+    }
+    print "END:VCALENDAR\n";
+}