Changeset 6994

Timestamp:

2004-03-09T17:01:04+13:00 (20 years ago)

Author:

jrm21

Message:

use the terminal's char encoding for gsprintf output, if it is set.

File:

• trunk/gsdl/bin/script/pluginfo.pl (modified) (3 diffs)

trunk/gsdl/bin/script/pluginfo.pl

@@ -74 +74 @@
     my $xml = 0;
 
-    my $language;
+    my ($language, $encoding);
 
     if (!parsargv::parse(\@ARGV,
@@ -90 +90 @@
     m/^([^\.]+)\.?(.*)/;
     $language=$1;
-# gsprintf doesn't do anything about encoding, hard-coded to iso-8859-1!!
-    # my $encoding=$2; # might be undef...
+    $encoding=$2; # might be undef...
 # gsprintf::load_language* thinks "fr" is completely different to "fr_FR"...
     $language =~ s/_.*$//;
@@ -100 +99 @@
     if ($language) {
     gsprintf::load_language_specific_resource_bundle($language);
+    if ($encoding) {
+        $encoding =~ tr/-/_/;
+        $encoding =~ s/utf_8/utf8/i; # special
+        $gsprintf::specialoutputencoding=$encoding;
+    }
     }