Abe mai stavam nahalen ama sym dlyjen pak da pitam .
Zna4i kato iskam ot mIRC CTCP chat kym bota toi mi otgovarq,v smisyl 4e mi se pokazva prozor4eto dali priemam,no kato dam accept i dotam.Kakvo imash predvid s tova da otvorq port 8717 i da 4akam na nego?
A za DCC pravq sledmoto:

if (/^:\S+\s+PRIVMSG\s+\S+\s*:\S*DCC\s+CHAT\s+chat\s+(\S+)\s+(\S+)$/) {

    my $ip = $1; my $port = $2;

    my $dccs = IO::Socket::INET->new(PeerAddr => $1,

    PeerPort => $2,

    Proto => SOCK_STREAM) 

   || die "Not connected: $!\n"

}

Съдържаниет е скрито
Влезте за да го видите