Есть такой простой прокси на перл:
http://sanych99.narod.ru/New_Site/code/proxy/
обрабатывает один запрос и вываливается.
Системный вызов accept первый раз отрабатывает,
а второй раз (после того, как родитель делает return из fork)
возвращает значение ERESTARTSYS
В чём тут дело- HTTP::Daemon глючит?
Версии:
Linux 2.4.20 #2 Wed Apr 30 09:09:42 MSD 2003 i686 unknown
libwww-perl-5.69
{ ### MAIN ###
use HTTP::Daemon;
my $master = new HTTP::Daemon LocalAddr => $HOST, LocalPort => $PORT;
warn "set your proxy to <URL:", $master->url, ">";
my $slave;
&handle_connection($slave) while $slave = $master->accept;
exit 0;
} ### END MAIN ###
sub handle_connection {
my $connection = shift; # HTTP::Daemon::ClientConn
my $pid = fork;
if ($pid) { # spawn OK, and I'm the parent
close $connection;
return;
}
## spawn failed, or I'm a good child
my $request = $connection->get_request;
if (defined($request)) {
my $response = &fetch_request($request);
$connection->send_response($response);
close $connection;
}
exit 0 if defined $pid; # exit if I'm a good child with a good parent
}
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.
Похожие темы
- Форум #perl Помогите разобраться с юникс сигналами (2014)
- Форум двунаправленный канал через ssh на perl (2003)
- Форум fork в perl`е (2006)
- Форум Perl + FastCGI + nginx (2009)
- Форум perl, IPC & socket - чего тут не так? (2006)
- Форум Как определить что отвалился клиент от сервера ? (C++/daemon) (2007)
- Форум помогите найти ошибки в следующем перловом коде (2004)
- Форум проблема с чтением из FIFO (2024)
- Форум Си AVFrame + sws_scale + (видимо кривые руки) = segfault (2013)
- Форум тихо и незаметно]3proxy 0.6 финальный релиз (2009)