foxridge-archiver/archiver.pl - diff

Return to archiver.pl CVS log

Up to [Repository] / foxridge-archiver

version 1.2, 2004/07/08 17:27:59	version 1.3, 2004/07/12 15:49:17
Line 16 $\|=1;	Line 16 $\|=1;
#	#

# program version	# program version
my $version = "0.5.1 (8.7.2004)";	my $version = "0.5.2 (12.7.2004)";

# rewrite XML file (necessary for archive date!)	# rewrite XML file (necessary for archive date!)
my $fix_xml = 1;	my $fix_xml = 1;
Line 378 if ($errcnt > 0) {	Line 378 if ($errcnt > 0) {
}	}

# start archiving	# start archiving
my $archived_files = run_archive;	my $archived_files = run_archive();
	my $num_archfiles = scalar keys %$archived_files;

print "INFO: ", scalar keys %$archived_files, " files archived\n";	print "INFO: $num_archfiles files archived\n";

# check list of archived files	# check list of archived files
check_files($files_to_archive, $archived_files);	check_files($files_to_archive, $archived_files);
Line 400 if ($errcnt == 0) {	Line 401 if ($errcnt == 0) {

print "INFO: $warncnt warnings\n";	print "INFO: $warncnt warnings\n";
print "INFO: $errcnt errors\n";	print "INFO: $errcnt errors\n";
my $num_archfiles = %$archived_files + 1;
if ($errcnt > 0) {	if ($errcnt > 0) {
print "ABORT: there were errors! ($num_archfiles files archived) at ", stime(time), "\n";	print "ABORT: there were errors! ($num_archfiles files archived) at ", stime(time), "\n";
exit 1;	exit 1;