egghelp/eggheads community

IRC Online Script

2010-06-07T08:39:58-04:00

no need to quote that much!

Thanks!

I was getting this error though on the loading of the script

invalid command name "UPDATE CC_users SET onirc = 'no' WHERE ircname = 'ToonHead'" while executing ""UPDATE CC_users SET onirc = 'no' WHERE ircname = '$nick'" \ " invoked from within "set db_sqllist [list "UPDATE CC_users SET onirc = 'no' WHERE username = '$nick' " \ "UPDATE CC_users SET onirc = 'no' WHERE ircna..." (file "scripts/ircidle.tcl" line 183)

so I changed it to

Code:

set lista "UPDATE CC_users SET onirc = 'no' WHERE username = '$nick'"set listb "UPDATE CC_users SET onirc = 'no' WHERE ircname = '$nick'"set listc "UPDATE CC_users SET onirc = 'yes' WHERE username = '$newnick'"set listd "UPDATE CC_users SET onirc = 'yes' WHERE ircname = '$newnick'"set db_sqllist [list lista listb listc listd]

But.. now I'm getting the error that the 2nd procedure doesn't know what the $mode is..

Code:

proc db_handle_voicer {mode id channel nick newnick} {    switch -- $mode {       "-"   { puthelp "PRIVMSG $channel :User Offline: \002$nick\002 - IRC bonus disabled." }       "+"   ( puthelp "PRIVMSG $channel :User Online: \002$newnick\002 - IRC bonus enabled." }    }    pushmode $channel ${mode}v $newnick    return }

I tried adding global mode, but that didn't help. It didn't know channel either, but i added a set channel statement, then added global channel. I can see the mode is being passed to the procedure.. so why doesn't it know?

the error is:
can't read "mode": no such variable while executing "pushmode $channel ${mode}v $newnick " (file "scripts/ircidle.tcl" line 232) invoked from within "source scripts/ircidle.tcl"

Statistics: Posted by MIODude — Mon Jun 07, 2010 8:39 am

IRC Online Script

2010-06-06T23:26:54-04:00

Btw, you should use:
Code:
if {![isbotnick $nick]} {return 0}
instead of:
Code:
if {$nick==$botnick} {return 0} 

caesar, closely look at your post above. heh. I'm sure you meant this instead.

Code:

if {[isbotnick $nick]} {return 0}

and something like this is easier, since most of those nested if's simply do the same thing you can create sub procedures to make it easier to understand the code without needing those comments. A simple list to hold those sql commands makes it easier.

Code:

set db_sqllist [list "UPDATE CC_users SET onirc = 'no' WHERE username = '$nick'" \                     "UPDATE CC_users SET onirc = 'no' WHERE ircname = '$nick'" \                     "UPDATE CC_users SET onirc = 'yes' WHERE username = '$newnick'" \                     "UPDATE CC_users SET onirc = 'yes' WHERE ircname = '$newnick'"]proc nick_main {nick uhost handle channel newnick} {global db_handleif {[isbotnick $nick]} {return 0}if {[db_handle_helper 1 0] != 1} {if {[db_handle_helper 2 1] != 1} {if {[db_handle_helper 3 2] != 1} {if {[db_handle_heler 4 3] != 1} {putlog "SQL - Error"} else {db_handle_voicer "+" [mysqlinsertid $db_handle] $channel $nick $newnick}} else {db_handle_voicer "+" [mysqlinsertid $db_handle] $channel $nick $newnick}} else {db_handle_voicer "-" [mysqlinsertid $db_handle] $channel $nick $newnick}} elseif {[db_handle_helper "irc" 3] != 1} {db_handle_voicer "-" [mysqlinsertid $db_handle] $channel $nick $newnick}} proc db_handle_helper {s call} {global db_handle db_sqllistset sql [lindex $db_sqllist $call]putlog "SQL$s: $sql"putloglev d * "ircstats: executing $sql"set result [mysqlexec $db_handle $sql]putlog "result$s: $result"return $result}proc db_handle_voicer {mode id channel nick newnick} {switch -- $mode {"-"{ puthelp "PRIVMSG $channel :User Offline: \002$nick\002 - IRC bonus disabled." }"+"( puthelp "PRIVMSG $channel :User Online: \002$newnick\002 - IRC bonus enabled." }}pushmode $channel ${mode}v $newnickreturn}

Statistics: Posted by speechles — Sun Jun 06, 2010 11:26 pm

IRC Online Script

2010-06-06T14:47:56-04:00

Btw, you should use:

Code:

if {![isbotnick $nick]} {return 0}

instead of:

Code:

if {$nick==$botnick} {return 0}

Statistics: Posted by caesar — Sun Jun 06, 2010 2:47 pm

IRC Online Script

2010-06-05T18:14:52-04:00

doh!

thanks.. getting a new error now, but I will continue to trouble shoot.. at least this error I can work with!!

Statistics: Posted by MIODude — Sat Jun 05, 2010 6:14 pm

IRC Online Script

2010-06-05T18:04:39-04:00

You can't use // for comments... Only # will work for comments.

Statistics: Posted by nml375 — Sat Jun 05, 2010 6:04 pm

IRC Online Script

2010-06-05T17:16:12-04:00

This is similar to irc idle script., but we've modified it so that when people use alternate nicks in IRC, it works to show people 'online' on a website.

so.. we got the join, sign and part procedures changed without a problem, but the nick change we're struggling.

Essentially.. if a person is using their USERNAME nick or their IRCNAME nick (thats the field names in the SQL database) , and changes their nick to something other than USERNAME, or IRCNAME, it says they are offline.
If they change their nick to USERNAME, it marks them online. If they change their nick to their IRCNAME, it marks them online.

Below is the procedure for the nick change. I know the binding works, because before we implemented the alternate nick with IRCNAME, it worked fine.

Right now,

If I change my nick in irc, i get this error: (regardless what my current nick is or going to be). I can't figure out what is creating this error!

Tcl error [nick_main]: wrong # args: should be "set varName ?newValue?"

Code:

proc nick_main {nick uhost handle channel newnick} {global db_handle botnick  if {$nick==$botnick} {return 0}# first section is the check if your existing nick (before change) now matches username or IRC name, or no longer matches irc name or user name.  set sql "UPDATE CC_users SET onirc = 'no' WHERE username = '$nick'"  // check if existing nick (before change) matches username then make it NO!  putlog "Step 1: $sql"  putloglev d * "ircstats: executing $sql"  putlog "Step 2: $result"  set result [mysqlexec $db_handle $sql]    if {$result != 1} {              // existing nick doesn't exist in the database so this triggers If statement...    set sql2 "UPDATE CC_users SET onirc = 'no' WHERE ircname = '$nick'"  // check if existing nick (before change) matches ircname then make it No!    putlog "SQL2: $sql2"    putloglev d * "ircstats: executing $sql2"    set result2 [mysqlexec $db_handle $sql2]    putlog "result2: $result2"        if {$result2 != 1} {                // existing nick doesn't match ircname either... So.. lets check if the newnick matches username              set sql3 "UPDATE CC_users SET onirc = 'yes' WHERE username = '$newnick'"   //check newnick if it matches username              putlog "SQL3: $sql3"              putloglev d * "ircstats: executing $sql3"              set result3 [mysqlexec $db_handle $sql3]              putlog "result3: $result3"                        if {$result3 != 1} {                // new nick doesn't match username, so.. lets check if the newnick matches ircname                        set sql4 "UPDATE CC_users SET onirc = 'yes' WHERE ircname = '$newnick'"    //check if newnick matches ircname                        putlog "SQL4: $sql4"                        putloglev d * "ircstats: executing $sql4"                        set result4 [mysqlexec $db_handle $sql4]                        putlog "result4: $result4"                               if {$result4 != 1} {  // new nick doesn't match ircname either                               putlog "SQL - Error"  // sucks to be you.. no idle bonus for you!                               } else {         // but WAIT newnick matched ircname!!  give him his bonus!                               set id [mysqlinsertid $db_handle]                               puthelp "PRIVMSG $channel :User Online: \002$newnick\002 - IRC bonus enabled."                               pushmode $channel +v $newnick                               }                        } else {                // // but WAIT newnick matched username!!  give him his bonus!                        set id [mysqlinsertid $db_handle]                        puthelp "PRIVMSG $channel :User Online: \002$newnick\002 - IRC bonus enabled."                        pushmode $channel +v $newnick                        }              } else {                // // but WAIT original nick matched ircname!!  so disable his bonus since he just changed from it              set id [mysqlinsertid $db_handle]              puthelp "PRIVMSG $channel :User Offline: \002$nick\002 - IRC bonus disabled."              pushmode $channel -v $newnick              }    } else {                // // but WAIT original nick matched username!!  Does New Nick Match ircname?      set sqlirc "UPDATE CC_users SET onirc = 'yes' WHERE ircname = '$newnick'"      putlog "SQLirc: $sqlirc"      putloglev d * "ircstats: executing $sqlirc"      set resultirc [mysqlexec $db_handle $sqlirc]      putlog "resultirc: $resultirc"             if {$resultirc != 1} {                set id [mysqlinsertid $db_handle]                puthelp "PRIVMSG $channel :User Offline: \002$nick\002 - IRC bonus disabled."                pushmode $channel -v $newnick             }       }  }

All help is appreciated! I've been working on this for days now

Statistics: Posted by MIODude — Sat Jun 05, 2010 5:16 pm