Changeset 5093

Timestamp:

2003-08-04T16:36:18+12:00 (21 years ago)

Author:

mdewsnip

Message:

Moved all output messages into the resource bundle (perllib/strings.rb), in preparation for translation.

File:

• trunk/gsdl/bin/script/import.pl (modified) (12 diffs)

trunk/gsdl/bin/script/import.pl

@@ -129 +129 @@
 
 my $options = { 'name' => "import.pl",
-        'desc' => "PERL script used to import files into a GML format ready for building.",
+        'desc' => "{import.desc}",
         'args' => $arguments };
 
@@ -141 +141 @@
     print STDERR "<Info>\n";
     print STDERR "  <Name>$options->{'name'}</Name>\n";
-    print STDERR "  <Desc>$options->{'desc'}</Desc>\n";
+    print STDERR "  <Desc>" . &lookup_string($options->{'desc'}) . "</Desc>\n";
     print STDERR "  <Arguments>\n";
     if (defined($options->{'args'})) {
@@ -165 +165 @@
 
     # Produce the usage information using the data structure above
-    print STDERR " usage: $programname [options] collection-name\n\n";
+    print STDERR " " . &lookup_string("{common.usage}") . ": $programname";
+    print STDERR " " . &lookup_string("{import.params}") . "\n\n";
 
     # Display the program options, if there are some
@@ -172 +173 @@
     local $optiondescoffset = $descoffset + 2;  # 2 spaces between options & descriptions
 
-    print STDERR " options:\n";
+    print STDERR " " . &lookup_string("{common.options}") . ":\n";
 
     # Display the program options
     &PrintUsage::print_options_txt($language, $programargs, $optiondescoffset);
     }
+}
+
+
+sub lookup_string
+{
+    return &PrintUsage::lookup_string($language, shift(@_));
 }
 
@@ -269 +276 @@
     my $close_out = 0;
     if ($out !~ /^(STDERR|STDOUT)$/i) {
-    open (OUT, ">$out") || die "Couldn't open output file $out\n";
+    open (OUT, ">$out") ||
+        die &lookup_string("{common.cannot_open_output_file}") . " $out\n";
     $out = 'import::OUT';
     $close_out = 1;
@@ -287 +295 @@
     $faillog = &util::filename_cat($ENV{'GSDLCOLLECTDIR'}, "etc", "fail.log");
     }
-    open (FAILLOG, ">$faillog") || die "Couldn't open fail log $faillog\n";
+    open (FAILLOG, ">$faillog") ||
+    die &lookup_string("{import.cannot_open_fail_log}") . " $faillog\n";
     my $faillogname = $faillog;
     $faillog = 'import::FAILLOG';
@@ -295 +304 @@
     $sortmeta = undef unless defined $sortmeta && $sortmeta =~ /\S/;
     if (defined $sortmeta && $groupsize > 1) {
-    print $out "WARNING: import.pl cannot sort documents when groupsize > 1\n";
-    print $out "         sortmeta option will be ignored\n\n";
+    print $out &lookup_string("{import.cannot_sort}") . "\n\n";
     $sortmeta = undef;
     }
@@ -377 +385 @@
 
     } else {
-    die "Couldn't find the configuration file $configfilename\n";
+    die &lookup_string("{import.cannot_find_cfg_file}") . " $configfilename\n";
     }
     
@@ -392 +400 @@
     $pluginfo = &plugin::load_plugins ($plugins, $verbosity, $out, $faillog);
     if (scalar(@$pluginfo) == 0) {
-    print $out "No plugins were loaded.\n";
+    print $out &lookup_string("{import.no_plugins_loaded}") . "\n";
     die "\n";
     }
-    
+
     # remove the old contents of the archives directory if needed
     if ($removeold && -e $archivedir) {
-    print $out "Removing current contents of the archives directory\n";
+    print $out &lookup_string("{import.removing_archives}") . "\n";
     sleep(3); # just in case...
     &util::rm_r ($archivedir);
@@ -438 +446 @@
         $close_stats = 1;
     } else {
-        print $out "WARNING: couldn't open stats file $statsfile\n";
-        print $out "         will print stats to STDERR instead\n";
+        print $out &lookup_string("{import.cannot_open_stats_file}") . " $statsfile.";
+        print $out &lookup_string("{import.stats_backup}") . "\n";
         $statsfile = 'STDERR';
     }
@@ -446 +454 @@
     print $out "\n";
     print $out "*********************************************\n";
-    print $out "Import Complete\n";
+    print $out &lookup_string("{import.complete}") . "\n";
     print $out "*********************************************\n";
 
@@ -457 +465 @@
     close FAILLOG;
 }
-