ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/400     17 Jul 2002  13:04:56
 To : Vlad Kozyrev
 Subject : Re: Как бы...
 -------------------------------------------------------------------------------- 
 

 Здравствуй, Vlad Kozyrev.
 
 VK> Ohayo, all!
 VK> Как бы заставить пpиведенный скpипт отдавать полyченнyю стpокy отдавать в
 VK> бpоyзеp? Пpи pаботе из консоли выдает то, что надо, а в бpоyзеpе и телнете
 VK> глyхо и темно, как в лесy
 
 VK> === Cut ===
 VK> #!e:/lost_f/perl/bin/perl.exe
 VK> use CGI qw(:standard);
 VK> use IO::Socket;
 
 VK> #my $host=param("host");
 VK> #my $document=param("document");
 VK> #my $port=param("port");
 VK> #my $range=param("range");
 
 VK> if ($host && $document && $port) {
 VK> $remote=IO::Socket::INET->new(Proto => "tcp",
 
 VK> PeerAddr => "127.0.0.1",
 VK> PeerPort => 80);
 
 VK> unless ($remote) {print header;print start_html("Warning! Error...");
 VK> print end_html}
 VK> $remote->autoflush(1);
 VK> print $remote "GET /svd.zip HTTP/1.0\n\n";
 VK> ###################^^^^^^^^
 VK> while (<$remote>) {print }
 VK> ###################^^^^^^IMHO копать вpоде тyт
 
 Примерно. По этой ветке ты не выдаешь заголовок. И, кстати, пытаешься ее
 выполнить даже если $remote не определено. Что приведет к падению скрипта.
 
 Хинт: "print end_html" не делает exit.
 
 VK> -close $remote;
 VK> }
 
 VK> else {
 VK> print header;print start_html("Enter your request...");
 VK> print <<end_nya;
 VK> <form action=../cgi-bin/soc.cgi method=get>
 VK> <table border=0>
 VK> <tr><td width=50>Host</td>
 VK> <td width=130><input type="text" name="host" size=20 maxlength=20></td></tr>
 VK> <tr><td>Doc.</td>
 VK> <td><input type="text" name="document" size=30></td></tr>
 VK> <tr><td>Port</td>
 VK> <td><input type="text" name="port" size=4 maxlength=4
 VK> <tr><td>Port</td>
 VK> value="80"></td></tr>
 VK> <tr><td align=center><input type=submit value="Transfer"></td>
 VK> </tr>
 VK> </table></form>
 VK> end_nya
 
 VK> print end_html;}
 VK> === Cut ===
 
 VK> PS Может этоже пpоще было бы делать с помощью libwww-perl
 
 Проще с помощью LWP. Hо в данном случае это (пока) не роляет.
 
 -- 
 Artem Chuprina
 Communiware.net
 RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
 --- ifmail v.2.15dev5
  * Origin: Leninsky 45 home network (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Как бы...   Vlad Kozyrev   16 Jul 2002 13:31:00   Re: Как бы...   Dmitriy Liakh   17 Jul 2002 11:59:00   Re: Как бы...   Artem Chuprina   17 Jul 2002 13:02:51   Re: Как бы...   Artem Chuprina   17 Jul 2002 13:04:56