Changeset 9584 for trunk/gsdl/perllib/plugins/RecPlug.pm

Timestamp:

2005-04-07T15:01:06+12:00 (19 years ago)

Author:

mdewsnip

Message:

Plugins that return -1 from their read function now must output the ProcessingError tag (when in GLI mode) themselves, rather than having it done in plugin.pm. This is so a reason "r='...'" can be optionally included as to why the processing failed.

File:

• trunk/gsdl/perllib/plugins/RecPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/RecPlug.pm

@@ -235 +235 @@
     # find all the files in the directory
     if (!opendir (DIR, $dirname)) {
-    print $outhandle "RecPlug: WARNING - couldn't read directory $dirname\n";
+    if ($gli) {
+        print STDERR "<ProcessingError n='$file' r='Could not read directory $dirname'>\n";
+    }
+    else {
+        print $outhandle "RecPlug: WARNING - couldn't read directory $dirname\n";
+    }
     return -1; # error in processing
     }