public/eventdb
2
0
Fork 0
Code Issues 8 Pull requests Projects Releases Packages Activity Actions

First release

Browse source
This commit is contained in:
Ralph J.Mayer 2014-08-25 20:01:43 +02:00
parent 9a1476b7c4
commit 627f7724ee
16 changed files with 10030 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

20
scripts/csv2ikiwiki.pl Normal file
View file

@ -0,0 +1,20 @@
#!/usr/bin/perl
# CSV zu CSV für ikiwiki
# Version 1
use strict;
use warnings;
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";
print "# T;# M;# J; ;# T;# M;# J;# Was;# Location;# Stadt;# Land\n";
while (my $line = <$data>) {
chomp $line;
my @fields = split ";" , $line;
print "$fields[0];$fields[1];$fields[2];-;$fields[3];$fields[4];$fields[5];[$fields[6]]($fields[10]);$fields[7];$fields[8];$fields[9];\n";
}

36
scripts/csv2rem-html.pl Normal file
View file

@ -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);
}
}

36
scripts/csv2rem-ics.pl Normal file
View file

@ -0,0 +1,36 @@
#!/usr/bin/perl
# CSV zu Remind
# 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, " $fields[6]\n";
$start->add(days => 1);
}
}

18
scripts/csv2rem.pl Normal file
View file

@ -0,0 +1,18 @@
#!/usr/bin/perl
# CSV zu CSV für ikiwiki
# Version 1
use strict;
use warnings;
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;
print "REM $fields[2]-$fields[1]-$fields[0] +10 $fields[6] $fields[10] %b\n";
}