X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fcontest.pl;h=a9db4ea7329ae7b2d3f827ad543c3f09ecc9337e;hb=e0e8331285f425949d9a6717e39707c4310e9ccd;hp=a43e0ea715fa4ede421ef9c7c1703af30ae21cf8;hpb=9fc2ec17088fbff22e825133a4b9b3efe5384df3;p=spider.git diff --git a/cmd/show/contest.pl b/cmd/show/contest.pl index a43e0ea7..a9db4ea7 100644 --- a/cmd/show/contest.pl +++ b/cmd/show/contest.pl @@ -2,9 +2,8 @@ # used with 1 argument: sh/contest # e g sh/contest 2002sep # Tommy Johansson (SM3OSM) 2002-07-23 -# New version using Net::Telnet 2003-03-09 -# # +# New version use AsyncMsg (c) Dirk Koopman G1TLH # sub handle @@ -53,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"); }