X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=056fe9ff50b3a1e2ce1c42cccc6f3491b4f19839;hb=c3c15883cf25add24fc49e32eb0d17dce6839a62;hp=d2a0a12a31d51b4a519bbd6e4283dac8a0818c2b;hpb=87b2f58b1b0df6c0cb5c5f0070db554ec2d2a961;p=spider.git diff --git a/perl/DXUser.pm b/perl/DXUser.pm index d2a0a12a..056fe9ff 100644 --- a/perl/DXUser.pm +++ b/perl/DXUser.pm @@ -20,10 +20,8 @@ use LRU; use strict; use vars qw($VERSION $BRANCH); -$VERSION = sprintf( "%d.%03d", q$Revision$ =~ /(\d+)\.(\d+)/ ); -$BRANCH = sprintf( "%d.%03d", q$Revision$ =~ /\d+\.\d+\.(\d+)\.(\d+)/ || (0,0)); -$main::build += $VERSION; -$main::branch += $BRANCH; + +main::mkver($VERSION = q$Revision$); use vars qw(%u $dbm $filename %valid $lastoperinterval $lasttime $lru $lrusize $tooold $v3); @@ -264,7 +262,7 @@ sub get_current my $pkg = shift; my $call = uc shift; - my $dxchan = DXChannel->get($call); + my $dxchan = DXChannel::get($call); return $dxchan->user if $dxchan; my $rref = Route::get($call); return $rref->user if $rref && exists $rref->{user};