[BACK]Return to metacheck.pl CVS log [TXT] [DIR] Up to [Repository] / foxridge-archiver

Diff for /foxridge-archiver/metacheck.pl between versions 1.4 and 1.5

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}) {
Removed from v.1.4  
changed lines
  Added in v.1.5

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>