Opened by Gast at 2004-03-13 19:59
User since
2003-08-11
457 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-11
457 Artikel
BenutzerIn
[quote=Ronnie,30.03.2004, 17:51]
[/quote]
Lesen solltest du mit <$sock>.
Wenn der Server nach "slogin login password" noch eine Bestaetigung ausgibt ("OK" oder so) bekommst du natuerlich erst dieses OK als zurueck.
Dann muesstest du erst diese OK Zeile auslesen:
Quotesyntax error at (...), near "$sock qq(dbuserid Satan)"
Execution of (...) aborted due to compilation errors.
Lesen solltest du mit <$sock>.
Code: (dl
)
1
2
3
4
5
6
7
8
9
print $sock qq(slogin $login $password\n); # >>> slogin LOGIN PASSWORD
print $sock qq(dbuserid Satan\n); # >>> dbuserid USER
my $uid = <$sock>; # <<< ID
chomp($uid);
print $sock qq(kick $uid\n); # >>> kick ID
Wenn der Server nach "slogin login password" noch eine Bestaetigung ausgibt ("OK" oder so) bekommst du natuerlich erst dieses OK als zurueck.
Dann muesstest du erst diese OK Zeile auslesen:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
print $sock qq(slogin $login $password\n); # >>> slogin LOGIN PASSWORD
print scalar <$sock>; # <<< OK
print $sock qq(dbuserid Satan\n); # >>> dbuserid USER
my $uid = <$sock>; # <<< ID
chomp($uid);
print $sock qq(kick $uid\n); # >>> kick ID
,,Das perlt aber heute wieder...'' -- Dittsche