Changeset 7351 for trunk

Timestamp:

2004-05-20T09:23:42+12:00 (20 years ago)

Author:

kjdon

Message:

tell the GLI if nothing processed the document

File:

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

trunk/gsdl/perllib/plugin.pm

@@ -132 +132 @@
     # print $outhandle "WARNING - no plugin could process $file\n";
     }
-    
+    # tell the GLI that it was not processed
+    print STDERR "<Processing n='$file' p=''>\n" if $gli;
+
     $file =~ s/.*?([^\\\/]+)$/$1/;
     &gsprintf($failhandle, "$file: {plugin.no_plugin_could_process_this_file}\n");