version 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) { |