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

Update cluster_cron.pl

Browse source
This commit is contained in:
Mikael Nordin 2016-09-15 10:56:10 +02:00 • committed by GitHub
parent e9a3f8e497
commit f760df95c7
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
cluster_cron.pl
View file

@ -79,7 +79,7 @@ sub get_nodes {
# Simply write a unix timestamp to a file with our name on it # Simply write a unix timestamp to a file with our name on it
sub write_timestamp { sub write_timestamp {
my $time = time; my $time = time;
open(FILE,"+>$electiondir/$hostname"); open(FILE,"+>$electiondir/$hostname") or die "Could not open file: $!";
print FILE $time; print FILE $time;
close FILE; close FILE;
@ -108,7 +108,7 @@ sub is_active {
} else { } else {
print "I am active\n"; print "I am active\n";
my $outfile = "$sharedcrondir/active"; my $outfile = "$sharedcrondir/active";
open(OUTFILE,"+>$outfile"); open(OUTFILE,"+>$outfile") or die "Could not open file: $!";
print OUTFILE $hostname; print OUTFILE $hostname;
close OUTFILE; close OUTFILE;
} }
@ -142,7 +142,7 @@ sub comment_out {
} }
close INFILE; close INFILE;
open(OUTFILE,"+>$outfile"); open(OUTFILE,"+>$outfile") or die "Could not open file: $!";
print OUTFILE $content; print OUTFILE $content;
close OUTFILE; close OUTFILE;
@ -159,7 +159,7 @@ sub uncomment {
} }
close INFILE; close INFILE;
open(OUTFILE,"+>$outfile"); open(OUTFILE,"+>$outfile") or die "Could not open file: $!";
print OUTFILE $content; print OUTFILE $content;
close OUTFILE; close OUTFILE;