X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcreate_localqsl.pl;h=e3f447f0c64e1ce341ad0723aa305a3695e27f98;hb=defc60f3e7fab9bb99d1c9f7b8bccc4ec37628d5;hp=66634f255c2f17f56e5e2763e63d16042fa3166b;hpb=a7d7ca1d8383bea004544d002748db81d867ea11;p=spider.git

diff --git a/perl/create_localqsl.pl b/perl/create_localqsl.pl
index 66634f25..e3f447f0 100755
--- a/perl/create_localqsl.pl
+++ b/perl/create_localqsl.pl
@@ -97,15 +97,11 @@ 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?
@@ -113,8 +109,8 @@ sub update
 		@in = grep {$_->[1] ne $by} @in;
 	}
 	$comment =~ s/://g;
-	unshift @in, [$t, $by, $comment] if grep is_callsign($_), split(/\s+/, $comment);
+	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);
 }