Database server not responding.
Try later.
",Dumper(@_),"\\n"; } ###################################################################### sub error { # Показать сообщение об ошибке в режиме администрирования my $msg = shift; return ${$Response->TrapInclude("page_error.asp", $msg)}; } ####################################################################### sub logdata { # ($message) # Записать в лог-файл сообщение my $message = shift; open(LOG, ">>$log_file") || die "Can\'t write LOG ($log_file), $!\\n"; print LOG udate_to_string(time)." - $remoteaddr - $userinfo{username} - $SERVER->{\'SCRIPT_NAME\'} - $message\\n"; close(LOG); } ####################################################################### sub custom_log { # ($message) # Записать в отдельный лог-файл сообщение my $message = shift; open(LOG, ">>$site_path/datafiles/custom.log") || die "Can\'t write LOG (custom.log), $!\\n"; print LOG udate_to_string(time)." $remoteaddr $userinfo{username} - $message\\n"; close(LOG); } ###################################################################### sub udate_to_string { # ($unixtime, $dchar) # преобразовать UNIXTIME в формат даты и/или времени my $unixtime = shift; my $dchar = shift || ""; my ($sec,$min,$hour,$mday,$mon,$year) = localtime($unixtime); $mon++; $year += 1900; my $r = sprintf("%02d.%02d.%04d %02d:%02d:%02d",$mday,$mon,$year,$hour,$min,$sec); if ($dchar eq "d") { $r = sprintf("%02d.%02d.%04d",$mday,$mon,$year); } if ($dchar eq "t") { $r = sprintf("%02d:%02d:%02d",$hour,$min,$sec); } return $r; } ###################################################################### sub udate_to_rus_string {# ($unixtime, $dchar) # преобразовать UNIXTIME в формат даты и/или времени с русскими названиями my $unixtime = shift; my $dchar = shift || ""; my @W = qw(воскресенье понедельник вторник среда четверг пятница суббота); my @M = qw(января февраля марта апреля мая июня июля августа сентября октября ноября декабря); my ($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime($unixtime); $year += 1900; my $r = sprintf("%d %s %04d г. %s, %02d:%02d:%02d",$mday,$M[$mon],$year, $W[$wday], $hour,$min,$sec); if ($dchar eq "d") { $r = sprintf("%d %s %04d г. %s",$mday,$M[$mon],$year,$W[$wday]); } return $r; } ###################################################################### sub datetime2utime { # ($date) # in dd.mm.yyyy hh:mm:ss # преобразовать формат даты и времени в UNIXTIME my $xdate = shift; $xdate =~ s/(\\d+)\\.(\\d+)\\.(\\d+)\\s(\\d+):(\\d+):(\\d+)/$3-$2-$1 $4:$5:$6/; return str2time($xdate); } ###################################################################### sub my2date { # преобразовать формат даты MySQL в нормальную дату return sprintf("%02d.%02d.%04d", $3,$2,$1) if ($_[0] =~ m/(\\d+)-(\\d+)-(\\d+)/); return ""; } ###################################################################### sub my2datetime { # преобразовать формат даты и времени MySQL в нормальную дату и время return sprintf("%02d.%02d.%04d %02d:%02d:%02d", $3,$2,$1,$4,$5,$6) if ($_[0] =~ m/(\\d+)-(\\d+)-(\\d+)\\s+(\\d+):(\\d+):(\\d+)/); return ""; } ###################################################################### sub date2my { # преобразовать нормальную дату формат даты MySQL return sprintf("%04d-%02d-%02d", $3,$2,$1) if ($_[0] =~ m/(\\d+)\\.(\\d+)\\.(\\d+)/); return ""; } ###################################################################### sub datetime2my { # преобразовать нормальную дату и время в формат даты и времени MySQL return sprintf("%04d-%02d-%02d %02d:%02d:%02d", $3,$2,$1,$4,$5,$6) if ($_[0] =~ m/(\\d+)\\.(\\d+)\\.(\\d+)\\s+(\\d+):(\\d+):(\\d+)/); return ""; } ###################################################################### sub utime2my { # преобразовать UNIXTIME в формат даты и времени MySQL my $unixtime = shift; my ($sec,$min,$hour,$mday,$mon,$year) = localtime($unixtime); $mon++; $year += 1900; return sprintf("%04d-%02d-%02d %02d:%02d:%02d",$year,$mon,$mday,$hour,$min,$sec); } ###################################################################### sub my2rus_datetime { # преобразовать формат даты и времени MySQL в нормальную дату и время с русскими названиями my $mydt = shift; my $dchar = shift; return udate_to_rus_string(str2time($mydt), $dchar); } ###################################################################### sub exist_in_list { # ($value, @list) # проверить существование значения $val в списке @list my ($val, @list) = @_; foreach my $v (@list) { return 1 if ($val eq $v); } return 0; } ###################################################################### sub uri_remove_key { # ($query_string, $key) # удаляет из HTTP строки запроса указанный ключ со значением my $x_uri = shift; my $x_key = shift; my @r_uri = (); my @x_pairs = $x_uri =~ m!^([\\?\\/]*)(\\S+)$!; $x_uri = $x_pairs[1]; my @a_uri = split(/&/, $x_uri); foreach my $p (@a_uri) { my ($k, $v) = split(/=/, $p); push(@r_uri, $p) if (!(lc($k) eq lc($x_key))); } $x_uri = \'/\'; $x_uri = $x_pairs[0] . join(\'&\', @r_uri) if (@r_uri); return $x_uri; } ###################################################################### sub js_redirect { # (url, frame) # сделать редирект средствами javascript my ($url, $frame) = @_; my $location = qq{location.href="$url";}; $location = qq{window.parent.frames[\'$frame\'].location.href=\'$url\';} if ($frame); print "\\n}; $Session->{top_frame} = 1; $Response->End(); } $Response->Include("page_admin_header.asp"); print qq{\\n\\n}; $Response->Include("auth.asp", $admin_dir."index.asp"); $Response->Include("page_autologoff.asp"); $Response->End() if (! $logged_in); } } else { # !!! default access mode !!! } } # after the end of the page execution sub Script_OnEnd { if ($SERVER->{\'REQUEST_URI\'} =~ m/$admin_dir/) { # admin mode if ($SERVER->{\'REQUEST_URI\'} =~ m/(ajax)|(requestor)\\.asp/i) { # no footer } else { print qq{\\n\\n