#
# Copyright (c) 1998 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
package DXCron;
if ($cron->{cmd}) {
dbg("cron: $min $hour $mday $mon $wday -> doing '$cron->{cmd}'") if isdbg('cron');
- eval "$cron->{cmd}";
+ eval $cron->{cmd};
dbg("cron: cmd error $@") if $@ && isdbg('cron');
}
}
{
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;
}
dbg("cmd out: $_") if isdbg('cron');
}
}
+
+# for fallback from mojo branch
+sub spawn_cmd {goto &run_cmd};
+
1;
__END__