Files
webmin/file/unicode.pl
2007-04-12 19:28:29 +00:00

18 lines
375 B
Perl
Executable File

#!/usr/bin/perl
use Encode::HanConvert;
$ENV{'WEBMIN_CONFIG'} ||= "/etc/webmin";
$ENV{'WEBMIN_VAR'} ||= "/var/webmin";
$no_acl_check++;
do './file-lib.pl';
@lang_order_list = ( "zh_TW.Big5" );
%big5 = &load_language($module_name);
foreach $k (keys %big5) {
$unicode{$k} = big5_to_trad($big5{$k});
}
&write_file("$module_root_directory/unicode/zh_TW.Big5", \%unicode);