ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Alexei A. Fedotov                    2:5020/400     28 Sep 2000  19:00:54
 To : All
 Subject : method=post
 -------------------------------------------------------------------------------- 
 

 дорогой Алл!
 
 почему у меня на сервер информация методом пост не приходит?
 
 sub prepare_url($)
 {
     $parsed_url = new URI::URL ($_[0]);
 
  if ($@) {
   die " parse error: $@";
  }
 
  # if not HTTP, skip it
  if ($parsed_url->scheme !~ /http/i) {
   die $parsed_url->scheme.' instead of http://';
  }
 
 }
 
 prepare_url($ActiveServer.$EnterURL);
 
 # it is text/html, get the entity-body this time
 my $myheader = new HTTP::Headers();
 my $request = new HTTP::Request('POST', $parsed_url, $myheader,
 "ID=$LoginName&PASSWORD=$LoginPass");
 
 my $response = $ua->request($request);
 
 счастливо, Алексей
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

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