Let's outlaw whitespace in keywords.

editkeywords.cgi

@@ -88,8 +88,8 @@ sub Validate ($$) {
         PutTrailer($localtrailer);
         exit;
     }
-    if ($name =~ /,/) {
-        print "You may not use commas in a keyword name.\n";
+    if ($name =~ /[\s,]/) {
+        print "You may not use commas or whitespace in a keyword name.\n";
         print "Please press <b>Back</b> and try again.\n";
         PutTrailer($localtrailer);
         exit;

sanitycheck.cgi

@@ -234,7 +234,7 @@ while (@row = FetchSQLData()) {
         Alert("Duplicate entry in keyworddefs for id $id");
     }
     $keywordids{$id} = 1;
-    if ($name =~ /,/ || $name =~ /^\s/ || $name =~ /\s$/) {
+    if ($name =~ /[\s,]/) {
         Alert("Bogus name in keyworddefs for id $id");
     }
 }