file/unicode.pl

   1 #!/usr/bin/perl
   2
   3 use Encode::HanConvert;
   4
   5 $ENV{'WEBMIN_CONFIG'} ||= "/etc/webmin";
   6 $ENV{'WEBMIN_VAR'} ||= "/var/webmin";
   7 $no_acl_check++;
   8 do './file-lib.pl';
   9
  10 @lang_order_list = ( "zh_TW.Big5" );
  11 %big5 = &load_language($module_name);
  12
  13 foreach $k (keys %big5) {
  14         $unicode{$k} = big5_to_trad($big5{$k});
  15         }
  16
  17 &write_file("$module_root_directory/unicode/zh_TW.Big5", \%unicode);