/usr/share/otrs/Kernel/System/ReferenceData.pm is in otrs2 3.3.5-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 | # --
# Kernel/System/ReferenceData.pm - Provides reference data to OTRS
# Copyright (C) 2001-2014 OTRS AG, http://otrs.com/
# --
# This software comes with ABSOLUTELY NO WARRANTY. For details, see
# the enclosed file COPYING for license information (AGPL). If you
# did not receive this file, see http://www.gnu.org/licenses/agpl.txt.
# --
package Kernel::System::ReferenceData;
use strict;
use warnings;
use Locale::Country qw(all_country_names);
=head1 NAME
Kernel::System::ReferenceData - ReferenceData lib
=head1 SYNOPSIS
Contains reference data. For now, this is limited to just a list of ISO country
codes.
=head1 PUBLIC INTERFACE
=over 4
=cut
=item new()
create an object
use Kernel::Config;
use Kernel::System::Encode;
use Kernel::System::Log;
use Kernel::System::Main;
use Kernel::System::ReferenceData;
my $ConfigObject = Kernel::Config->new();
my $EncodeObject = Kernel::System::Encode->new(
ConfigObject => $ConfigObject,
);
my $LogObject = Kernel::System::Log->new(
ConfigObject => $ConfigObject,
EncodeObject => $EncodeObject,
);
my $MainObject = Kernel::System::Main->new(
ConfigObject => $ConfigObject,
EncodeObject => $EncodeObject,
LogObject => $LogObject,
);
my $ReferenceDataObject = Kernel::System::ReferenceData->new(
ConfigObject => $ConfigObject,
LogObject => $LogObject,
EncodeObject => $EncodeObject,
MainObject => $MainObject,
);
=cut
sub new {
my ( $Type, %Param ) = @_;
# allocate new hash for object
my $Self = {};
bless( $Self, $Type );
# check needed objects
for my $Object (qw(ConfigObject LogObject EncodeObject MainObject)) {
$Self->{$Object} = $Param{$Object} || die "Got no $Object!";
}
return $Self;
}
=item CountryList()
return a list of countries as a hash reference. The countries are based on ISO
3166-2 and are provided by the Perl module Locale::Code::Country, or optionally
from the SysConfig setting ReferenceData::OwnCountryList.
my $CountryList = $ReferenceDataObject->CountryList(
Result => 'CODE', # optional: returns CODE => Country pairs conform ISO 3166-2.
);
=cut
sub CountryList {
my ( $Self, %Param ) = @_;
if ( !defined $Param{Result} || $Param{Result} ne 'CODE' ) {
$Param{Result} = undef;
}
my $Countries = $Self->{ConfigObject}->Get('ReferenceData::OwnCountryList');
if ( $Param{Result} && $Countries ) {
# return Code => Country pairs from SysConfig
return $Countries;
}
elsif ($Countries) {
# return Country => Country pairs from SysConfig
my %CountryJustNames = map { $_ => $_ } values %$Countries;
return \%CountryJustNames;
}
my @CountryNames = all_country_names();
if ( $Param{Result} ) {
# return Code => Country pairs from ISO list
my %Countries;
for my $Country (@CountryNames) {
$Countries{$Country} = country2code( $Country, 1 );
}
return \%Countries;
}
# return Country => Country pairs from ISO list
my %CountryNames = map { $_ => $_ } @CountryNames;
return \%CountryNames;
}
1;
=back
=head1 TERMS AND CONDITIONS
This software is part of the OTRS project (L<http://otrs.org/>).
This software comes with ABSOLUTELY NO WARRANTY. For details, see
the enclosed file COPYING for license information (AGPL). If you
did not receive this file, see L<http://www.gnu.org/licenses/agpl.txt>.
=cut
|