#!/usr/bin/perl #Torque Translation Support Program #by eucalyptus. [ SATO Keiichi ] 2012 / kei@eucaly.net #cgiurl $cgiurl = "http://torque.eucaly.net/"; #datadir $datadir = "/data/torque/data"; #translation base file $tbfilename = $datadir . "/Language_utf8.txt"; #password $password = "password"; use Encode; if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $query_string, $ENV{'CONTENT_LENGTH'});} else {$query_string = $ENV{'QUERY_STRING'};} @a = split(/&/, $query_string); foreach $x (@a) { ($name, $value) = split(/=/, $x); $value =~ tr/+/ /; $value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg; $value =~ s///g; $value =~ s/script//g; if ($value ne ""){ $FORM{$name} = $value; } } if ((length($FORM{trans__lang})) != 2){ $FORM{trans__lang} = ""; } $FORM{trans__lang} = lc ($FORM{trans__lang}); if ($FORM{trans__lang} =~ /[^a-z]/){ $FORM{trans__lang} = ""; } $transfilename = $datadir . "/language_$FORM{trans__lang}_utf8.txt"; if ($FORM{trans__action} eq "trans_rend"){&trans_rend;} if ($FORM{trans__action} eq "trans_rend_16be"){&trans_rend_16be;} print "Content-type: text/html\n\n"; print "Torque Translation Support"; print "Torque Translation Support By eucalyptus.
"; print "Program support lang-code : UTF-8 only.
But, Support Torque Special Rendaring ( UTF-16BE ) encode translation.
"; if ($FORM{trans__lang} eq ""){ &langselect; } else { if (!-e $transfilename){ print "ERROR : MISSING TRANSLATION BASE FILE
" } print "Translation Target : [$FORM{trans__lang}]
"; ($time_reload) = (stat($transfilename))[9]; (@date) = localtime ($time_reload); $time_reload = sprintf("%02d/%02d %02d:%02d",$date[4]+1,$date[3],$date[2],$date[1]); print "target filename : $transfilename
update : $time_reload

"; if ($FORM{trans__action} eq "trans_edit"){&trans_edit;} elsif ($FORM{trans__action} eq "trans_accept"){&trans_accept;} else { &mainmenu; } } print "

By eucalyptus. 2012."; exit; sub mainmenu{ print "
"; print "action?:
"; print "
"; print "
"; print "
"; print "


"; } sub langselect{ print "
"; print "enter translation lang (eg : japanese:ja italian:it) *must be 2 bytes.
"; opendir (DIR,$datadir); (@dirarray) = readdir (DIR); closedir (DIR); print "language file : "; foreach $line (@dirarray){ if ($line =~ /language_(\w\w)_utf8/) { print "$1, "; } } print " exists.
"; print "


"; } sub trans_edit{ print ""; print ""; open (BASEFILE,$tbfilename); (@basearray) = (); close (BASEFILE); open (TRANSFILE,$transfilename); (@transarray) = (); close (TRANSFILE); undef %transdata; foreach $transline (@transarray) { chomp ($transline); if ($transline =~ /^#/){ next; } ($title,$value) = split(/\=/,$transline); $title =~ s/\W//g; $title = lc ($title); $transdata{$title} = $value; } foreach $baseline (@basearray) { chomp ($baseline); print ""; if ($baseline =~ /^#/){ print ""; print ""; } elsif ($baseline =~ /(.+?)=(.*)/){ $title = $1; $value = $2; $title =~ s/\W//g; $title = lc ($title); $transvalue = $transdata{$title}; print ""; print ""; } print ""; } print "
$baseline$value
"; print "
edit password:


"; } sub trans_accept{ if ($FORM{trans__password} ne $password){ print "ERROR : Password missmatch!
"; &mainmenu; return; } open (BASEFILE,$tbfilename); (@basearray) = (); close (BASEFILE); open (OUTPUT,">$transfilename"); print OUTPUT "#Torque Translation File For $FORM{trans__lang}\n"; @dtttime = gmtime (time); print OUTPUT '#' . sprintf("%s, %02d %s %d %02d:%02d:%02d GMT",('Sun','Mon','Tue','Wed','Thu','Fri','Sat')[$dtttime[6]],$dtttime[3],('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')[$dtttime[4]],$dtttime[5] + 1900, @dtttime[2,1,0]) . "\n"; foreach $baseline (@basearray) { chomp ($baseline); if ($baseline =~ /^#/){ next; } elsif ($baseline =~ /(.+?)=(.*)/){ $title = $1; $titles = $title; $titles =~ s/\W//g; $titles = lc ($titles); $transvalue = $FORM{$titles}; print OUTPUT $title."=".$transvalue."\n"; } } close (OUTPUT); print "Update Complete!
"; &mainmenu; } sub trans_rend { print "Content-type: text/plain; charset=utf-8;\n\n"; open (REND,$transfilename); (@filearray) = (); close (REND); foreach $line (@filearray){ print $line; } exit; } sub trans_rend_16be { print "Content-type: text/plain; charset=utf-8;\n\n"; open (REND,$transfilename); (@filearray) = (); close (REND); foreach $line (@filearray){ chomp ($line); if ($line =~ /^#/){ chomp ($line); print $line . "\n"; next; } if ($line =~ /(.+?)=(.*)/){ $title = $1; $value = $2; } Encode::from_to($value,'utf8','utf16be'); $strvalue = ""; (@strarray) = split(//,$value); $numcount = 0; foreach $strline (@strarray){ $stroutput = ""; $num16 = unpack('H2',$strline); if ($numcount == 0){ $num16f = $num16; $numcount = 1; next; } else { $num16 = $num16f . $num16; $numcount = 0; } if ($num16 =~ /^00/){ $stroutput = pack("H*",$num16); Encode::from_to($stroutput,'utf16be','cp932'); } else { if ($num16 =~ /(..)(..)/){ $stroutput = "\\u$1$2"; } } $strvalue .= $stroutput; } print $title . "=" . $strvalue . "\n"; } exit; }