X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcreate_localqsl.pl;h=e3f447f0c64e1ce341ad0723aa305a3695e27f98;hb=defc60f3e7fab9bb99d1c9f7b8bccc4ec37628d5;hp=713abe7ff69a30128fcbd3257c7720765a92d83c;hpb=144ae11b65a1425f6557d4670fcd303dabd180b4;p=spider.git

diff --git a/perl/create_localqsl.pl b/perl/create_localqsl.pl
index 713abe7f..e3f447f0 100755
--- 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);
 }