Show
Ignore:
Timestamp:
13.07.2000 10:21:53 (20 years ago)
Author:
sjboddie
Message:

merged changes to trunk into New_Config_Format branch

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • branches/New_Config_Format-branch/gsdl/bin/script/toutf8.pl

    r630 r1279  
    1 #!/usr/local/bin/perl5 -w 
     1#!/usr/bin/perl -w 
    22 
    33########################################################################### 
     
    3636if (!parsargv::parse(\@ARGV,  
    3737             'unicode', \$unicode, 
    38              'extended', \$extended, 
     38             'iso_8859_1', \$iso_8859_1, 
     39             'iso_8859_6', \$iso_8859_6, 
     40             'windows_1256', \$windows_1256, 
    3941             'gb', \$gb)) { 
    4042    print STDERR "\n  usage: $0 [options]\n\n"; 
    4143    print STDERR "  options:\n"; 
    42     print STDERR "   -utf8     input is in utf-8 or unicode (default)\n"; 
    43     print STDERR "   -extended input is in extended ascii\n"; 
    44     print STDERR "   -gb       input is in GB or GBK\n\n"; 
     44    print STDERR "   -unicode      input is in utf-8 or unicode (default)\n"; 
     45    print STDERR "   -iso_8859_1   input is in extended ascii (ISO-8859-1 Latin 1)\n"; 
     46    print STDERR "   -iso_8859_6   input is in 8 bit Arabic (ISO-8859-6)\n"; 
     47    print STDERR "   -windows_1256 input is in Windows 1256 (Arabic)\n"; 
     48    print STDERR "   -gb           input is in GB or GBK (simplified Chinese)\n\n"; 
    4549    die "\n"; 
    4650} 
    4751 
    4852$encoding = "utf8" if $unicode; 
    49 $encoding = "extended" if $extended; 
     53$encoding = "iso_8859_1" if $iso_8859_1; 
     54$encoding = "iso_8859_6" if $iso_8859_6; 
     55$encoding = "windows_1256" if $windows_1256; 
    5056$encoding = "gb" if $gb; 
    5157