#!/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 \n";

Формы и минифейсы.

Патч для PES 4. Поддержка сетевой игры.
Делающий поля зелеными, оформление стадионов, щитов, мячей под ЛЧ.

Описание:
Внимание благодаря усилием Dertа мы нашли патч сезона 07-08, его устанавливать всем кто желает играть у нас! Патч работает когда вы играете по сети или по локалке!

супер менеджер

Это второй большой шаг в мир следующего поколения интерактивных футбольных развлечений

В UEFA EURO 2008 вас ждут невероятно качественная графика и визуальные эффекты, всемирно известные футболисты, новые составы национальных сборных и увлекательный и динамичный игровой процесс.