projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
144ae11
)
more mods
author
minima
<minima>
Fri, 7 Mar 2003 23:03:33 +0000
(23:03 +0000)
committer
minima
<minima>
Fri, 7 Mar 2003 23:03:33 +0000
(23:03 +0000)
perl/create_localqsl.pl
patch
|
blob
|
history
diff --git
a/perl/create_localqsl.pl
b/perl/create_localqsl.pl
index 713abe7ff69a30128fcbd3257c7720765a92d83c..66634f255c2f17f56e5e2763e63d16042fa3166b 100755
(executable)
--- a/
perl/create_localqsl.pl
+++ b/
perl/create_localqsl.pl
@@
-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);
}