Probvah go i sys foreach pak ne stana.Dokolkoto zabelqzah cikylyt izobshto ne zapo4va da cikli bah maaamu,kato 4e li go preska4a

wij si hubawo koda, ne moga da ti kaja nisto bez da go widq, ako iskash go prati na mail-a na sajta (DarkChild@programmer.net) i tam ste moga da ti kaja nesto powe4e. Pri segashniq ircnewbie towa e problema, no tej kato ti si go izpolzwal samo kato skele, ne znam kakwo si prawil i ne moga da ti kaja nesto powe4e . Eto kak bi trqbwalo da se prawi DCC wryzka:

pri request na \001DCC CHAT *
toj izglejda taka:
:sofit[dead]!~sofit4e@office2.proshe.bg PRIVMSG gruhgruh :\001DCC CHAT chat 1044990994 3754

trqbwat ti poslednite 2 nesta, poslednoto e porta, prepdoslednoto IP-to w long format convert-va se w readable format taka: inet_ntoa(pack "N", 1044990994);
sled kato imash adresa i porta prosto se wryzwash tam i taka si goworite.

pri request na CTCP CHAT:
:sofit[dead]!~sofit4e@office2.proshe.bg PRIVMSG gruhgruh :\001CHAT

Trqbwa ti da naprawish DCC CHAT taka:
$myiplong = unpack("N",inet_aton("twoetoip"));
$porttoopen = 8718;
print SOCK "PRIVMSG $nick :\001DCC CHAT chat $myiplong $port";
I predi towa razbira se trqbwa da si otworil 8718 porta i da 4akash wryzka kym nego.

best regards,
IRCHelp Team

V momenta nqmam dostyp do mashinata kadeto e scripta,no dove4era ili utre shte gledam da go izpratq na tozi e-mail,koito si dal.
Blagodarq mnogo za obqsnenieto za DCC i CTCP

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

Mersi mnogo za pomoshtta :) Oba4e kato mi konvertne IP-to po tozi na4in :
inet_ntoa(pack "N", 1044990994);
i izliza nqkakvo drugo, da ne bi da e vytreshniq adres na mashinata mi? A parsvaneto na konfiga go napravih ve4e po savsem drug na4in - sys index i
substr i sega e mnogo po-barzo,no problema taka i si ostana
pri povtorno parsvane stoinostite stavat undef.
Regards

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

Razbira se, 4e substr() bi bilo po-byrzo ot regex (makar 4e ne se goni byrzinata w powe4e programi na Perl a efektiwenostta.. no wse pak congrats). Ne moga da ti kaja zasto ti se bozi towa, zastoto _WSE OSTE_ ne sym polu4il koda ti. Ste byde dowolen ako go widq. inet_ntoa(pack "N", 1044990994); ste ti wyrne moeto IP (62.73.76.18) ako imash use Socket;
Ex:
$ perl -e 'use Socket;print unpack("N",inet_aton("127.0.0.1"));'
2130706433

$ perl -e 'use Socket;print inet_ntoa(pack "N", "2130706433");'
127.0.0.1

Ima weroqtnost da e wytreshnoto ti IP. Makar 4e sym wijdal 4e BitchX uspqwat nqkak da si komunikirat daje i mashinata da ima wytreshno IP, moje bi prasta obraten chat ili pyk si komunikirat po sywsem drug na4in ?? Ne moga da kaja wyprosa si otprati kym tqh

S udovolstvie shte ti go pratq ,no shela na koito e ne mi dava FTP vryzka za da si go drypna na moqta mashina,kato se opravi shte ti go pratq na po-gorniq e-mail,koito si ostavil

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

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"

}

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