add mojo->master fallback compatibility

This commit is contained in:
Dirk Koopman 2017-02-21 11:54:26 +00:00
parent 6bcb0688c4
commit bb9f4159e5
3 changed files with 15 additions and 1 deletions

View File

@ -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__

View File

@ -1,4 +1,4 @@
#
# -*- perl -*-
# The system variables - those indicated will need to be changed to suit your
# circumstances (and callsign)
#

View File

@ -12,6 +12,11 @@
require 5.004;
package main;
# set default paths, these should be overwritten by DXVars.pm
use vars qw($data $system $cmd $localcmd $userfn);
# make sure that modules are searched in the order local then perl
BEGIN {
umask 002;
@ -30,6 +35,11 @@ BEGIN {
mkdir "$root/local_cmd", 0777 unless -d "$root/local_cmd";
$data = "$root/data";
$system = "$root/sys";
$cmd = "$root/cmd";
$localcmd = "$root/local_cmd";
$userfn = "$data/users";
# try to create and lock a lockfile (this isn't atomic but
# should do for now