X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fset%2Fobscount.pl;h=ed5f6c4574c5cf27ec5db53a3a632f8b79651c6a;hb=2bd682330ce9b04c95ddf05715cfb643da2df0ea;hp=8464cb26cce65beab24b3defaa97fecf9f36da99;hpb=7de34899527cbc4dfacdcc6452926b3d2d73792c;p=spider.git diff --git a/cmd/set/obscount.pl b/cmd/set/obscount.pl index 8464cb26..ed5f6c45 100644 --- a/cmd/set/obscount.pl +++ b/cmd/set/obscount.pl @@ -14,7 +14,7 @@ my $user; my $val = int shift @args if @args; -return (1, $self->msg('e5')) if $self->priv < 9; +return (1, $self->msg('e5')) if $self->priv < 8; return (1, $self->msg('e14')) unless defined $val; return (1, $self->msg('e12')) unless @args; @@ -22,9 +22,7 @@ $val *= 60 if $val < 120; foreach $call (@args) { $call = uc $call; - my $dxchan = DXChannel->get($call); - $user = $dxchan->user if $dxchan; - $user = DXUser->get_exact($call) unless $user; + $user = DXUser->get_current($call); if ($user) { unless ($user->sort eq 'A' || $user->sort eq 'S') { push @out, $self->msg('e13', $call);