egghelp/eggheads community

socket, client compatiblity problem

2006-04-15T12:22:17-04:00

Code:

proc cricinfo {minute hour day month year} {

Statistics: Posted by r0t3n — Sat Apr 15, 2006 12:22 pm

socket, client compatiblity problem

2006-04-15T02:47:38-04:00

so wht is the final code>?

proc cricinfo {} {
Why did you remove min, h, d, m, and y from the var list? its not optional. A bind to time will always be called with 5 arguments as you do not explicitly change it (like using the special argument "args" or adding addionals arguments to the bind line).

Statistics: Posted by CuteBangla — Sat Apr 15, 2006 2:47 am

socket, client compatiblity problem

2006-01-08T08:59:27-04:00

proc cricinfo {} {

Why did you remove min, h, d, m, and y from the var list? its not optional. A bind to time will always be called with 5 arguments as you do not explicitly change it (like using the special argument "args" or adding addionals arguments to the bind line).

Statistics: Posted by De Kus — Sun Jan 08, 2006 8:59 am

socket, client compatiblity problem

2006-01-08T07:31:25-04:00

hi demond, lil help pls

[08/01 17:00:03] [03:10] Tcl error [cricinfo]: wrong # args: should be "cricinfo"
[08/01 17:01:34] [03:30] #nANDu# set errorInfo
[08/01 17:01:34] Currently: wrong # args: should be "cricinfo"
[08/01 17:01:34] Currently: while executing
[08/01 17:01:34] Currently: "cricinfo $_time1 $_time2 $_time3 $_time4 $_time5"

Code:

bind time - "?0 *"   cricinfoproc cricinfo {} {global chanlinkidx chanlinknick nick username realname if {$chanlinkidx == ""} {set serv "CricInfo.LO.UK.StarLink.Org"set chanlinkidx [connect $serv 6667]control $chanlinkidx linkchanputlc "USER $username 0 0 :$realname"set chanlinknick $nick[rand 1000]putlc "NICK $chanlinknick"}}

.tcl cricinfo frm the dcc works fine

Statistics: Posted by nANDu — Sun Jan 08, 2006 7:31 am

socket, client compatiblity problem

2006-01-06T00:16:26-04:00

async comm means you must output to server's socket only in your control proc, responding to server's input

telnet to your server on its IRC port and see what exactly it sends you; my guess is it needs you to reply on PING cookie

Statistics: Posted by demond — Fri Jan 06, 2006 12:16 am

socket, client compatiblity problem

2006-01-05T09:02:53-04:00

Hi Demond,

Thanks for the suggestion, I tried the same with [fconfigure] & [fileevent] .. i still get the same error. Nevermind i know i din understand/use them properly :/

Your spambuster was a great help, i succeeded the same with [control] & [connect]. But, i need a lil help checking a proc every minute or 5, to make sure that the socket is connected. Below is what i tried (from ur spambuster's help) :-

Code:

bind time - "?0 % % % %"cricinfoproc cricinfo {min hr mn d yr} {global chanlinkidx username realname nickif {![info exists chanlinkidx]} {if {![valididx $chanlinkidx]} {control [set chanlinkidx [connect CricInfo.LO.UK.StarLink.Org 6667]] cric:cntrlputdcc $chanlinkidx USER $username 0 0 :$realnameputdcc $chanlinkidx NICK $nick[rand 1000]}}}

Problem:
1) Even if i kill the above $chanlinkidx, it never restarts it.
2) By trial & error i get the proc cricinfo restart. But, i get an error no such variable chanlinkidx

Statistics: Posted by nANDu — Thu Jan 05, 2006 9:02 am

socket, client compatiblity problem

2005-12-30T23:59:40-04:00

that must be the dumbest error message ever issued by an IRC server

the IRC server <-> client communication is asynchronous, i.e. you need to handle it with non-blocking, event-driven socket (either use Tcl's mechanism for that - [fconfigure] and [fileevent], or use eggdrop's built-in mechanism via [connect] and [control])

search the forum on the subject, there are plenty of topics elaborating on it; or/and see my script spambuster which, among many other things, does what you need to do - connects a client to IRC server

Statistics: Posted by demond — Fri Dec 30, 2005 11:59 pm

socket, client compatiblity problem

2005-12-30T17:40:16-04:00

CricInfo.LO.UK.StarLink.Org is a CricInfo's IRC server. Idea is to get the commentry frm #cricinfo channel and relay it to bots original network/channel.

Code:

proc cricket {} {set nick "nANDu[rand 99]" set sock [socket cricinfo.lo.uk.starlink.org 6667]   puts $sock "NICK $nick" puts $sock "USER nANDu . . Kishyy"flush $sockwhile {[lindex [split [gets $sock] :] 1] == "End of /MOTD command." } { puts $sock "JOIN #cricinfo" flush $sock}   gets $sock lineset reply [lindex [split $line :] 1]puts $sock "PONG :$reply"   if {[lindex [split $line] 1] == "PING"} {puts $sock "PONG :$reply"}set lines "$line\n"   putlog "$lines"}

:CricInfo.LO.UK.StarLink.Org 513 nANDu37 :Your client may not be compatible with this server.
-
Not able to proceed after that...

Statistics: Posted by nANDu — Fri Dec 30, 2005 5:40 pm