micke/cluster_cron
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Small fix

Browse source
This commit is contained in:
Micke Nordin 2016-09-12 17:33:53 +02:00
parent 4b84429452
commit 871ad44b1c
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
cluster_cron.pl
View file

@ -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
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
unless ($mode == 0) {
# mode 0 = active/passive, mode 1 = active/active
@ -40,6 +38,7 @@ my $time = time;
print "Host: $hostname started run at: $time\n";
print "Mode: $mode, user: $user, shareddir: $shareddir and spooldir: $spooldir\n";
# Create directories
unless (-d $sharedcrondir) {
@ -148,7 +147,7 @@ sub comment_out {
# Remove a # from any crontab entry
sub uncomment {
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");
my $content = '';
while(my $line = <INFILE>) {