| Меню сайта |
|
| |
 |
| Категории каталога |
| | |
|
| Форма входа |
| | |
|
| Поиск |
|
| |
|
| Друзья сайта |
|
| |
|
| Мини-чат |
|
| |
|
| Статистика |
|
Онлайн всего: 1 Гостей: 1 Пользователей: 0 | |
|
|
 | |  |
|
тнт
|
[
]
| 21/Июля/2008, 18.17.03 |
<br>#!/usr/bin/perl
use Time::Local;
use DBI;
use CGI::Cookie;
use Switch;
use Encode;
sub random_int_in ($$) {#аЁаЛб�б�аАаЙаНб�аЙ аПаОаКаАаЗ б�аЕаКаЛаАаМб�
my($min, $max) = @_;
return $min if $min == $max;
($min, $max) = ($max, $min) if $min > $max;
return $min + int rand(1 + $max - $min);
}
#Start
#а�аОаНаНаЕаКб� аК аБаАаЗаЕ аДаАаНаНб�б�
$drh = DBI->install_driver('mysql');
$dsn = "DBI:mysql:database=tvprogram;host=tv-4.palmtv.ru;port=3306";
$dbh = $drh->connect($dsn,'monitoring','VyVr9a:myy:EvUWK','') or die "Error connect";
$dbh->{'mysql_enable_utf8'}=1;
$dbh->do("SET NAMES utf8");
$sth = $dbh->prepare(qq{SELECT url, logopath FROM config});
$sth->execute;
($urlmain, $logopath) = $sth->fetchrow_array();
$sth->finish();
#а�аПб�аЕаДаЕаЛаЕаНаИаЕ б�аЕаКб�б�аЕаГаО аВб�аЕаМаЕаНаИ аВ б�аЕаКб�аНаДаАб�
$clicktime = time();
$click = $clicktime;
$starttime = $clicktime - 36005; #а�б�аЕаМб� аДаЛб� б�аАб�б�аЕб�аА аВб�аВаОаДаА "аЁаЕаЙб�аАб�"
#б�аАаЗаБаОб� б�б�б�аОаКаИ аПаАб�аАаМаЕб�б�аОаВ. б�аЗ аКаАаК б�аАаБаОб�аАаЕб�.
if($ENV{'REQUEST_METHOD'} eq 'GET'){$query=$ENV{'QUERY_STRING'};}
elsif($ENV{'REQUEST_METHOD'} eq 'POST'){sysread(STDIN,$query,$ENV{'CONTENT_LENGTH'});}
#а аАаБаОб�аА б� аКб�аКаИ
$cookie=$ENV{'HTTP_COOKIE'};
$cookie =~ s/Type=//;
$cookie = substr($cookie, 0, 1);
$cookie =~ s/\;^//;
if ($cookie eq '') {$cookie = random_int_in(1,4)};
if ( $cookie > 3) {$cookie2 = 1} else {$cookie2 = $cookie + 1};
$cookie2 = "Type=$cookie2; path=/cgi-bin/; expires=0";
#а аАаЗаБаОб� б�б�б�аОаКаИ аПаАб�аАаМаЕб�б�аОаВ
@formfields=split /&/,$query;
$i=0;
foreach $item (@formfields){
$item =~ s/Ch=//;
$item =~ s/Time=//;
if ($i eq 0) {
$number = $item;
my $sth = $dbh->prepare(qq{SELECT start, ch_logo_small, ch_name, url, comment, server
FROM ch_config WHERE ch_id=$number});
$sth->execute;
($startrecord, $logo, $title, $url, $comment, $server) = $sth->fetchrow_array();
$sth->finish();
};
if ($i eq 1) {
$seek2 = $item;
$starttime = timelocal(0, 0, 0, (localtime($seek2))[3,4,5]);
$clicktime - timelocal(59, 59, 23, (localtime($seek2))[3,4,5]);
my $sth = $dbh->prepare(qq{SELECT name FROM archive WHERE ch_id=$number
AND name < $seek2 ORDER BY name DESC LIMIT 1});
$sth->execute();
my ($first) = $sth->fetchrow_array();
$seek = $seek2 - $first - 5;
};
$i++;
}
# аВб�аВаОаД б�аОб�аМб�
#inmode STDOUT, ":utf8";
print "Content-Type: text/html
Set-Cookie: $cookie2\n
<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">
<html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"ru\" lang=\"ru\">
<link rel=\"stylesheet\" type=\"text/css\" href=\"/main-2.css\" />
<html><head>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=UTF-8\">
<meta http-equiv=\"Cache-Control\" content=\"no-cache\">
<meta http-equiv=\"Pragma\" content=\"no-cache\">
<meta http-equiv=\"Expires\" content=\"0\">
<title>аЂаЕаЛаЕаКаАаНаАаЛ";
#print $title;
print " - аОаНаЛаАаЙаН б�аЕаЛаЕаВаИаДаЕаНаИаЕ, аАб�б�аИаВ аЂа� аПаЕб�аЕаДаАб�</title>
</head>\n";
|
| Категория: Телевиденье | Добавил: Pele
|
| Просмотров: 787 | Загрузок: 0
| Рейтинг: 0.0/0 |
|
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] | |
 | |  |
|
