Xinetd + Perl + ukonceni klienta

Zdravim, zkousim si zprovoznit xinetd server napsany v perlu. Pro xinetd jsem si udelal testovanej konfigurak.


service test

{

    disable         = no

    type            = UNLISTED

    wait            = no

    socket_type     = stream

    protocol        = tcp

    port            = 2222

    server          = /root/test.pl

    flags           = NOLIBWRAP KEEPALIVE

}

V perl skriptu jsem inicializoval stdin a stdout. Cteni od klienta pres stdin a zapis klientovy na stdout pomoci systemovych funkci sysread a syswrite funguje. Nedokazal jsem najit nikde co se stane kdyz klient zavre spojeni pomoci funkci shutdown+close. Tedka to mam reseno pomoci funkce alarm.



sub get_alarmed {

    exit;

}



local $SIG{ALRM} = \&get_alarmed;

alarm 10;

my $ret_len = sysread($s, $buf, 2);

alarm 0;

Podle dokumentace by mneli tyto funkce vracet undef pri nejake chybe. Moje otazka zni jestli je toto spravne a jak se da nastavit sysread+syswrite do neblockovaneho rezimu. Diky

je zbytecne delat handler s exitem na sigalarm, protoze implicitni handler dela exit :-)

pokud klient provede close, dostanete na vstupu (sysread) EOF, tj. 0 prectenych znaku. na vystupu (syswrite) dostanete -1 a EPIPE, pripadne se vam dostavi i sigpipe, ktery je potreba osetrit. pokud nemate nejaky extra duvod k sys* funkcim (tj. nevadi vam bufferovani, perlio, atd), muzete pouzit normalni print, read nebo readline (alias <>).

nonblock muzete delat dvema zpusoby, a to bud klasicky pres fcntl (viz cookbook), nebo ve vetsine pripadu je plne dostacujici pouzivat select na normalnich (blokujicich) socketech. v druhem pripade bych dal prednost jiz hotovemu modulu IO::Select.

In Ada the typical infinite loop would normally be terminated by detonation.

Dotaz: Xinetd + Perl + ukonceni klienta

Odpovědi