#
#========================================================================
#
-# Version 3.0.0beta1, released 30 Jul 2006.
+# Version 3.0.0beta2, released 18 Nov 2006.
#
# See http://backuppc.sourceforge.net.
#
# Read old status
#
if ( -f "$LogDir/status.pl" && !(my $ret = do "$LogDir/status.pl") ) {
- die "couldn't parse $LogDir/status.pl: $@" if $@;
- die "couldn't do $LogDir/status.pl: $!" unless defined $ret;
- die "couldn't run $LogDir/status.pl";
+ if ( $@ ) {
+ print STDERR "couldn't parse $LogDir/status.pl: $@";
+ } elsif ( !defined($ret) ) {
+ print STDERR "couldn't do $LogDir/status.pl: $!";
+ } else {
+ print STDERR "couldn't run $LogDir/status.pl";
+ }
}
#
# Write out our initial status and save our PID
#
StatusWrite();
+ unlink("$LogDir/BackupPC.pid");
if ( open(PID, ">", "$LogDir/BackupPC.pid") ) {
print(PID $$);
close(PID);
+ chmod(0444, "$LogDir/BackupPC.pid");
}
#