X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXCron.pm;h=343ba88d7d33218863798c7874c8a2d37e75340b;hb=f1199d39ab9334288d44bf1dfde1304df9d9785e;hp=1d3dcc6d00b5d3bc1a5aa271f6977f8da7ed1a7d;hpb=b9dffeff7239952814342dad19db3a51def6fab7;p=spider.git diff --git a/perl/DXCron.pm b/perl/DXCron.pm index 1d3dcc6d..343ba88d 100644 --- a/perl/DXCron.pm +++ b/perl/DXCron.pm @@ -3,7 +3,7 @@ # # Copyright (c) 1998 - Dirk Koopman G1TLH # -# $Id$ +# # package DXCron; @@ -219,7 +219,7 @@ sub last_connect { my $call = uc shift; return $main::systime if DXChannel::get($call); - my $user = DXUser->get($call); + my $user = DXUser::get($call); return $user ? $user->lastin : 0; } @@ -293,5 +293,9 @@ sub run_cmd dbg("cmd out: $_") if isdbg('cron'); } } + +# for fallback from mojo branch +sub spawn_cmd {goto &run_cmd}; + 1; __END__