2010-02-04T10:22:31 jan999

Code (perl): (dl )

1
2
3
4

sub olpoi_line {
        my $file = shift ;
        print $file "1.2,3\tPunkt 1\tKoordinate 1\t(Kein Icon)\t0\t0\n";
}

join