foxridge-archiver/archivecheck.pl - diff

Return to archivecheck.pl CVS log

Up to [Repository] / foxridge-archiver

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;