ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vadim Kazakov                        2:5030/1208    30 Apr 2000  12:22:52
 To : All
 Subject : help pls
 -------------------------------------------------------------------------------- 
 

 
 Как я вижу эта тема тут обсуждается, но конкретного ответа на мой вопрос я так и
 не услышал =( Помогите плз. Что мне добавить в код, чтобы подставлять Referer
 (например www.zzz.com/aaa.Html)? Хэлпы по lwp читал - нифига не понял :(
 
 > ---
 
 # Create a user agent object
 use LWP::UserAgent;
 open (t, ">temp1.html") || die "can't open tgp.ini: $!";
 $ua = new LWP::UserAgent;
 
 $ua->agent("AgentName/0.1 " . $ua->agent);
 
 $name='http://www.aaa.com/cgi-bin/manager.cgi?account=aaa&password=bbb';
 # Create a request
 my $req = new HTTP::Request POST => $name;
 
 $req->content_type('application/x-www-form-urlencoded');
 $req->content('match=www&errors=0');
 
 # Pass request to the user agent and get a response back
 my $res = $ua->request($req);
 
 # Check the outcome of the response
 if ($res->is_success) {
     print t $res->content;
 } else {
     print "Bad luck this time\n";
 }
 close(t)
 
 > ---
 
                                                            WBR, Stone Keeper
 
 --- Original Vibes, Mega Phone, Dj Die, Dj Hype, Collective, Mask ...
  * Origin: Heavy St0ne Stati0n,108-4225,23-07,V34+ (2:5030/1208)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    help pls   Vadim Kazakov   30 Apr 2000 12:22:52   help pls   Albert N. MICHEEV   30 Apr 2000 16:00:57