First release

scripts/csv2rem-html.pl

@@ -0,0 +1,36 @@
+#!/usr/bin/perl
+# CSV zu Remind mit HTML für Webseite
+# Version 1
+
+use strict;
+use warnings;
+use DateTime;
+
+my $file = $ARGV[0] or die "Need to get CSV file on the command line\n";
+
+open(my $data, '<', $file) or die "Could not open '$file' $!\n";
+
+while (my $line = <$data>) {
+chomp $line;
+
+my @fields = split ";" , $line;
+
+my $start = DateTime->new(
+    day   => $fields[0],
+    month => $fields[1],
+    year  => $fields[2],
+    );
+
+my $stop = DateTime->new(
+    day   => $fields[3],
+    month => $fields[4],
+    year  => $fields[5],
+    );
+
+
+while ($start <= $stop) {
+    print "REM ", $start->ymd, " SPECIAL HTML <P><A HREF=\"$fields[10]\">$fields[6]</A> </P>\n";
+    $start->add(days => 1);
+    }
+
+}