Gecko [ www.thearyasamaj.org ]

Name	Size	Permission
Bayes	[ DIR ]	drwxr-xr-x
BayesStore	[ DIR ]	drwxr-xr-x
Conf	[ DIR ]	drwxr-xr-x
Locker	[ DIR ]	drwxr-xr-x
Logger	[ DIR ]	drwxr-xr-x
Message	[ DIR ]	drwxr-xr-x
Plugin	[ DIR ]	drwxr-xr-x
Util	[ DIR ]	drwxr-xr-x
AICache.pm	5.6 KB	-r--r--r--
ArchiveIterator.pm	34.08 KB	-r--r--r--
AsyncLoop.pm	23.56 KB	-r--r--r--
AutoWhitelist.pm	9.85 KB	-r--r--r--
Bayes.pm	4.82 KB	-r--r--r--
BayesStore.pm	22.97 KB	-r--r--r--
Client.pm	13.37 KB	-r--r--r--
Conf.pm	166.61 KB	-r--r--r--
Constants.pm	13.84 KB	-r--r--r--
DBBasedAddrList.pm	5.2 KB	-r--r--r--
Dns.pm	21.81 KB	-r--r--r--
DnsResolver.pm	33.82 KB	-r--r--r--
HTML.pm	34.26 KB	-r--r--r--
Locales.pm	4.08 KB	-r--r--r--
Locker.pm	2.11 KB	-r--r--r--
Logger.pm	11.13 KB	-r--r--r--
MailingList.pm	5.13 KB	-r--r--r--
Message.pm	43.48 KB	-r--r--r--
NetSet.pm	10.48 KB	-r--r--r--
PerMsgLearner.pm	4.91 KB	-r--r--r--
PerMsgStatus.pm	107.11 KB	-r--r--r--
PersistentAddrList.pm	4.27 KB	-r--r--r--
Plugin.pm	30.88 KB	-r--r--r--
PluginHandler.pm	7.22 KB	-r--r--r--
RegistryBoundaries.pm	7.81 KB	-r--r--r--
Reporter.pm	3.04 KB	-r--r--r--
SQLBasedAddrList.pm	13.17 KB	-r--r--r--
SpamdForkScaling.pm	27.23 KB	-r--r--r--
SubProcBackChannel.pm	4.45 KB	-r--r--r--
Timeout.pm	10.41 KB	-r--r--r--
Util.pm	65.61 KB	-r--r--r--

Code Editor : Locales.pm

# <@LICENSE>
# Licensed to the Apache Software Foundation (ASF) under one or more
# contributor license agreements.  See the NOTICE file distributed with
# this work for additional information regarding copyright ownership.
# The ASF licenses this file to you under the Apache License, Version 2.0
# (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.apache.org/licenses/LICENSE-2.0
# 
# Unless required by applicable law or agreed to in writing, software
# distributed under the License is distributed on an "AS IS" BASIS,
# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
# See the License for the specific language governing permissions and
# limitations under the License.
# </@LICENSE>

package Mail::SpamAssassin::Locales;

use strict;
use Mail::SpamAssassin::Logger;
use warnings;
# use bytes;
use re 'taint';

###########################################################################

# A mapping of known country codes to frequent charsets used therein.
# note that the ISO and CP charsets will already have been permitted,
# so only "unusual" charsets should be listed here.
#
# Country codes should be lowercase, charsets uppercase.
#
# A good listing is in /usr/share/config/charsets from KDE 2.2.1
#
our %charsets_for_locale = (

# Japanese: Peter Evans writes: iso-2022-jp = rfc approved, rfc 1468, created
  # by Jun Murai in 1993 back when he didn't have white hair!  rfc approved.
  # (rfc 2237) <-- by M$. 
  'ja' => 'EUCJP JISX020119760 JISX020819830 JISX020819900 JISX020819970 '.
	'JISX021219900 JISX021320001 JISX021320002 SHIFT_JIS SHIFTJIS '.
	'ISO2022JP SJIS JIS7 JISX0201 JISX0208 JISX0212',

# Korea
  'ko' => 'EUCKR KSC56011987',

# Cyrillic: Andrew Vasilyev notes CP866 is common (bug 2278)
  'ru' => 'KOI8R KOI8U KOI8T ISOIR111 CP1251 GEORGIANPS CP1251 PT154 CP866',
  'ka' => 'KOI8R KOI8U KOI8T ISOIR111 CP1251 GEORGIANPS CP1251 PT154 CP866',
  'tg' => 'KOI8R KOI8U KOI8T ISOIR111 CP1251 GEORGIANPS CP1251 PT154 CP866',
  'be' => 'KOI8R KOI8U KOI8T ISOIR111 CP1251 GEORGIANPS CP1251 PT154 CP866',
  'uk' => 'KOI8R KOI8U KOI8T ISOIR111 CP1251 GEORGIANPS CP1251 PT154 CP866',
  'bg' => 'KOI8R KOI8U KOI8T ISOIR111 CP1251 GEORGIANPS CP1251 PT154 CP866',

# Thai
  'th' => 'TIS620',

# Chinese (simplified and traditional).   Peter Evans writes: new government
  # mandated chinese encoding = gb18030, chinese mail is supposed to be
  # iso-2022-cn (rfc 1922?)
  'zh' => 'GB1988 GB2312 GB231219800 GB18030 GBK BIG5HKSCS BIG5 EUCTW ISO2022CN',

# Chinese Traditional charsets only
  'zh.big5' => 'BIG5HKSCS BIG5 EUCTW',

# Chinese Simplified charsets only
  'zh.gb2312' => 'GB1988 GB2312 GB231219800 GB18030 GBK ISO2022CN',
);

###########################################################################

sub is_charset_ok_for_locales {
  my ($cs, @locales) = @_;

$cs = uc $cs; $cs =~ s/[^A-Z0-9]//g;
  $cs =~ s/^3D//gs;		# broken by quoted-printable
  $cs =~ s/:.*$//gs;            # trim off multiple charsets, just use 1st
  dbg ("locales: is $cs ok for @locales?");

study $cs;  # study is a no-op since perl 5.16.0, eliminating related bugs
  #warn "JMD $cs";

# always OK (the net speaks mostly roman charsets)
  return 1 if ($cs eq 'USASCII');
  return 1 if ($cs eq 'ASCII');
  return 1 if ($cs =~ /^ISO8859/);
  return 1 if ($cs =~ /^ISO10646/);
  return 1 if ($cs =~ /^UTF/);
  return 1 if ($cs =~ /^UCS/);
  return 1 if ($cs =~ /^CP125/);
  return 1 if ($cs =~ /^WINDOWS/);      # argh, Windows
  return 1 if ($cs eq 'IBM852');
  return 1 if ($cs =~ /^UNICODE11UTF[78]/);	# wtf? never heard of it
  return 1 if ($cs eq 'XUNKNOWN'); # added by sendmail when converting to 8bit
  return 1 if ($cs eq 'ISO');	# Magellan, sending as 'charset=iso 8859-15'. grr

foreach my $locale (@locales) {
    if (!defined($locale) || $locale eq 'C') { $locale = 'en'; }
    $locale =~ s/^([a-z][a-z]).*$/$1/;	# zh_TW... => zh

my $ok_for_loc = $charsets_for_locale{$locale};
    next if (!defined $ok_for_loc);

if ($ok_for_loc =~ /(?:^| )\Q${cs}\E(?:$| )/) {
      return 1;
    }
  }

return 0;
}

${this.title}

Code Editor : Locales.pm