Changeset 7830

Timestamp:

2004-07-30T13:08:55+12:00 (20 years ago)

Author:

jrm21

Message:

change a couple of error messages to using gsprintf translated strings instead.

Location:

trunk/gsdl/perllib/plugins

Files:

• EMAILPlug.pm (modified) (4 diffs)
• SplitPlug.pm (modified) (2 diffs)

trunk/gsdl/perllib/plugins/EMAILPlug.pm

@@ -64 +64 @@
 # 12/05/02 Added usage datastructure - John Thompson
 
+use strict;
+no strict "refs"; # so we can use a variable as a filehandle for print $out
+
 package EMAILPlug;
 
 use SplitPlug;
-
-use unicode;
+# EMAILPlug is a sub-class of SplitPlug.
+@EMAILPlug::ISA = ('SplitPlug');
+
+use unicode;  # gs conv functions
+use gsprintf 'gsprintf'; # translations
 
 use sorttools;
@@ -74 +80 @@
 
 
-# EMAILPlug is a sub-class of SplitPlug.
-
-sub BEGIN { 
-    @ISA = ('SplitPlug');
-}
-
-use strict;
-no strict "refs"; # so we can use a variable as a filehandle for print $out
 
 my $arguments = 
@@ -176 +174 @@
     print STDERR "<Processing n='$file' p='EMAILPlug'>\n" if ($gli);
 
-    print $outhandle "EMAILPlug: processing $file\n" 
+    gsprintf($outhandle, "EMAILPlug: {common.processing} $file\n")
     if $self->{'verbosity'} > 1;
 
@@ -577 +575 @@
         # or it was an empty message...
         # do nothing...
-        print $outhandle "EMAILPlug: no text - empty body?\n";
+        gsprintf($outhandle, "{BasPlug.empty_file} - empty body?\n");
         } else {
         $text = $part_text;

trunk/gsdl/perllib/plugins/SplitPlug.pm

@@ -41 +41 @@
 
 use BasPlug;
+# SplitPlug is a sub-class of BasPlug.
+@SplitPlug::ISA = ('BasPlug');
+use gsprintf 'gsprintf';
 use util;
 
 
-# SplitPlug is a sub-class of BasPlug.
-sub BEGIN {
-    @ISA = ('BasPlug');
-}
 
 my $arguments =
@@ -147 +146 @@
     if ($text !~ /\w/) {
     my $outhandle = $self->{'outhandle'};
-    print $outhandle "$plugin_name: ERROR: $file contains no text\n" 
+    gsprintf($outhandle, "$plugin_name: {BasPlug.file_has_no_text}\n",
+            $file)
         if $self->{'verbosity'};