#!/usr/bin/perl -wT # -*- Mode: perl; indent-tabs-mode: nil -*- # # The contents of this file are subject to the Mozilla Public # License Version 1.1 (the "License"); you may not use this file # except in compliance with the License. You may obtain a copy of # the License at http://www.mozilla.org/MPL/ # # Software distributed under the License is distributed on an "AS # IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or # implied. See the License for the specific language governing # rights and limitations under the License. # # The Original Code is the Bugzilla Bug Tracking System. # # Contributor(s): Max Kanat-Alexander package Bugzilla::ModPerl; use strict; # If you have an Apache2::Status handler in your Apache configuration, # you need to load Apache2::Status *here*, so that Apache::DBI can # report information to Apache2::Status. #use Apache2::Status (); # We don't want to import anything into the global scope during # startup, so we always specify () after using any module in this # file. use Apache2::ServerUtil; use Apache2::SizeLimit; use ModPerl::RegistryLoader (); use CGI (); CGI->compile(qw(:cgi -no_xhtml -oldstyle_urls :private_tempfiles :unique_headers SERVER_PUSH :push)); use Template::Config (); Template::Config->preload(); use Bugzilla (); use Bugzilla::Constants (); use Bugzilla::CGI (); use Bugzilla::Mailer (); use Bugzilla::Template (); use Bugzilla::Util (); # This means that every httpd child will die after processing # a CGI if it is taking up more than 70MB of RAM all by itself. $Apache2::SizeLimit::MAX_UNSHARED_SIZE = 70000; my $cgi_path = Bugzilla::Constants::bz_locations()->{'cgi_path'}; # Set up the configuration for the web server my $server = Apache2::ServerUtil->server; my $conf = < AddHandler perl-script .cgi # No need to PerlModule these because they're already defined in mod_perl.pl PerlResponseHandler Bugzilla::ModPerl::ResponseHandler PerlCleanupHandler Bugzilla::ModPerl::CleanupHandler PerlCleanupHandler Apache2::SizeLimit PerlOptions +ParseHeaders Options +ExecCGI AllowOverride Limit DirectoryIndex index.cgi index.html EOT $server->add_config([split("\n", $conf)]); # Have ModPerl::RegistryLoader pre-compile all CGI scripts. my $rl = new ModPerl::RegistryLoader(); # If we try to do this in "new" it fails because it looks for a # Bugzilla/ModPerl/ResponseHandler.pm $rl->{package} = 'Bugzilla::ModPerl::ResponseHandler'; # Note that $cgi_path will be wrong if somebody puts the libraries # in a different place than the CGIs. foreach my $file (glob "$cgi_path/*.cgi") { Bugzilla::Util::trick_taint($file); $rl->handler($file, $file); } package Bugzilla::ModPerl::ResponseHandler; use strict; use base qw(ModPerl::Registry); use Bugzilla; sub handler : method { my $class = shift; # $0 is broken under mod_perl before 2.0.2, so we have to set it # here explicitly or init_page's shutdownhtml code won't work right. $0 = $ENV{'SCRIPT_FILENAME'}; Bugzilla::init_page(); return $class->SUPER::handler(@_); } package Bugzilla::ModPerl::CleanupHandler; use strict; use Apache2::Const -compile => qw(OK); sub handler { my $r = shift; Bugzilla::_cleanup(); # Sometimes mod_perl doesn't properly call DESTROY on all # the objects in pnotes() foreach my $key (keys %{$r->pnotes}) { delete $r->pnotes->{$key}; } return Apache2::Const::OK; } 1; d class='sub right'>Thierry Vignaud [tv]
summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPablo Saratxaga <pablo@mandriva.com>2000-04-11 16:23:29 +0000
committerPablo Saratxaga <pablo@mandriva.com>2000-04-11 16:23:29 +0000
commit270af6008741d1a94b885668072eb5fc51b906bc (patch)
tree78438cf38d2fac98316459b9b7b8ec2d63a59efa
parentdec0bdbb64a662c2276fcca1afb3e069143990ac (diff)
downloaddrakx-backup-do-not-use-270af6008741d1a94b885668072eb5fc51b906bc.tar
drakx-backup-do-not-use-270af6008741d1a94b885668072eb5fc51b906bc.tar.gz
drakx-backup-do-not-use-270af6008741d1a94b885668072eb5fc51b906bc.tar.bz2
drakx-backup-do-not-use-270af6008741d1a94b885668072eb5fc51b906bc.tar.xz
drakx-backup-do-not-use-270af6008741d1a94b885668072eb5fc51b906bc.zip
updated language selections
-rw-r--r--perl-install/lang.pm28
-rw-r--r--perl-install/pkgs.pm41
2 files changed, 49 insertions, 20 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index e7199a2f0..90b37e751 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -20,7 +20,7 @@ my %languages = (
'en' => [ 'English (US)', undef, 'en', 'en_US:en' ],
'en_GB' => [ 'English (UK)', 'iso-8859-1', 'en', 'en_GB:en' ],
'af' => [ 'Afrikaans', 'iso-8859-1', 'af', 'af:en_ZA' ],
-#-'ar' => [ 'Arabic', 'iso-8859-6', 'ar', 'ar' ],
+ 'ar' => [ 'Arabic', 'iso-8859-6', 'ar', 'ar' ],
'bg' => [ 'Bulgarian', 'cp1251', 'bg', 'bg' ],
'br' => [ 'Brezhoneg', 'iso-8859-1', 'br', 'br:fr_FR:fr' ],
'ca' => [ 'Catalan', 'iso-8859-1', 'ca', 'ca:es_ES:es:fr_FR:fr' ],
@@ -39,14 +39,15 @@ my %languages = (
'eu' => [ 'Euskara (Basque)', 'iso-8859-1', 'eu', 'eu:es_ES:fr_FR:es:fr' ],
#-'fa' => [ 'Farsi (Iranian)', 'isiri-3342', 'fa', 'fa' ],
'fi' => [ 'Suomi (Finnish)', 'iso-8859-1', 'fi', 'fi' ],
+#-'fo' => [ 'Faroese', 'iso-8859-1', 'fo', 'fo:??:??' ],
'fr_CA' => [ 'French (Canada)', 'iso-8859-1', 'fr', 'fr_CA:fr' ],
'fr_FR' => [ 'French (France)', 'iso-8859-1', 'fr', 'fr_FR:fr' ],
-#-'fo' => [ 'Faroese', 'iso-8859-1', 'fo', 'fo:??:??' ],
'ga' => [ 'Gaeilge (Irish)', 'iso-8859-14','ga', 'ga:en_IE:en' ],
#-'gd' => [ 'Sottish gaelic', 'iso-8859-14','gd', 'gd:en_GB:en' ],
'gl' => [ 'Galician', 'iso-8859-1', 'gl', 'gl:es_ES:pt_PT:pt_BR:es:pt' ],
+#-'gv' => [ 'Manx gaelic', 'iso-8859-14','gv', 'gv:en_GB:en' ],
#- 'iw' was the old code for hebrew language
-#-'he' => [ 'Hebrew', 'iso-8859-8', 'he', 'he:iw_IL' ],
+ 'he' => [ 'Hebrew', 'iso-8859-8', 'he', 'he:iw_IL' ],
'hr' => [ 'Croatian', 'iso-8859-2', 'hr', 'hr' ],
'hu' => [ 'Hungarian', 'iso-8859-2', 'hu', 'hu' ],
'hy' => [ 'Armenian', 'armscii-8', 'hy', 'hy' ],
@@ -57,11 +58,12 @@ my %languages = (
'it' => [ 'Italian', 'iso-8859-1', 'it', 'it_IT:it' ],
'ja' => [ 'Japanese', 'jisx0208', 'ja', 'ja_JP.ujis:ja' ],
'ka' => [ 'Georgian', 'georgian-academy', 'ka', 'ka' ],
-#-'kl' => [ 'Greenlandic (inuit)', 'iso-8859-1', 'kl', 'kl' ],
+ 'kl' => [ 'Greenlandic (inuit)', 'iso-8859-1', 'kl', 'kl' ],
'ko' => [ 'Korean', 'ksc5601', 'ko', 'ko' ],
+#-'kw' => [ 'Cornish gaelic', 'iso-8859-14','kw', 'kw:en_GB:en' ],
#-'lo' => [ 'Laotian', 'mulelao-1', 'lo', 'lo' ],
'lt' => [ 'Lithuanian', 'iso-8859-13','lt', 'lt' ],
-#-'lv' => [ 'Latvian', 'iso-8859-13','lv', 'lv' ],
+ 'lv' => [ 'Latvian', 'iso-8859-13','lv', 'lv' ],
#-'mk' => [ 'Macedonian (Cyrillic)', 'iso-8859-5', 'mk', 'mk:sp:sr' ],
#-'mk_latin'=> [ 'Macedonian (Latin)', 'iso-8859-2', 'mk_latin', 'mk_latin:sr' ],
#-'ms' => [ 'Malay', 'iso-8859-1', 'ms', 'ms' ],
@@ -69,7 +71,9 @@ my %languages = (
'no' => [ 'Norwegian (Bokmaal)', 'iso-8859-1', 'no', 'no:no@nynorsk' ],
'no@nynorsk' => [ 'Norwegian (Nynorsk)','iso-8859-1', 'no', 'no@nynorsk:no' ],
#-'oc' => [ 'Occitan', 'iso-8859-1', 'oc', 'oc:fr_FR' ],
+#-'pd' => [ 'Plauttdietsch', 'iso-8859-1', 'pd', 'pd' ],
'pl' => [ 'Polish', 'iso-8859-2', 'pl', 'pl' ],
+#-'pp' => [ 'Papiamento', 'iso-8859-1', 'pp', 'pp' ],
'pt_BR' => [ 'Portuguese (Brazil)', 'iso-8859-1', 'pt_BR', 'pt_BR:pt_PT:pt' ],
'pt_PT' => [ 'Portuguese (Portugal)', 'iso-8859-1', 'pt', 'pt_PT:pt:pt_BR' ],
'ro' => [ 'Romanian', 'iso-8859-2', 'ro', 'ro' ],
@@ -87,6 +91,7 @@ my %languages = (
'vi_VN.viscii' => [ 'Vietnamese (VISCII)','viscii', 'vi',
'vi_VN.viscii:vi_VN.tcvn-viscii1.1-1:vi' ],
'wa' => [ 'Walon', 'iso-8859-1', 'wa', 'wa:fr_BE:fr' ],
+#-'yi' => [ 'Yiddish', 'cp1255', 'yi', 'yi' ],
'zh_TW.Big5' => [ 'Chinese (Big5)', 'Big5', 'zh_TW.Big5', 'zh_TW.Big5:zh_TW.big5:zh' ],
'zh_CN' => [ 'Chinese (GuoBiao)', 'gb2312', 'zh_CN', 'zh_CN:zh_CN.GB2312:zh_CN.gb2312:zh' ],
);
@@ -169,6 +174,10 @@ my %charsets = (
std("koi8-u") ],
"cp1251" => [ "iso05.f16", "iso05", "iso05_to_cp1251.trans",
std_("microsoft-cp1251") ],
+#- Yiddish needs special console driver for text mode (none yet)
+#- (and gtk support isn't done yet)
+ "cp1255" => [ "iso08.f16", "iso08", "trivial.trans",
+ std_("microsoft-cp1255") ],
#- korean needs special console driver for text mode
"ksc5601" => [ undef, undef, undef,
"-*-*-*-*-*-*-*-*-*-*-*-*-ksc5601.1987-*" ],
@@ -244,9 +253,14 @@ sub write {
$lang or return;
- my $h = { LC_ALL => $lang };
+ my $h = { LC_CTYPE => $lang };
+ add2hash $h, { LC_COLLATE => $lang };
+ add2hash $h, { LC_MESSAGES => $lang };
+ add2hash $h, { LC_NUMERIC => $lang };
+ add2hash $h, { LC_MONETARY => $lang };
+ add2hash $h, { LC_TIME => $lang };
if (my $l = $languages{$lang}) {
- add2hash $h, { LANG => $l->[2], LANGUAGE => $l->[2], RPM_LANG_INSTALL => $l->[3] };
+ add2hash $h, { LANG => $l->[2], LANGUAGE => $l->[3], RPM_LANG_INSTALL => $l->[3] };
my $c = $charsets{$l->[1] || ''};
if ($c && $c->[0] && $c->[1]) {
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index b25dfdd6f..9cc164435 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -50,20 +50,35 @@ autoirpm autoirpm-icons numlock
);
%by_lang = (
- ar => [ 'acon' ],
- cs => [ 'XFree86-ISO8859-2', 'XFree86-ISO8859-2-75dpi-fonts' ],
- hr => [ 'XFree86-ISO8859-2', 'XFree86-ISO8859-2-75dpi-fonts' ],
- hu => [ 'XFree86-ISO8859-2', 'XFree86-ISO8859-2-75dpi-fonts' ],
- ja => [ 'rxvt-CLE', 'fonts-ttf-japanese', 'kterm' ],
- ko => [ 'rxvt-CLE', 'fonts-ttf-korean' ],
- pl => [ 'XFree86-ISO8859-2', 'XFree86-ISO8859-2-75dpi-fonts' ],
- ro => [ 'XFree86-ISO8859-2', 'XFree86-ISO8859-2-75dpi-fonts' ],
- ru => [ 'XFree86-cyrillic-fonts' ],
- sk => [ 'XFree86-ISO8859-2', 'XFree86-ISO8859-2-75dpi-fonts' ],
- sl => [ 'XFree86-ISO8859-2', 'XFree86-ISO8859-2-75dpi-fonts' ],
- sr => [ 'XFree86-ISO8859-2', 'XFree86-ISO8859-2-75dpi-fonts' ],
+ 'ar' => [ 'acon' ],
+# 'bg' => cp1251 fonts
+ 'cs' => [ 'XFree86-ISO8859-2', 'XFree86-ISO8859-2-75dpi-fonts' ],
+# 'cy' => iso8859-14 fonts
+# 'el' => greek fonts
+# 'eo' => iso8859-3 fonts
+# 'fa' => farsi fonts
+# 'he' => hebrew fonts
+ 'hr' => [ 'XFree86-ISO8859-2', 'XFree86-ISO8859-2-75dpi-fonts' ],
+ 'hu' => [ 'XFree86-ISO8859-2', 'XFree86-ISO8859-2-75dpi-fonts' ],
+ 'hy' => [ 'fonts-ttf-armenian' ],
+ 'ja' => [ 'rxvt-CLE', 'fonts-ttf-japanese', 'kterm' ],
+# 'ka' => georgian fonts
+ 'ko' => [ 'rxvt-CLE', 'fonts-ttf-korean' ],
+# 'lt' => iso8859-13 fonts
+# 'lv' => iso8859-13 fonts
+# 'mk' => iso8859-5 fonts
+ 'pl' => [ 'XFree86-ISO8859-2', 'XFree86-ISO8859-2-75dpi-fonts' ],
+ 'ro' => [ 'XFree86-ISO8859-2', 'XFree86-ISO8859-2-75dpi-fonts' ],
+ 'ru' => [ 'XFree86-cyrillic-fonts' ],
+ 'sk' => [ 'XFree86-ISO8859-2', 'XFree86-ISO8859-2-75dpi-fonts' ],
+ 'sl' => [ 'XFree86-ISO8859-2', 'XFree86-ISO8859-2-75dpi-fonts' ],
+# 'sp' => iso8859-5 fonts
+ 'sr' => [ 'XFree86-ISO8859-2', 'XFree86-ISO8859-2-75dpi-fonts' ],
+# 'th' => thai fonts
'tr' => [ 'XFree86-ISO8859-9', 'XFree86-ISO8859-9-75dpi-fonts' ],
- zh_CN => [ 'rxvt-CLE', 'fonts-ttf-gb2312' ],
+# 'uk' => koi8-u fonts
+# 'vi' => vietnamese fonts
+ 'zh_CN' => [ 'rxvt-CLE', 'fonts-ttf-gb2312' ],
'zh_TW.Big5' => [ 'rxvt-CLE', 'fonts-ttf-big5' ],
);