X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fcontest.pl;h=451a55daa528c9417135bef207ba2f54b049f427;hb=d0b55caa8a609da9ccc5ea59bb376795a99d04b5;hp=94d8402ad9b83249fbdc9f31652b4db2a74c71f8;hpb=fd2d8314dd4fcdd7997ef80e7740702e0bad618d;p=spider.git

diff --git a/cmd/show/contest.pl b/cmd/show/contest.pl
index 94d8402a..451a55da 100644
--- a/cmd/show/contest.pl
+++ b/cmd/show/contest.pl
@@ -2,15 +2,14 @@
 # used with 1 argument: sh/contest <yearandmonth>
 # 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
 {
 	my ($self, $line) = @_;
-
+   
 	return (1, $self->msg('e24')) unless $Internet::allow;
 
 	my @out;
@@ -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");
 	}