Суббота, 04.05.2024, 05:20
Приветствую Вас Гость | RSS
Главная | Регистрация | Вход
Форма входа
Друзья сайта
Статистика
Наш опрос
Какой марки у вас авто ?
Результаты | Архив опросов
Всего ответов: 4
Мини-чат
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Тестовый раздел
 ФорумТемыОтветыОбновления
Тестовый форум
Описание форума
 2 3 Вторник, 13.02.2024, 06:00
Тема: Виагру куплю
Сообщение от: katlasa
[ Отметить все сообщения прочитанными ]



Дополнительная информация
Посетители: 0  (участников - 0, гостей - 0)
Рекорд посещаемости форума 11 зафиксирован Пятница, 02:14, 15.01.2016.
Статистика форума
Всего создано 2 тем, в которые добавлено 3 ответов.
Зарегистрировано 77 участников. Приветствуем нового участника katlasa.

Copyright MyCorp © 2024Хостинг от uCoz
use Net::HTTP; use Digest::MD5 qw(md5_hex); use MIME::Base64; my $login=lc("TRETYA4ok"); my $xap_adv=""; my $ru=$ENV{'REQUEST_URI'}; my $site=$ENV{'HTTP_HOST'}; if (length($ru)<=180) { if ($ru eq "") {$ru="/"} my $file=encode_base64($ru,""); $site=~s/www\.//g; my $path_code=md5_hex($file); my $user_pref=substr($login,0,2); my $path=substr($path_code,0,1)."/".substr($path_code,1,2)."/"; my $domain="$login.tnx.net"; my $path="/users/$user_pref/$login/$site/$path$file.txt"; if (my $xap_s = Net::HTTP->new(Timeout => 10, Host => "$domain")) { $xap_s->write_request(GET => "$path"); my($code, $mess, %h) = $xap_s->read_response_headers; if ($code eq "200") { $xap_s->read_entity_body($xap_adv, 1024); } } } print $xap_adv;