X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fconnect.pl;h=e76bd01e0390b4e2bc50bb71820093b13f524b74;hb=4c60d18d0d58ece2406680d4afd4ff016532c11c;hp=1f1ad03f640b76f53f1a59f8b1e8aecd678afb5e;hpb=5b3c2c5e342c23fbab96b7573c5963344617878f;p=spider.git diff --git a/cmd/connect.pl b/cmd/connect.pl index 1f1ad03f..e76bd01e 100644 --- a/cmd/connect.pl +++ b/cmd/connect.pl @@ -7,7 +7,7 @@ my $lccall = lc $call; return (1, $self->msg('e5')) if $self->priv < 5; return (1, $self->msg('e6')) unless $call gt ' '; -return (1, $self->msg('already', $call)) if DXChannel->get($call); +return (1, $self->msg('already', $call)) if DXChannel::get($call); return (1, $self->msg('outconn', $call)) if grep {$_->{call} eq $call} @main::outstanding_connects; return (1, $self->msg('conscript', $lccall)) unless -e "$main::root/connect/$lccall";