X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fcontest.pl;h=524f6b86c84995e6e8e7af5530408e901df222b3;hb=89eaa6762e986e15ba3167ba3400a38cda1faf80;hp=94d8402ad9b83249fbdc9f31652b4db2a74c71f8;hpb=fd2d8314dd4fcdd7997ef80e7740702e0bad618d;p=spider.git diff --git a/cmd/show/contest.pl b/cmd/show/contest.pl index 94d8402a..524f6b86 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, $port, $url, prefix=>'ctst> '); if ($r) { push @out, $self->msg('m21', "show/contest"); }