foxridge-archiver/archiver.pl - diff

Return to archiver.pl CVS log

Up to [Repository] / foxridge-archiver

version 1.1, 2004/06/17 15:58:42	version 1.2, 2004/07/08 17:27:59
Line 16 $\|=1;	Line 16 $\|=1;
#	#

# program version	# program version
my $version = "0.5 (15.1.2004)";	my $version = "0.5.1 (8.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 64 if ($#ARGV < 0) {	Line 64 if ($#ARGV < 0) {
exit 1;	exit 1;
}	}
my $docdir = $ARGV[0];	my $docdir = $ARGV[0];
	# strip double slashes
	$docdir =~ s/\/\//\//;
# strip trailing slashes	# strip trailing slashes
$docdir =~ s/\/$//;	$docdir =~ s/\/+$//;
if (! -d $docdir) {	if (! -d $docdir) {
print "ABORT: document directory \'$docdir\' doesn't exist!\n";	print "ABORT: document directory \'$docdir\' doesn't exist!\n";
exit 1;	exit 1;