We should be able to access strings with uppercase letters -- oops. Changing...

We should be able to access strings with uppercase letters -- oops. Changing regexp to include 'A-Z' as well as 'a-z'. Also adding a dump statement in the failure case to help when analysing the log looking for a bug.

webtools/PLIF/PLIF/DataSource/FileStrings.pm

@@ -54,7 +54,7 @@ sub getDefaultString {
     # XXX THIS IS PLATFORM SPECIFIC CODE XXX
     if ($^O eq 'linux') {
         foreach my $piece ($protocol, $string) {
-            $piece =~ s/[^a-z\/0-9.]/_/gos;
+            $piece =~ s/[^a-zA-Z\/0-9.]/_/gos;
         }
         $filename = "output/$protocol/$string";
     } else {
@@ -75,6 +75,7 @@ sub getDefaultString {
         return ($type, $data);
     } else {
         # file does not exist
+        $self->dump(9, "No file for string '$string' in protocol '$protocol' (looking for '$filename')4");
         return; # no can do, sir
     }
 }