I am attempting to make a socket server running on a Win98 platform and
have a socket client connecting from a SCO Unix platform. What happens is
that I start the server and it sits waiting, I then connect from the SCO
server with the client socket app and I detect a connection on the Windows
box. What doesn't happen is the client sends a "Hello" string to the
server and the server does not read what's going through the socket.
I'm attaching the code, and it is pretty plain jane. If anyone can point
me in the right direction I would appreciate it.
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++
sockets.pl - running on a Win98 box.
use IO::Socket;
my $sock = new IO::Socket::INET (LocalHost => '192.168.2.39', LocalPort =>
'7801', Proto => 'tcp', Listen => 1, Reuse => 1,);
die "Could not create socket: $!\n" unless $sock;
my $new_sock = $sock->accept();
print "accept\n";
while($new_sock) {
print $_;
}
close($sock);
socketc.pl - running on a SCO Unix server.
#!/usr/local/bin/perl
use IO::Socket;
my $sock = new IO::Socket::INET (PeerAddr => '192.168.2.39', PeerPort =>
'7801', Proto => 'tcp',);
die "Could not create socket: $!\n" unless $sock;
print $sock "Hello there\n";
close($sock);
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+++++++++++++++++++++++++++++++
Thanks
________________________________________________________________________
_________________________________________________________
Jeffrey L. Slutzky
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
