X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fconnect.pl;h=fd893974bb3673dfd87b921f1833afc7749a5a0d;hb=996d9774dad0fc0133f8497d9d264f4f5a4265b3;hp=d1c583cbd3d6a7f3a65a7062bd373523d34c48af;hpb=ca8e84c32e70ea8eb1f30e716b7dbdc92f7e5083;p=spider.git diff --git a/cmd/connect.pl b/cmd/connect.pl index d1c583cb..fd893974 100644 --- a/cmd/connect.pl +++ b/cmd/connect.pl @@ -7,11 +7,11 @@ 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"; -my $user = DXUser->get($call); +my $user = DXUser::get($call); return (1, $self->msg('lockout', $call)) if $user && $user->lockout; my @out;