version 1.2, 2004/11/30 12:39:51
|
version 1.3, 2005/03/23 12:12:08
|
Line 16 $|=1;
|
Line 16 $|=1;
|
# |
# |
|
|
# program version |
# program version |
my $version = "0.4 (30.11.2004)"; |
my $version = "0.4.1 (15.2.2005)"; |
|
|
# read command line parameters |
# read command line parameters |
my $args = parseargs; |
my $args = parseargs; |
Line 322 sub compare_files {
|
Line 322 sub compare_files {
|
logger("ERROR", "archived $ft ($atime) is older than file on disk ($ftime)!"); |
logger("ERROR", "archived $ft ($atime) is older than file on disk ($ftime)!"); |
$errcnt++; |
$errcnt++; |
} else { |
} else { |
logger("ERROR", "archived file $ft still on disk"); |
logger("WARNING", "archived file $ft still on disk"); |
$errcnt++; |
$warncnt++; |
} |
} |
} else { |
} else { |
logger("ERROR", "file on disk '$ft' is not in archive!"); |
logger("ERROR", "file on disk '$ft' is not in archive!"); |
Line 399 logger("INFO", "$warncnt warnings");
|
Line 399 logger("INFO", "$warncnt warnings");
|
logger("INFO", "$errcnt errors"); |
logger("INFO", "$errcnt errors"); |
if ($errcnt == 0) { |
if ($errcnt == 0) { |
logger("DONE", "" . (scalar keys %archived_files) . " archived files OK"); |
logger("DONE", "" . (scalar keys %archived_files) . " archived files OK"); |
|
exit 0; |
} else { |
} else { |
logger("ABORT", "there were $errcnt errors!!"); |
logger("ABORT", "there were $errcnt errors!!"); |
exit 1; |
exit 1; |