X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCron.pm;h=7b9f1f30860642f826720298fdb8b21eb4d4c288;hb=decf4e82a66a51f03216dd7531422868cd03611b;hp=868420585b70e416e48e9af0ed56e27a09a524ff;hpb=dbf7523a9b228dbdf1d03109afde351b8b194fab;p=spider.git

diff --git a/perl/DXCron.pm b/perl/DXCron.pm
index 86842058..7b9f1f30 100644
--- a/perl/DXCron.pm
+++ b/perl/DXCron.pm
@@ -27,10 +27,8 @@ my $fn = "$main::cmd/crontab";
 my $localfn = "$main::localcmd/crontab";
 
 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$);
 
 # cron initialisation / reading in cronjobs
 sub init
@@ -174,7 +172,7 @@ sub process
 sub connected
 {
 	my $call = uc shift;
-	return DXChannel->get($call);
+	return DXChannel::get($call);
 }
 
 # is it remotely connected anywhere (with exact callsign)?
@@ -224,7 +222,7 @@ sub presentish_on
 sub last_connect
 {
 	my $call = uc shift;
-	return $main::systime if DXChannel->get($call);
+	return $main::systime if DXChannel::get($call);
 	my $user = DXUser->get($call);
 	return $user ? $user->lastin : 0;
 }