Changeset 5682 for trunk/gsdl/perllib/plugin.pm

Timestamp:

2003-10-20T15:08:01+13:00 (21 years ago)

Author:

mdewsnip

Message:

Changed to use the gsprintf module, which makes using strings from the resource bundle much easier.

File:

• trunk/gsdl/perllib/plugin.pm (modified) (6 diffs)

trunk/gsdl/perllib/plugin.pm

@@ -27 +27 @@
 
 require util;
+use gsprintf;
 
 my $stats = {'num_processed' => 0,
@@ -33 +34 @@
          'num_archives' => 0
          };
+
+
+sub gsprintf
+{
+    return &gsprintf::gsprintf(@_);
+}
+
 
 sub load_plugins {
@@ -54 +62 @@
     if (-e $colplugname) { require $colplugname; }
     elsif (-e $mainplugname) { require $mainplugname; }
-    else { die "ERROR - couldn't find plugin \"$pluginname\"\n"; }
+    else { &gsprintf(STDERR, "{plugin.could_not_find_plugin}\n", $pluginname) && die "\n";
+           # die "ERROR - couldn't find plugin \"$pluginname\"\n";
+       }
 
     # create a plugin object
@@ -90 +100 @@
     # an import.pl or buildcol.pl process
     if (-e &util::filename_cat ($ENV{'GSDLCOLLECTDIR'}, ".kill")) {
-    print $outhandle "Process killed by .kill file\n";
+    &gsprintf($outhandle, "{plugin.kill_file}\n");
+    # print $outhandle "Process killed by .kill file\n";
     die "\n";
     }
@@ -103 +114 @@
 
     if ($verbosity >= 2) {
-    print $outhandle "WARNING - no plugin could process $file\n";
+    &gsprintf($outhandle, "{plugin.no_plugin_could_process}\n", $file);
+    # print $outhandle "WARNING - no plugin could process $file\n";
     }
     
     $file =~ s/.*?([^\\\/]+)$/$1/;
-    print $failhandle "$file: no plugin could process this file\n";
+    &gsprintf($failhandle, "$file: {plugin.no_plugin_could_process_this_file}\n");
+    # print $failhandle "$file: no plugin could process this file\n";
     $stats->{'num_not_processed'} ++;
 
@@ -127 +140 @@
 
     if ($total == 1) {
-    print $statshandle "* 1 document was considered for processing\n";
+    &gsprintf($statshandle, "* {plugin.one_considered}\n");
+    # print $statshandle "* 1 document was considered for processing\n";
     } else {
-    print $statshandle "* $total documents were considered for processing\n";
+    &gsprintf($statshandle, "* {plugin.n_considered}\n", $total);
+    # print $statshandle "* $total documents were considered for processing\n";
     }
     if ($stats->{'num_archives'}) {
-    print $statshandle "   (including the contents of " . $stats->{'num_archives'} .
-        " ZIP/TAR archive";
-    if ($stats->{'num_archives'} == 1) {print $statshandle ")\n";}
-    else {print $statshandle "s)\n";}
+    # print $statshandle "   (including the contents of " . $stats->{'num_archives'} .
+    #     " ZIP/TAR archive";
+    if ($stats->{'num_archives'} == 1) {
+        &gsprintf($statshandle, "   ({plugin.including_archive})\n");
+        # print $statshandle ")\n";}
+    }
+    else {
+        &gsprintf($statshandle, "   ({plugin.including_archives})\n", $stats->{'num_archives'});
+        # print $statshandle "s)\n";}
+    }
     }
     if ($stats->{'num_processed'} == 1) {
-    print $statshandle "* 1 was processed and included in the collection\n";
+    &gsprintf($statshandle, "* {plugin.one_included}\n");
+    # print $statshandle "* 1 was processed and included in the collection\n";
     } else {
-    print $statshandle "* " . $stats->{'num_processed'} . " were processed and included in the collection\n";
+    &gsprintf($statshandle, "* {plugin.n_included}\n", $stats->{'num_processed'});
+    # print $statshandle "* " . $stats->{'num_processed'} . " were processed and included in the collection\n";
     }
     if ($stats->{'num_not_processed'}) {
     if ($stats->{'num_not_processed'} == 1) {
-        print $statshandle "* 1 was rejected.";
+        &gsprintf($statshandle, "* {plugin.one_rejected}\n");
+        # print $statshandle "* 1 was rejected.";
     } else {
-        print $statshandle "* " . $stats->{'num_not_processed'} . " were rejected.";
-    } 
-    print $statshandle " See $faillog for a list of rejected documents\n";
+        &gsprintf($statshandle, "* {plugin.n_rejected}\n", $stats->{'num_not_processed'});
+        # print $statshandle "* " . $stats->{'num_not_processed'} . " were rejected.";
+    }
+    &gsprintf($statshandle, " {plugin.see_faillog}\n", $faillog);
+    # print $statshandle " See $faillog for a list of rejected documents\n";
     }
 }