/usr/share/perl5/NetSDS/Const.pm is in libnetsds-perl 1.301-2.
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 143 144 145 146 147 148 149 150 151 | #===============================================================================
#
# FILE: Const.pm
#
# DESCRIPTION: NetSDS common constants
#
# AUTHOR: Michael Bochkaryov (Rattler), <misha@rattler.kiev.ua>
# COMPANY: Net.Style
# CREATED: 05.05.2008 16:40:51 EEST
#===============================================================================
=head1 NAME
NetSDS::Const - common NetSDS constants
=head1 SYNOPSIS
use NetSDS::Const;
print "XML encoding is " . XML_ENCODING;
print "Week contains " . INTERVAL_WEEK . " seconds";
=head1 DESCRIPTION
This module provides most common constants like default encoding and language, time intervals, etc.
=cut
package NetSDS::Const;
use 5.8.0;
use strict;
use warnings;
use base 'Exporter';
use version; our $VERSION = '1.301';
our @EXPORT = qw(
LANG_BE
LANG_DE
LANG_EN
LANG_RU
LANG_UK
DEFAULT_ENCODING
DEFAULT_LANG
XML_VERSION
XML_ENCODING
INTERVAL_MINUTE
INTERVAL_HOUR
INTERVAL_DAY
INTERVAL_WEEK
);
=head1 LANGUAGE AND ENCODINGS
=over
=item B<LANG_BE> - C<be>
=item B<LANG_DE> - C<de>
=item B<LANG_EN> - C<en>
=item B<LANG_RU> - C<ru>
=item B<LANG_UK> - C<uk>
=item B<DEFAULT_LANG> - C<ru> in current version
=item B<DEFAULT_ENCODING> - C<UTF8>
=back
=cut
use constant LANG_BE => 'be';
use constant LANG_DE => 'de';
use constant LANG_EN => 'en';
use constant LANG_RU => 'ru';
use constant LANG_UK => 'uk';
use constant DEFAULT_LANG => LANG_RU;
use constant DEFAULT_ENCODING => 'UTF8';
=head1 XML CONSTANTS
=over
=item B<XML_VERSION> - C<1.0>
=item B<XML_ENCODING> - C<UTF-8>
=back
=cut
use constant XML_VERSION => '1.0';
use constant XML_ENCODING => 'UTF-8';
=head1 TIME INTERVALS
=over
=item B<INTERVAL_MINUTE> - 60 seconds
=item B<INTERVAL_HOUR> - 3600 seconds
=item B<INTERVAL_DAY> - 86400 seconds
=item B<INTERVAL_WEEK> - 604800 seconds
=back
=cut
use constant INTERVAL_MINUTE => 60;
use constant INTERVAL_HOUR => 3600;
use constant INTERVAL_DAY => 86400;
use constant INTERVAL_WEEK => 604800;
1;
__END__
=head1 AUTHOR
Valentyn Solomko <val@pere.org.ua>
Michael Bochkaryov <misha@rattler.kiev.ua>
=head1 LICENSE
Copyright (C) 2008-2009 Net Style Ltd.
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.
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. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
=cut
|