# HG changeset patch
# User casties
# Date 1128436592 -7200
# Node ID 1dd183b95c61f37361a56e4216ede2c93329bce4
# Parent  a3c35eae25dc7fe177d91afe00612e3e4831ea59
-replace deals with invalid filenames in index files now

diff -r a3c35eae25dc -r 1dd183b95c61 metacheck.pl
--- a/metacheck.pl	Fri Sep 23 19:16:17 2005 +0200
+++ b/metacheck.pl	Tue Oct 04 16:36:32 2005 +0200
@@ -184,8 +184,13 @@
 	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 @@
 	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\"");