Changeset 9586

Timestamp:

2005-04-07T15:21:16+12:00 (19 years ago)

Author:

mdewsnip

Message:

Added a ProcessingError message so the GLI knows when a file failed to be processed due to containing no text.

File:

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

trunk/gsdl/perllib/plugins/BasPlug.pm

@@ -720 +720 @@
     if (!length ($text)) {
     my $plugin_name = ref ($self);
-    gsprintf($outhandle, "$plugin_name: {BasPlug.file_has_no_text}\n", $filename) if $self->{'verbosity'};
+    if ($gli) {
+        print STDERR "<ProcessingError n='$file' r='File contains no text'>\n";
+    }
+    else {
+        gsprintf($outhandle, "$plugin_name: {BasPlug.file_has_no_text}\n", $filename) if $self->{'verbosity'};
+    }
 
     my $failhandle = $self->{'failhandle'};