projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
more mods
[spider.git]
/
perl
/
create_localqsl.pl
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;
}
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);
}
pop @in, if @in > 10;
return join "\n", (map {(cldatetime($_->[0]) . " by $_->[1]: $_->[2]")} @in);
}