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; |