X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fcontest.pl;h=451a55daa528c9417135bef207ba2f54b049f427;hb=d0b55caa8a609da9ccc5ea59bb376795a99d04b5;hp=524f6b86c84995e6e8e7af5530408e901df222b3;hpb=89eaa6762e986e15ba3167ba3400a38cda1faf80;p=spider.git diff --git a/cmd/show/contest.pl b/cmd/show/contest.pl index 524f6b86..451a55da 100644 --- a/cmd/show/contest.pl +++ b/cmd/show/contest.pl @@ -9,7 +9,7 @@ sub handle { my ($self, $line) = @_; - + return (1, $self->msg('e24')) unless $Internet::allow; my @out; @@ -52,7 +52,7 @@ sub handle dbg("sh/contest: url=$url") if isdbg("contest"); - my $r = AsyncMsg->get($self->call, $host, $port, $url, prefix=>'ctst> '); + my $r = AsyncMsg->get($self->call, $host, $url, prefix=>'ctst> '); if ($r) { push @out, $self->msg('m21', "show/contest"); }