ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/400     28 May 2001  11:46:02
 To : sergiy@ptz.ru
 Subject : Re: передача пароля при ауторизации
 -------------------------------------------------------------------------------- 
 

 Здравствуй, Sergiy Toropov.
 
 В твоём письме от Sat, 26 May 2001 15:23:09 +0000 (UTC) написано:
 sergiy> Привет всем.
 sergiy> Скрипт лежит в директории требующей ауторизацию.
 
 sergiy> Имеется такой скрипт:
 
 sergiy> #!/usr/bin/perl
 sergiy> use IO::Socket;
 
 sergiy> $host = "ip.for.something.host";
 sergiy> $EOL = "\015\012";
 sergiy> $BLANK = $EOL x 2;
 
 sergiy> $document="/cgi-bin/test";
 sergiy> $remote = IO::Socket::INET->new( Proto     => "tcp",
 sergiy>                                                         PeerAddr  =>
 sergiy> $host,                                                        PeerPort  
 sergiy> => "http(80)",                                                      );  
 sergiy> unless ($remote) { die "cannot connect to http daemon on $host" }
 
 $remote->>autoflush(1);
 sergiy>         print $remote " $document HTTP/1.0" .$EOL;
 sergiy>         print $remote "Host: something.ru" .$EOL;
 sergiy>         print $remote "Auth_type: basic" .$EOL;
 sergiy>         print $remote "Remote_user: test" .$EOL;
 sergiy>         print $remote "User-Agent: Mozilla/4.04 [en] (Win95; I)" .$EOL;
 sergiy>         print $remote "Referer: http://something_for_referer.ru/".$EOL;
 sergiy>         print $remote "X-forwarded-for: something_for_proxy" .$BLANK;
 
 sergiy>         while ( <$remote> )
 sergiy>         {
 sergiy>         $res=$_;
 sergiy>         print "$res\n";
 sergiy>         }
 sergiy>         close $remote;
 
 sergiy> Хотелось бы в stdout получить результат работы cgi-bin/test, но
 sergiy> сделать этого не могу, потому как не могу передать пароль. Как это
 sergiy> сделать?
 
 RTFM: RFC2616 и откуда туда пошлют с заголовком Authorization (кажется, 2617).
 Или use LWP и не морочь голова.
 
 -- 
 Artem Chuprina                            E-mail: ran@ran.pp.ru
 Programmer                                  FIDO: 2:5020/371.32
 Memonet Ltd.                             Phone: +7-095-284-1356
 --- ifmail v.2.15dev5
  * Origin: NTV Internet (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    передача пароля при ауторизации   Sergiy Toropov   26 May 2001 19:23:09   Re: передача пароля при ауторизации   Artem Chuprina   28 May 2001 11:46:02