foxridge-archiver/metacheck.pl - diff

Return to metacheck.pl CVS log

Up to [Repository] / foxridge-archiver

version 1.1.1.1, 2004/06/17 15:58:42	version 1.3, 2004/07/08 17:30:05
Line 14 $\|=1;	Line 14 $\|=1;
#	#

# program version	# program version
my $version = "0.5.2 (7.1.2004)";	my $version = "0.5.3 (8.7.2004)";

# read command line parameters	# read command line parameters
my $args = MPIWGStor::parseargs;	my $args = MPIWGStor::parseargs;
Line 45 if (! $docdir) {	Line 45 if (! $docdir) {
logger("ABORT", "no document directory given!");	logger("ABORT", "no document directory given!");
exit 1;	exit 1;
}	}
	# strip double slashes
	$docdir =~ s/\/\//\//;
# strip trailing slashes	# strip trailing slashes
$docdir =~ s/\/$//;	$docdir =~ s/\/$//;
if (! -d $docdir) {	if (! -d $docdir) {