|
#!/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
аЂаЕаЛаЕаКаАаНаАаЛ";
#print $title;
print " - аОаНаЛаАаЙаН б�аЕаЛаЕаВаИаДаЕаНаИаЕ, аАб�б�аИаВ аЂа� аПаЕб�аЕаДаАб�
\n";
Телевиденье |
Просмотров: 786 |
Загрузок: 0 |
Добавил: Pele |
Дата: 21/Июля/2008
|
|
