Opened by styx-cc at 2006-07-30 13:26
User since
2006-05-20
533 Artikel
BenutzerIn
2006-05-20
533 Artikel
BenutzerIn
Halli hallo, ich versuche gerade einen kleinen Clienten zu schreiben, was soweit auch funktioniert..
Also er verbindet sich und wenn der Login fehlschlaegt, sagt er auch "moderatorfailed". Wenn des Login allerdings geglueckt ist schweigt er mich an, obwohl er eigentl. "moderatorok" sagen sollte:
Sieht einer von euch einen kleinen Bug?
MfG
p.s.: ist so ziemlich das erste mal, dass ich mich wirklich mit Netzwerkprogrammeriung unter Perl beschaeftige.
Also er verbindet sich und wenn der Login fehlschlaegt, sagt er auch "moderatorfailed". Wenn des Login allerdings geglueckt ist schweigt er mich an, obwohl er eigentl. "moderatorok" sagen sollte:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
#!/usr/bin/perl
use strict;
use warnings;
use IO::Socket::INET;
my $host = 'irc-radio.hopto.org';
my $port = '11122';
my $socket = IO::Socket::INET->new(
PeerAddr => $host,
PeerPort => $port,
proto => 'tcp',
type => 'SOCK_STREAM');
print $socket "moderatorlogin passwort\n\r"; #das muss \r da der server sont janich antwortet
while (defined (my $line = <$socket>)) {
$socket->autoflush(1);
print $line;
}
$socket->close or warn $@;
### SUBS ###
Sieht einer von euch einen kleinen Bug?
MfG
p.s.: ist so ziemlich das erste mal, dass ich mich wirklich mit Netzwerkprogrammeriung unter Perl beschaeftige.
Pörl.