Постановка задачи
Существует FreeBSD сервер, подключеный к интернет.
Задача заключается в написании приложения, к-е постонно висит в памяти сервера и принимает-отправляет данные от одного клиента - другому.
Как пример - ICQ

Впрос
Как быстро нацарапать такой минисервер с админкомандой "die", к-я выгружает программу из памяти.

#----------------

Поэтапно:

Этап 1
какие функции исспользуються для открытия портов и прослушивания их на предмет приёма.

Этап 2
как определить IP клиента

Этап 3
как держать такую программу всегда в памяти?

Спасибо за помощь!

А не легче юзать уже готовое?

Цитата

какие функции исспользуються для открытия портов и прослушивания их на предмет приёма.

http://doc.diesel.elcat.kg/Perl/lib/site/LWP/Socket.html
http://www.getinfo.ru/article135.html

Цитата

как определить IP клиента

Юзать функции работы с сетью, протоколами, сокетами!

Цитата

как держать такую программу всегда в памяти?

chuck@mon chuck $ ./server &
И будет она у тебя висеть, пока сам не kill-нешь, либо пока она не завершится!

Это сообщение отредактировал(а) Chuck - 12.5.2005, 15:51

Цитата(VoAnt @ 12.5.2005, 13:43)

Постановка задачи Существует FreeBSD сервер, подключеный к интернет. Задача заключается в написании приложения, к-е постонно висит в памяти сервера и принимает-отправляет данные от одного клиента - другому. Как пример - ICQ Впрос Как быстро нацарапать такой минисервер с админкомандой "die", к-я выгружает программу из памяти. #---------------- Поэтапно: Этап 1 какие функции исспользуються для открытия портов и прослушивания их на предмет приёма. Этап 2 как определить IP клиента Этап 3 как держать такую программу всегда в памяти? Спасибо за помощь!

вот тебе пища для размышление
1)

Код

use IO::Socket; $sock = new IO::Socket::INET (LocalHost => 'localhost',                               LocalPort => 1200,                               Proto     => 'tcp',                               Listen    => 5,                               Reuse     => 1                                                          ); die "$!" unless $sock; while ($new_sock = $sock->accept()) {     while (defined ($buf = <$new_sock>)) {        print $buf;     } } close ($sock);

2)

Код

($port,$ipaddr) = sockaddr_in($new_sock->sockname()); $ipaddr = inet_ntoa($ipaddr);

3) для этого есть fork()

Это сообщение отредактировал(а) chaos - 13.5.2005, 10:55

Цитата

какие функции исспользуються для открытия портов и прослушивания их на предмет приёма.

chaos - на это вопрос ответил. Можно заюзать ещё модуль Socket, но IO::Socket всё же лучше.

Цитата

как определить IP клиента

Код

$ip = $ENV{ HTTP_X_FORWARDED_FOR } || $ENV{ REMOTE_ADDR };

Цитата

как держать такую программу всегда в памяти?

До тех пор, пока приложение "сервер" ждёт, оно и так висит в памяти.

Это сообщение отредактировал(а) korob2001 - 13.5.2005, 17:31

Цитата

Как быстро нацарапать такой минисервер с админкомандой "die", к-я выгружает программу из памяти.

"быстро" или "правильно"?

Если "быстро" - не знаю, наверное искать что то готовое, если "правильно" то начать с "Эффективного програмирования TCP/IP" Йона Шнайдера(автора могу переврать), и продолжить "Разработка сетевых программ на PERL" Линкольн Д. Штайн. В обоих книках есть достаточно примеров, какой-то их них вполне можно будет взять за основу...

Цитата

Этап 3 как держать такую программу всегда в памяти?

А стоит ли? Посмотри на механиз работы с сендмейлом, к примеру. Он все время в памяти не висит, а "поднимается" системой при обращении к определнному порту...