hamradio/spider
1
0
Fork 0
mirror of git://scm.dxcluster.org/scm/spider synced 2024-09-22 00:07:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

more mods

Browse Source
This commit is contained in:
minima 2003-03-07 23:03:33 +00:00
parent 144ae11b65
commit a7d7ca1d83
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
perl/create_localqsl.pl
View File

@ -112,7 +112,8 @@ sub update
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 is_callsign($_), split(/\s+/, $comment);
pop @in, if @in > 10;
return join "\n", (map {(cldatetime($_->[0]) . " by $_->[1]: $_->[2]")} @in);
}