| Server IP : 45.162.171.154 / Your IP : 216.73.216.5 Web Server : Apache System : Linux vxct2015.avnam.net 5.4.106-1-pve #1 SMP PVE 5.4.106-1 (Fri, 19 Mar 2021 11:08:47 +0100) x86_64 User : lpg.com.ar ( 1041) PHP Version : 8.3.33 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : ON | Pkexec : ON Directory : /usr/libexec/usermin/ |
Upload File : |
@INC = &unique(@INC, ".");
%month_to_number_map = ( 'jan' => 0, 'feb' => 1, 'mar' => 2, 'apr' => 3,
'may' => 4, 'jun' => 5, 'jul' => 6, 'aug' => 7,
'sep' => 8, 'oct' => 9, 'nov' =>10, 'dec' =>11 );
%number_to_month_map = reverse(%month_to_number_map);
$main::default_debug_log_size = 10*1024*1024;
$default_lang = "en";
$default_charset = "UTF-8";
=head2 unique(string, ...)
Returns the unique elements of some array, passed as its parameters.
=cut
sub unique
{
my (%found, @rv);
foreach my $e (@_) {
if (!$found{$e}++) { push(@rv, $e); }
}
return @rv;
}
if (!$done_web_lib_funcs) {
my $script = -r '../web-lib-funcs.pl' ? '../web-lib-funcs.pl'
: 'web-lib-funcs.pl';
do $script;
}
# Has to be set after error is defined
$remote_error_handler ||= \&error;
$main::remote_error_handler ||= \&error;
1;