Суббота, 18.05.2024, 10:37
Приветствую Вас Гость | RSS
Главная | Регистрация | Вход
Форма входа
Друзья сайта
Статистика
Наш опрос
Какой марки у вас авто ?
Результаты | Архив опросов
Всего ответов: 4
Мини-чат
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Форум » Список участников форума
Список участников форума
Найдено пользователей: 77Страницы: 1 2 3 ... 7 8 »
НикнеймРангГруппаДата регистрацииСообщения
Afanasik Пользователи 24.02.20090
Agafonov1de 		Пользователи 27.04.20090
alexey78953 		 Пользователи 14.01.20120
AlinaS1991 		Пользователи 10.05.20090
Amadei1988 		Пользователи 17.05.20090
Biddon 		 Пользователи 14.04.20090
Carmella 		 Пользователи 08.04.20090
Cassano 		 Пользователи 05.04.20090
Chernokrylay 		 Пользователи 14.07.20110
diesell 		 Пользователи 13.06.20090
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;