X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fcontest.pl;h=451a55daa528c9417135bef207ba2f54b049f427;hb=6a5fdda14c1dccca4e002618cc8a428b1dc163bd;hp=a43e0ea715fa4ede421ef9c7c1703af30ae21cf8;hpb=9fc2ec17088fbff22e825133a4b9b3efe5384df3;p=spider.git

diff --git a/cmd/show/contest.pl b/cmd/show/contest.pl
index a43e0ea7..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 = 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");
 	}