Легенда:
 новое сообщение
 закрытая нитка
 новое сообщение
 в закрытой нитке
 старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
|
Вопросик по Perl'y... 30.08.01 03:45 Число просмотров: 931
Автор: n Статус: Незарегистрированный пользователь
|
Skoree vsego yeto proishodit tk skript prodlshaet vypolnyat"sya ili on nefiga ne vosrashaet na stdout (v brayser)
Я пишу прогу которая создает сокет и конектиться на 21 порт
> по указанному адресу, но когда я это делаю в консоле все
> ок, но я хочу
> чтоб через web интерфейс осуществлялся конект. в броузере
> пишу: 127.0.0.1/cgi-bin/ftp.pl а броузер (NetScape) ничего
> не делает а просто думает, те место курсора появляються
> часики а картинка броузера не меняется никого сообщения об
> ошибке нет.
>
>
> Листинг программы:
>
> #!/usr/bin/perl
>
> use CGI qw(:standard);
> use Socket;
>
> $port=param('port');
> $host=param('host');
>
> print "Content-type:text/html\n\n";
> print '<html>';
>
> $proto=getprotobyname('tcp');
> socket(SOCK,PF_INET,SOCK_STREAM,$proto);
> $sin=sockaddr_in($port,inet_aton($host));
> connect(SOCK,$sin);
> while (<SOCK>)
> {
> print '<p>',$_,</p>;
> }
> close(SOCK);
> };
>
> print '</html>'
|
|
<hacking>
|
Вопросик по Perl'y... 30.08.01 03:07
Автор: WingGod Статус: Незарегистрированный пользователь
Отредактировано 30.08.01 03:09 Количество правок: 1
|
Я пишу прогу которая создает сокет и конектиться на 21 порт по указанному адресу, но когда я это делаю в консоле все ок, но я хочу
чтоб через web интерфейс осуществлялся конект. в броузере пишу: 127.0.0.1/cgi-bin/ftp.pl а броузер (NetScape) ничего не делает а просто думает, те место курсора появляються часики а картинка броузера не меняется никого сообщения об ошибке нет.
Листинг программы:
#!/usr/bin/perl
use CGI qw(:standard);
use Socket;
$port=param('port');
$host=param('host');
print "Content-type:text/html\n\n";
print '<html>';
$proto=getprotobyname('tcp');
socket(SOCK,PF_INET,SOCK_STREAM,$proto);
$sin=sockaddr_in($port,inet_aton($host));
connect(SOCK,$sin);
while (<SOCK>)
{
print '<p>',$_,</p>;
}
close(SOCK);
};
print '</html>'
|
|
Вопросик по Perl'y... 30.08.01 03:45
Автор: n Статус: Незарегистрированный пользователь
|
Skoree vsego yeto proishodit tk skript prodlshaet vypolnyat"sya ili on nefiga ne vosrashaet na stdout (v brayser)
Я пишу прогу которая создает сокет и конектиться на 21 порт
> по указанному адресу, но когда я это делаю в консоле все
> ок, но я хочу
> чтоб через web интерфейс осуществлялся конект. в броузере
> пишу: 127.0.0.1/cgi-bin/ftp.pl а броузер (NetScape) ничего
> не делает а просто думает, те место курсора появляються
> часики а картинка броузера не меняется никого сообщения об
> ошибке нет.
>
>
> Листинг программы:
>
> #!/usr/bin/perl
>
> use CGI qw(:standard);
> use Socket;
>
> $port=param('port');
> $host=param('host');
>
> print "Content-type:text/html\n\n";
> print '<html>';
>
> $proto=getprotobyname('tcp');
> socket(SOCK,PF_INET,SOCK_STREAM,$proto);
> $sin=sockaddr_in($port,inet_aton($host));
> connect(SOCK,$sin);
> while (<SOCK>)
> {
> print '<p>',$_,</p>;
> }
> close(SOCK);
> };
>
> print '</html>'
|
|
|
подробно о проекте
Анализ криптографических сетевых...
