X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fcontest.pl;h=a9db4ea7329ae7b2d3f827ad543c3f09ecc9337e;hb=9c8ae21bbf6c6c51c04f62b18b613bbf42a375ca;hp=94d8402ad9b83249fbdc9f31652b4db2a74c71f8;hpb=fd2d8314dd4fcdd7997ef80e7740702e0bad618d;p=spider.git diff --git a/cmd/show/contest.pl b/cmd/show/contest.pl index 94d8402a..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 = HTTPMsg->get($self->call, $host, $port, $url); + my $r = AsyncMsg->get($self->call, $host, $url, prefix=>'ctst> '); if ($r) { push @out, $self->msg('m21', "show/contest"); }