added chat stuff for fun

[spider.git] / perl / create_localqsl.pl

diff --git a/perl/create_localqsl.pl b/perl/create_localqsl.pl
index 713abe7ff69a30128fcbd3257c7720765a92d83c..e3f447f0c64e1ce341ad0723aa305a3695e27f98 100755 (executable)
--- a/perl/create_localqsl.pl
+++ b/perl/create_localqsl.pl
@@ -97,23 +97,20 @@ sub update
        
        # decode the lines
        foreach my $l (@lines) {
-               my ($date, $time, $oby, $ocom) = $l =~ /^(\s?\S+)\s+(\s?\S+)\s+by\s+(\S+):\s+(.*)$/;
+               my ($date, $time, $oby, $ocom) = $l =~ /^(\s?\S+)\s+(\s?\S+)\s+de\s+(\S+):\s+(.*)$/;
                if ($date) {
                        my $ot = cltounix($date, $time);
                        push @in, [$ot, $oby, $ocom];
-               } else {
-                       print "Cannot decode $call: $l\n";
-                       $DB::single = 1;
                }
-               
        }
        
        # is this newer than the earliest one?
        if (@in && $in[0]->[0] < $t) {
                @in = grep {$_->[1] ne $by} @in;
        }
-       unshift @in, [$t, $by, $comment] if grep is_callsign($1), split(/\s+/, $comment);
+       $comment =~ s/://g;
+       unshift @in, [$t, $by, $comment] if grep /^bur/i || is_callsign(uc $_), split(/\b/, $comment);
        pop @in, if @in > 10;
-       return join "\n", (map {(cldatetime($_->[0]) . " by $_->[1]: $_->[2]")} @in);
+       return join "\n", (map {(cldatetime($_->[0]) . " de $_->[1]: $_->[2]")} @in);
 }