Socket bleibt hängen: Abbruchtimeout usw. (Netzwerkprogrammierung und Netzwerke mit Perl)

[thread]4287[/thread]

Socket bleibt hängen: Abbruchtimeout usw.

Gast Gast

2004-06-10 13:11

Hallo!

Ich habe folgendes Problem:

Ich möchte eine Netbios-Session auf einen Rechner starten.
Bei Windows krieg ich auch eine Antwort leider bleibt das komplette Programm z.B. bei SunOS stehen.
Der Socket wird zwar inititalisiert aber es kommt keine Antwort, sondern nur ein TCP-ACK.
Die Timeout-Option funktioniert leider genauso wenig wie die Änderung des Buffersize beim recieve.

Habt ihr einen Tip wie ich einen Timeout setzen kann oder einfach beim Hängenbleiben einen Abbruch erzwinge?
Das Prog läuft unter Windows

Code: (dl )

$sock = new IO::Socket::INET (  PeerAddr => $ipreal,
	PeerPort => 139,
	Proto => "tcp",
	Timeout => 1,
	 Type => SOCK_STREAM);

if ($sock) {$|=1;
      print "\nstarte prerequest\n";
if ($sock->send($prerequest)){$sock->recv($data,1);}

View all threads created 2004-06-10 13:11.