Суббота, 18.05.2024, 08:34
Приветствую Вас Гость | RSS
Главная | Регистрация | Вход
Форма входа
Друзья сайта
Статистика
Наш опрос
Какой марки у вас авто ?
Результаты | Архив опросов
Всего ответов: 4
Мини-чат
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Тестовый раздел » Тестовый форум
Фильтр по:
Тестовый форум
 ТемаОтветыПросмотрыАвтор темыОбновления↓
Виагру куплю
Куртизанки lilyth.ru
 1 5804 lilythru 13.02.2024, 06:00
Сообщение от: katlasa
; 2 4266 stauto 13.02.2024, 05:59
Сообщение от: katlasa
В этом форуме тем: 2. На странице показано тем: 2.
Форум просматривают: 1 гостей
  • Страница 1 из 1
  • 1
Обычная тема (Есть новые сообщения)
Обычная тема
Обычная тема (Нет новых сообщений)
Тема - опрос
Горячая тема (Есть новые сообщения)
Важная тема
Горячая тема (Нет новых сообщений)
Горячая тема
Закрытая тема (Нет новых сообщений)
Закрытая тема
Поиск:
Вы не можете создавать темы
Вы не можете создавать опросы
Вы не можете прикреплять файлы
Вы не можете отвечать на сообщения
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;