|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Vlad Vasilyev 2:5020/400 08 Aug 2001 03:03:14
To : All
Subject : Помогите с LWP !!!
--------------------------------------------------------------------------------
Добрый день!
Проблема!
У меня лежал на сервере скрипт, при помощи которого можно было ходить
на сайт http://www.auto.ru
Все прекрасно работало, но сегодня что-то там на www.auto.ru сделали и
попасть я туда больше не могу. Код опубликую в конце. Сделать что-либо
у меня не получилось. Может на авто.ру не пускают с этим IP(типа
X_FORWARDED или еще чего)? Может кто-нибудь попробует запустить его у
себя? Или может кто-нибудь мне подскажет как его доделать в сложившихся
обстоятельствах. У меня к сожалению не получилось...
Заранее спасибо.
-----------------------
#!/usr/bin/perl
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
#-------- parse query parameters -----------------------------
@pairs = split(/&/, $ENV{'QUERY_STRING'});
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
if ($allow_html != 1) {
$value =~ s/<([^>]|\n)*>//g;
}
$FORM{$name} = $value;
}#------------------------------------------------------------
$message = "$FORM{message}";
use LWP::UserAgent;
my $ua = new LWP::UserAgent;
$ua -> agent("Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)");
my $url = "http://www.auto.ru/wwwboards/$message";
$request = new HTTP::Request('GET', $url, new HTTP::Headers
('Accept_Charset'=>'cp1251'));
$request -> header(Accept => "*/*");
$request -> header(CONNECTION => 'Keep-Alive');
$request -> header(ACCEPT_LANGUAGE => 'ru');
$request -> header(ACCEPT_ENCODING => 'gzip, deflate');
$request -> header('referer' => 'http://www.auto.ru/wwwboards');
my $response = $ua->request($request);
if ($response->is_error) {
print "Hе судьба...";
}else{
print "Content-type: ".$response->content_type."\015\012\015\012";
print $response->content;
}
--
Отправлено через сервер Talk.Ru - http://www.talk.ru
--- ifmail v.2.15dev5
* Origin: Talk.ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
