# 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
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");
}