diff options
| author | fukachan <fukachan> | 2003-02-16 08:33:07 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2003-02-16 08:33:07 +0000 |
| commit | 26f4ac0e3c861ffe00f37642a92908d2a27e428e (patch) | |
| tree | aa83354e5d4391464f1d0c3083f13650d9f442d9 /fml/lib/FML/CGI | |
| parent | 2f2a7c3b4e9f19041710356df7180ca93d8e0bd4 (diff) | |
| download | fml8-26f4ac0e3c861ffe00f37642a92908d2a27e428e.tar.gz fml8-26f4ac0e3c861ffe00f37642a92908d2a27e428e.tar.bz2 fml8-26f4ac0e3c861ffe00f37642a92908d2a27e428e.zip | |
use language_*() method to determine $charset
Diffstat (limited to 'fml/lib/FML/CGI')
| -rw-r--r-- | fml/lib/FML/CGI/Admin/Menu.pm | 14 | ||||
| -rw-r--r-- | fml/lib/FML/CGI/Calendar.pm | 4 | ||||
| -rw-r--r-- | fml/lib/FML/CGI/ThreadTrack.pm | 4 |
3 files changed, 8 insertions, 14 deletions
diff --git a/fml/lib/FML/CGI/Admin/Menu.pm b/fml/lib/FML/CGI/Admin/Menu.pm index 4b29e1ef..51af5075 100644 --- a/fml/lib/FML/CGI/Admin/Menu.pm +++ b/fml/lib/FML/CGI/Admin/Menu.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Menu.pm,v 1.23 2002/12/18 04:50:31 fukachan Exp $ +# $FML: Menu.pm,v 1.24 2003/02/15 02:54:25 fukachan Exp $ # package FML::CGI::Admin::Menu; @@ -74,14 +74,13 @@ sub html_start my ($curproc, $args) = @_; my $config = $curproc->{ config }; my $myname = $curproc->myname(); - my $domain = $curproc->ml_domain(); - my $ml_name = $curproc->cgi_try_get_ml_name($args); + my $domain = $curproc->ml_domain(); # must be safe (hard-coded in .cgi) + my $ml_name = $curproc->cgi_try_get_ml_name($args); # safe ok my $title = "${ml_name}\@${domain} configuration interface"; my $color = $config->{ cgi_main_menu_color } || '#FFFFFF'; - my $charset = $config->{ cgi_charset } || 'euc-jp'; + my $charset = $curproc->language_of_cgi_message(); # o.k start html - # XXX-TODO: validate $title print start_html(-title => $title, -lang => $charset, -BGCOLOR => $color); @@ -103,11 +102,6 @@ sub html_end } -# -# XXX-TODO: we ensure safe_param_*() and try_cgi_*() returns save value. -# - - # Descriptions: main routine for CGI. # kick off suitable FML::Command finally # via cgi_execulte_command(). diff --git a/fml/lib/FML/CGI/Calendar.pm b/fml/lib/FML/CGI/Calendar.pm index 74884674..0a2dd092 100644 --- a/fml/lib/FML/CGI/Calendar.pm +++ b/fml/lib/FML/CGI/Calendar.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Calendar.pm,v 1.1 2003/01/31 14:53:29 fukachan Exp $ +# $FML: Calendar.pm,v 1.2 2003/01/31 14:56:14 fukachan Exp $ # package FML::CGI::Calendar; @@ -58,7 +58,7 @@ sub html_start my $myname = $curproc->myname(); my $title = "$user schedule"; my $color = '#E6E6FA'; - my $charset = $config->{ cgi_charset } || 'euc-jp'; + my $charset = $curproc->language_of_cgi_message(); # o.k start html print start_html(-title => $title, diff --git a/fml/lib/FML/CGI/ThreadTrack.pm b/fml/lib/FML/CGI/ThreadTrack.pm index 1c23aeb9..59fe919e 100644 --- a/fml/lib/FML/CGI/ThreadTrack.pm +++ b/fml/lib/FML/CGI/ThreadTrack.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: ThreadTrack.pm,v 1.22 2002/12/20 03:37:43 fukachan Exp $ +# $FML: ThreadTrack.pm,v 1.23 2003/02/15 02:54:24 fukachan Exp $ # package FML::CGI::ThreadTrack; @@ -58,7 +58,7 @@ sub html_start my $title = $config->{ thread_cgi_title } || 'thread system interface'; my $color = $config->{ thread_cgi_bgcolor } || '#E6E6FA'; my $myname = $curproc->myname(); - my $charset = $config->{ cgi_charset } || 'euc-jp'; + my $charset = $curproc->language_of_cgi_message(); # o.k start html print start_html(-title => $title, |