#!/usr/bin/perl
our $outputPath = "/data/WebGUI/lib/WebGUI/i18n";
our $languageId = "Russian";
our $webguiPath = "/data/WebGUI";
our $editor_lang = "en";
our $extras_url = "/extras";
our $notest_no_UTF = "Charset of Your translation is not UTF-8. You must to convert it before to use this program.";
#----no need to edit below this line -------------
use strict;
use CGI qw (:standart);
use CGI::Carp qw (fatalsToBrowser);
use URI::Escape;
#-----main----------------
$|=1; # disable output buffer
our $cgi = CGI->new;
our $editor_on;
my $lang = getLanguage();
my $lang_charset = $lang->{charset} || "UTF-8";
if ($cgi->param("is_editor_on") ne "") {
our $editor_cookie;
$editor_cookie = $cgi->cookie(-name=>'visual_editor_on',
-expires=>'+48h',
-value=>[$cgi->param("is_editor_on")]);
print $cgi->header(
-cookie=>$editor_cookie,
-expires=>'-1d',
-charset=>$lang_charset
);
$editor_on = $cgi->param("is_editor_on");
} else {
print $cgi->header(
-charset=>$lang_charset
);
$editor_on = $cgi->cookie('visual_editor_on');
}
if ($cgi->param("op") ne "") {
print header($lang);
if ($cgi->param("op") =~ /^[[:alpha:]]+$/) {
my $cmd = "&www_".$cgi->param("op");
print eval($cmd);
} else {
print "Stop Screwing Around
";
}
print footer();
} else {
print buildSiteFrames();
}
#-----end main------------
sub buildSiteFrames {
my $output = '
WebGUI Internationalization Editor
';
return $output;
}
sub buildURL {
my $op = shift;
my $params = shift;
my $url = $ENV{SCRIPT_NAME}.'?op='.$op;
foreach my $param (keys %{$params}) {
$url .= '&'.$param.'='.uri_escape($params->{$param});
}
return $url;
}
sub fixFormData {
my $value = shift;
$value =~ s/\"/\"\;/g;
$value =~ s/\&/\&\;/g;
$value =~ s/\/\>\;/g;
return $value;
}
sub footer {
return '