товарищи помогите :
создаю сокет, но в ответ получаю "permission denied", судя по всему фаервол не пущает
а) как найти ентот фаервол
б) как создать сокет с авторизацией через фаервол?

А какая ОС хоть?

А вот это не поможет?
http://vingrad.ru/download/perl/LWP-spec.pdf

2NightGoblin: Ось - UNIX

2Secandr: К содалению библиотке LWP тама отсутствует (((

lezhik, что конкретно ты хочешь сделать, и как создаешь порт? Код в студию

Это сообщение отредактировал(а) NightGoblin - 21.10.2003, 18:35

#!/usr/bin/perl

use Socket;

print "Content-Type: text/html\n\n";
print "<html>";
print "<title>Cyrus</title>";
print "<head>";
print "</head>";
print "<body>";

$server = "http://forum.vingrad.ru";
$port = 80;

$server_addr =(gethostbyname($server))[4];
$server_struct = pack("S n a4 x8", AF_INET, $port, $server_addr);
$proto = (getprotobyname('ftp'))[2];
socket(MYSOCK, PF_INET, SOCK_STREAM, $proto)|| print "Failed to initialize socket: $!\n";
connect(MYSOCK, $server_struct) || print "Failed to connect() to server: $!\n";

print "</body>";
print "</html>";

Почему у тебя $proto так инициализируется странно?... Я делал так, все нормально работает:

Код

$PROTO = getprotobyname ('tcp');

То есть, протокол - TCP, с FTP ты потом уже сам работать будешь. И потом с какой стати FTP у тебя на 80 порту?

И еще: на какой строке выдает Permission denied?

инициализацию proto пробовал менять не помогает, а ftp на tcp поправить забыл, я просто в последний раз по ftp пробовал соединится после того как по tcp не вышло и там были указаны логин и пароль, не отсавлять же было, а валится Permission denied здесь:
connect(MYSOCK, $server_struct) || print "Failed to connect() to server: $!\n";

LWP кажется поставляется в стандартной установке PERL. Должон быть.

Нема там LWP, стоит добавить uses LWP в работающий код, как всё перестаёт работать

Скачай LWP со CPAN'а и брось в текущую директорию. После этого можно включать его с помощью use

ну, закачал я libwww-perl-5.10.tar.gz.tar теперь туды нужно содержимое папки lib из архива скопить или как?

я вот только не понимаю, что LWP-то даст? он точно так же через сокеты работает...

я то ж не знаю, но раз советовали попробовать хотел, а всё таки нет ли какого скрипта для обнаружения фаервола?