version 1.4, 2005/09/20 17:24:57
|
version 1.5, 2005/10/04 14:36:32
|
Line 184 sub check_dirs {
|
Line 184 sub check_dirs {
|
my $description = sstrip($dirnode->find('child::description')); |
my $description = sstrip($dirnode->find('child::description')); |
# name must be valid |
# name must be valid |
if (! valid_dir_name($dirname)) { |
if (! valid_dir_name($dirname)) { |
|
if ($do_rewrite) { |
|
logger("WARNING", "directory name ($dirpath) $dirname in index file invalid!"); |
|
$warncnt++; |
|
} else { |
logger("ERROR", "directory name ($dirpath) $dirname invalid!"); |
logger("ERROR", "directory name ($dirpath) $dirname invalid!"); |
$errcnt++; |
$errcnt++; |
} |
} |
|
} |
# description can be present |
# description can be present |
if (! $description) { |
if (! $description) { |
logger("WARNING", "description for directory $dirname (in $dirpath/) missing!"); |
logger("WARNING", "description for directory $dirname (in $dirpath/) missing!"); |
Line 274 sub check_files {
|
Line 279 sub check_files {
|
my $filedate = sstrip($filenode->find('child::date')); |
my $filedate = sstrip($filenode->find('child::date')); |
# name must be valid |
# name must be valid |
if (! valid_file_name($filename)) { |
if (! valid_file_name($filename)) { |
|
if ($do_rewrite) { |
|
logger("WARNING", "file name ($filepath)$filename in index file invalid!"); |
|
$warncnt++; |
|
} else { |
logger("ERROR", "file name ($filepath)$filename invalid!"); |
logger("ERROR", "file name ($filepath)$filename invalid!"); |
$errcnt++; |
$errcnt++; |
} |
} |
|
} |
my $fn = ($filepath) ? "$filepath/$filename" : "$filename"; |
my $fn = ($filepath) ? "$filepath/$filename" : "$filename"; |
#logger("file: \"$filename\", \"$filepath\""); |
#logger("file: \"$filename\", \"$filepath\""); |
if ($$fsfiles{$fn}) { |
if ($$fsfiles{$fn}) { |