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