Eintrag finden und löschen: ist wichtig - #80974 (Allgemeines zu Perl)

Rooty

2004-08-06 14:49

User since
2004-03-14
27 Artikel
BenutzerIn

ich probier es mal genauer zu beschreiben

1. Telnetähnliche verbindung aufbauen

Code: (dl )

#!\C:\Perl\bin\perl.exe
#
#
use IO::socket;

my $sock = IO::Socket::INET->new(qq(127.0.0.1:4000));

2 Die Login-daten senden

Code: (dl )

1
2

print $sock qq(sel 8767\n);
print $sock qq(slogin superadmin *****\n);

Hilfe: sel | slogin

3. Nun möchte ich einen player aus der playerliste finden und ihm einen nachricht schicken

[ Hier brauch ich den code-teil ]

Als erstes brauch ich seine p_id
In Telnet sieht das so aus
ich tippe pl ein:

Quote
p_id c_id ps bs pr br pl ping logintime idletime cprivs pprivs pflags ip nick loginname
54 44 37313 1112114 38186 4454903 20 212 38369 1228 0 0 0 "0.0.0.0" "JACK" "seinloginname"

Hilfe: pl

4. Nun sende ich mit dem Befehl "msgu"
Hilfe : msgu
eine nachricht an die p_id

5. In dem besispiel oben finden sie den user per befehl "fp"
Hilfe: fp

Gibt es da einen möglichkeit den user dann noch per loginname du identifizieren ?
sprich "fp unky"

>p_id p_dbid c_id nickname loginname ip
>9114 0 1979 "FunkyFreak" "loginname_als_sicherheit" "80.184.142.72"
>9432 0 1848 "fresh&funky" "" "217.82.132.218"

Also nur wer den namen und den loginnamen hat bekommt einen nachricht.

War das soweit verständlich ?
kann mir da jemand ein script schreiben was das automatisch macht. wäre echt super. danke