master
Micke Nordin 8 years ago
parent 4b84429452
commit 871ad44b1c

@ -16,8 +16,6 @@ if ($num_args < 2) {
# We need a common directory for our nodes to write and read state from plus a couple of cronfiles # We need a common directory for our nodes to write and read state from plus a couple of cronfiles
my ($user, $shareddir, $mode, $spooldir) = @ARGV; my ($user, $shareddir, $mode, $spooldir) = @ARGV;
print "Mode: $mode, user: $user, shareddir: $shareddir and spooldir: $spooldir\n";
# Set some defaults if we didn't get them # Set some defaults if we didn't get them
unless ($mode == 0) { unless ($mode == 0) {
# mode 0 = active/passive, mode 1 = active/active # mode 0 = active/passive, mode 1 = active/active
@ -40,6 +38,7 @@ my $time = time;
print "Host: $hostname started run at: $time\n"; print "Host: $hostname started run at: $time\n";
print "Mode: $mode, user: $user, shareddir: $shareddir and spooldir: $spooldir\n";
# Create directories # Create directories
unless (-d $sharedcrondir) { unless (-d $sharedcrondir) {
@ -148,7 +147,7 @@ sub comment_out {
# Remove a # from any crontab entry # Remove a # from any crontab entry
sub uncomment { sub uncomment {
my ($infile, $outfile) = @_; my ($infile, $outfile) = @_;
print "Unommenting, infile is $infile and outfile is $outfile\n"; print "Uncommenting, infile is $infile and outfile is $outfile\n";
open(INFILE,"<$infile"); open(INFILE,"<$infile");
my $content = ''; my $content = '';
while(my $line = <INFILE>) { while(my $line = <INFILE>) {

Loading…
Cancel
Save