set def sendverity=0, some hostname changes

[spider.git] / cmd / show / contest.pl

diff --git a/cmd/show/contest.pl b/cmd/show/contest.pl
index 94d8402ad9b83249fbdc9f31652b4db2a74c71f8..451a55daa528c9417135bef207ba2f54b049f427 100644 (file)
--- 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");
        }