X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXDb.pm;h=72ba15d10dac676c5a634523dbdc13ef8b3d8766;hb=9f49a7af5e5e8b049407b8c0af022fba091cb36f;hp=a088866c5873e675586b4a72c8c93c6565170e70;hpb=2ffd50e69be8f5e17e8ac3f8735139af7316195a;p=spider.git diff --git a/perl/DXDb.pm b/perl/DXDb.pm index a088866c..72ba15d1 100644 --- a/perl/DXDb.pm +++ b/perl/DXDb.pm @@ -50,10 +50,8 @@ $nextstream = 0; %stream = (); 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$); # allocate a new stream for this request sub newstream @@ -277,7 +275,7 @@ sub handle_45 # incoming DB Information my $n = getstream($_[3]); if ($n) { - my $mchan = DXChannel->get($n->{call}); + my $mchan = DXChannel::get($n->{call}); $mchan->send($_[2] . ":$_[4]") if $mchan; } }