X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fannounce.pl;h=267d27c330a4fe47181a8a8086c8a172dee4e5b2;hb=e2ca7811e49048bfad82ec31e148a79fe9904e2b;hp=bd6e05ae7fcde280390003db3a02e2dd129091e6;hpb=324bd80ed4aef7e2636f5a03288788ce11ab2663;p=spider.git diff --git a/cmd/show/announce.pl b/cmd/show/announce.pl index bd6e05ae..267d27c3 100644 --- a/cmd/show/announce.pl +++ b/cmd/show/announce.pl @@ -3,7 +3,7 @@ # # Copyright (c) 1998 - Dirk Koopman G1TLH # -# $Id$ +# # my $self = shift; @@ -28,11 +28,19 @@ while ($f = shift @f) { # next field next if $to; } next if $who; - ($who) = $f =~ /^(\w+)/o; + if ($f !~ /^\d+/) { + ($who) = $f; + } + if ($f !~ /^\d+/) { + ($who) = $f; + } + #($who) = $f =~ /^(\w+)/o; } $to = 20 unless $to; $from = 0 unless $from; -@out = DXLog::print($from, $to, $main::systime, '^ann', $who); +return (1, DXLog::print($from, $to, $main::systime, 'ann', $who)) if $self->{_nospawn};; +return (1, $self->spawn_cmd("show/announce $cmdline", \&DXLog::print, args => [$from, $to, $main::systime, 'ann', $who])); + return (1, @out);