97 lines
3.2 KiB
Perl
97 lines
3.2 KiB
Perl
|
#
|
||
|
|
# TWiki Enterprise Collaboration Platform, http://TWiki.org/
|
||
|
|
#
|
||
|
|
# Copyright (C) 2000-2006 TWiki Contributors.
|
||
|
|
#
|
||
|
|
# This program is free software; you can redistribute it and/or
|
||
|
|
# modify it under the terms of the GNU General Public License
|
||
|
|
# as published by the Free Software Foundation; either version 2
|
||
|
|
# of the License, or (at your option) any later version. For
|
||
|
|
# more details read LICENSE in the root of this distribution.
|
||
|
|
#
|
||
|
|
# This program is distributed in the hope that it will be useful,
|
||
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
||
|
|
#
|
||
|
|
# As per the GPL, removal of this notice is prohibited.
|
||
|
|
use strict;
|
||
|
|
|
||
|
|
package TWiki::Configure::Checkers::Site::Locale;
|
||
|
|
|
||
|
|
use TWiki::Configure::Checker;
|
||
|
|
|
||
|
|
use base 'TWiki::Configure::Checker';
|
||
|
|
|
||
|
|
my @required = (
|
||
|
|
|
||
|
|
);
|
||
|
|
|
||
|
|
sub check {
|
||
|
|
my $this = shift;
|
||
|
|
|
||
|
|
my $e = '';
|
||
|
|
if( $TWiki::cfg{UseLocale} ) {
|
||
|
|
eval "use locale;use POSIX";
|
||
|
|
if ($@) {
|
||
|
|
$TWiki::cfg{UseLocale} = 0;
|
||
|
|
return $this->WARN('Disabling locales. Error was: '.$@);
|
||
|
|
}
|
||
|
|
my $locale = $TWiki::cfg{Site}{Locale};
|
||
|
|
POSIX::setlocale(&POSIX::LC_CTYPE, $locale);
|
||
|
|
my $currentLocale = POSIX::setlocale(&POSIX::LC_CTYPE);
|
||
|
|
if ( $currentLocale ne $locale ) {
|
||
|
|
$e .= WARN(<<HERE);
|
||
|
|
Unable to set locale to '$locale'. The actual locale is '$currentLocale'
|
||
|
|
- please test your locale settings. This warning can be ignored if you are
|
||
|
|
not planning to use locales (e.g. your site uses English only) - or you can
|
||
|
|
set {Site}{Locale} to 'C', which should always work.
|
||
|
|
HERE
|
||
|
|
}
|
||
|
|
if( $locale !~ /[a-z]/i && $TWiki::cfg{UseLocale} ) {
|
||
|
|
$e = $this->WARN(<<HERE);
|
||
|
|
UseLocale set but {Site}{Locale} '$locale' has no alphabetic characters
|
||
|
|
HERE
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
# Set the default site charset
|
||
|
|
unless( defined( $TWiki::cfg{Site}{CharSet}) ) {
|
||
|
|
$TWiki::cfg{Site}{CharSet} = 'iso-8859-15';
|
||
|
|
}
|
||
|
|
|
||
|
|
# Extract the default site language - ignores '@euro' part of
|
||
|
|
# 'fr_BE@euro'-type locales.
|
||
|
|
unless( defined( $TWiki::cfg{Site}{Lang} )) {
|
||
|
|
$TWiki::cfg{Site}{Locale} =~ m/^([a-z]+)_([a-z]+)/i;
|
||
|
|
$TWiki::cfg{Site}{Lang} = (lc $1) if defined $1;
|
||
|
|
}
|
||
|
|
|
||
|
|
unless( defined( $TWiki::cfg{Site}{FullLang} )) {
|
||
|
|
$TWiki::cfg{Site}{Locale} =~ m/^([a-z]+)_([a-z]+)/i;
|
||
|
|
$TWiki::cfg{Site}{FullLang} = (lc "$1-$2" )
|
||
|
|
if defined $1 and defined $2;
|
||
|
|
}
|
||
|
|
|
||
|
|
# Check for unusable multi-byte encodings as site character set
|
||
|
|
# - anything that enables a single ASCII character such as '[' to be
|
||
|
|
# matched within a multi-byte character cannot be used for TWiki.
|
||
|
|
# Refuse to work with character sets that allow TWiki syntax
|
||
|
|
# to be recognised within multi-byte characters.
|
||
|
|
# FIXME: match other problematic multi-byte character sets
|
||
|
|
if( $TWiki::cfg{UseLocale} &&
|
||
|
|
$TWiki::cfg{Site}{CharSet} =~
|
||
|
|
m/^(?:iso-?2022-?|hz-?|gb2312|gbk|gb18030|.*big5|.*shift_?jis|ms.kanji|johab|uhc)/i ) {
|
||
|
|
|
||
|
|
$e .= $this->ERROR(<<HERE
|
||
|
|
Cannot use this multi-byte encoding ('$TWiki::cfg{Site}{CharSet}') as site character
|
||
|
|
encoding. Please set a different character encoding in the {Site}{Locale}
|
||
|
|
setting.
|
||
|
|
HERE
|
||
|
|
);
|
||
|
|
}
|
||
|
|
|
||
|
|
return $e;
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|