Kleines Prob mit Socket: Server antwortet komisch ! - #37483 (Netzwerkprogrammierung und Netzwerke mit Perl)

Froschpopo

2004-08-20 05:23

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

Ich hab mir mal grad ne SPIN Chat Developer Version gekauft: siehe: http://chat.spin.de/de/product/product-dev.shtml

jedenfalls bin ich grad dabei die API einzurichten für die der Server so bekannt ist.

Ich hab also eine Art Hallo-Server-Programm geschrieben.

Code: (dl )

use IO::Socket;

my $socket = IO::Socket::INET->new(PeerAddr => "localhost",
                                   PeerPort => 8000,
                                   Proto => "tcp",
                                   Type => SOCK_STREAM) or die "$@\n";
print $socket "ASCII\nQUIT\n";
my $answer = <$socket>;
close($socket);
print "Chatserver: $answer\n";

Folgendes: ich will den Server zuerst in den ASCII-Modus schalten. Der Rückgabewert des Servers lautet in diesem Fall ASCII und das funktioniert auch. Allerdings macht er danach irgendwie nicht weiter. Das LIST_USERS wird einfach übergangen. Normalerweise müsste laut Handbuch (http://chat.spin.de/de/doc/refs-ascii.html ) bei Fehlern 200 zurückgegeben werden, aber das einzigste was ich bekomme ist 200 !
Wieso ??\n\n