summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--defparams.pl39
1 files changed, 36 insertions, 3 deletions
diff --git a/defparams.pl b/defparams.pl
index 20700d02d..fa169e4a5 100644
--- a/defparams.pl
+++ b/defparams.pl
@@ -47,6 +47,7 @@
use strict;
use vars qw(@param_list);
+use File::Spec; # for find_languages
# Checking functions for the various values
# Some generic checking functions are included in Bugzilla::Config
@@ -148,6 +149,35 @@ sub check_loginmethod {
return "";
}
+sub check_languages {
+ my @languages = split /,/, trim($_);
+ if(!scalar(@languages)) {
+ return "You need to specify a language tag."
+ }
+ foreach my $language (@languages) {
+ if( ! -d 'template/'.trim($language).'/custom'
+ && ! -d 'template/'.trim($language).'/default') {
+ return "The template directory for $language does not exist";
+ }
+ }
+ return "";
+}
+
+sub find_languages {
+ my @languages = ();
+ opendir(DIR, "template") || return "Can't open 'template' directory: $!";
+ my @langdirs = grep { /^[a-z-]+$/i } readdir(DIR);
+ closedir DIR;
+
+ foreach my $lang (@langdirs) {
+ next if($lang =~ /^CVS$/i);
+ my $deft_path = File::Spec->catdir('template', $lang, 'default');
+ my $cust_path = File::Spec->catdir('template', $lang, 'custom');
+ push(@languages, $lang) if(-d $deft_path or -d $cust_path);
+ }
+ return join(', ', @languages);
+}
+
# OK, here are the parameter definitions themselves.
#
# Each definition is a hash with keys:
@@ -233,9 +263,11 @@ sub check_loginmethod {
'to be displayed. Note that you must install the appropriate ' .
'language pack before adding a language to this Param. The ' .
'language used is the one in this list with the highest ' .
- 'q-value in the user\'s Accept-Language header.' ,
+ 'q-value in the user\'s Accept-Language header.<br>' .
+ 'Available languages: ' . find_languages() ,
type => 't' ,
- default => 'en'
+ default => 'en' ,
+ checker => \&check_languages
},
{
@@ -243,7 +275,8 @@ sub check_loginmethod {
desc => 'The UI language Bugzilla falls back on if no suitable ' .
'language is found in the user\'s Accept-Language header.' ,
type => 't' ,
- default => 'en'
+ default => 'en' ,
+ checker => \&check_languages
},
{