I'm trying to make an inetd perl server to communicate with a perl client.
Communication from client to server is working but not from server to
client. As I understand inetd handles the socket, bind, listen and accept
stuff and basically you can communicate between server and client using
STDIN and STDOUT. But it's not working and I'm stuck.
Does anyone know what I'm doing wrong/can help me going again?
Thanks Henk
This is what I've got sofar.:
==/etc/services======================================================
psad 1200/tcp # Test perl inetd daemon
==/etc/inetd.conf ====================================================
psad stream tcp nowait root /tmp/server.prl
==server.prl========================================================
#!/usr/bin/perl
open (OUTFILE, ">/tmp/effe1"); # Open output file
select(OUTFILE); $|++; # Unbuffered output OUTFILE
select(STDOUT); $|++; # Unbuffered output STDOUT
while (<STDIN>) {
print OUTFILE $_; # Write client lines to OUTFILE
}
print "Output for standard out\n"; # Send lind to client
close (OUTFILE); # Close output file
==client.prl==========================================================
#!/usr/bin/perl
use IO::Socket;
# Setup connection to server , for now on same host
$sock = IO::Socket::INET->new( PeerAddr => 'localhost',
PeerPort => 1200,
Proto => 'tcp',
);
unless ($sock) {die "Socket could not be created, Reason: $!"}
foreach (1..100) {
print $sock "Line $_\n"; # Send lines to server
}
# Hope to receive output from server and store in file
open (OUTFILE, ">/tmp/effe2") || die "can't open outfile $!";
$a = <STDIN>;
print OUTFILE $a;
close (OUTFILE); # Close output file
close ($sock); # Close connection
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
