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