Specific problems

2007-03-04T13:13:40-04:00

In truth I did have 2 specific problems with the code.
You either saw the bind problem or sensed it. A careful reading of the quote you posted
brought me the solution to it. I had not included a host mask in the bind.
The second problem was with the timer, or rather the finding and killing of it.
The egghelp forum thread: Posted: Wed Jun 22, 2005 7:54 pm Post subject: Searching and killing timers
gave me the solution to that.
Thank you for your help

Statistics: Posted by et109 — Sun Mar 04, 2007 1:13 pm

First try using namespace

2007-03-03T22:50:36-04:00

You don't have to use [::channels] or [::chanlist], you can use simply [channels] and [chanlist] since these proc names are not overridden in your namespace.

Also:

JOIN (stackable)
bind join
procname

Description: triggered by someone joining the channel. The mask in
the bind is matched against "#channel nick!user@host" and can
contain wildcards.

Try your code, don't ask here unless you have a specific problem that you need help with.

Statistics: Posted by Sir_Fz — Sat Mar 03, 2007 10:50 pm

binds innamespace at bottom

2007-03-03T22:23:56-04:00

should I put the flag defs inside the namespace also?

Also I just added binds for the join event in my copy here.
I put them in the "firstpass" section of the Solobot::Execute proc
does this look copacetic?

Code:

      #first pass through channels      if {$firstpass} {          variable firstpass 0          foreach chan [::channels] {            putlog "$::botnick beginning watch $chan [strftime "\[%H:%M:%S\]\(%a.\)%D"]"            #bind joins to channels on bots channel list            bind join - $chan Solobot::Chkjoin           }      }

Statistics: Posted by et109 — Sat Mar 03, 2007 10:23 pm

First try using namespace

2007-03-03T18:12:02-04:00

I would put the binds on the end of the script within the namespace and use

bind [namespace current]::myproc

Statistics: Posted by Ofloo — Sat Mar 03, 2007 6:12 pm

First try using namespace

2007-03-03T17:43:47-04:00

This is my first attempt at using namespaces, and I would really appreciate any comments or advice. (especially with the timer stuff)
TIA

Code:

################################################################################################namespace Solobot#Checks for availability of bot's user's (on bot userlist with with appropriate channel flags#set) in IRC channels#scans channels for user availability using "WHOIS" command, adds '+A' flag to user attr if away#If all users in chan's list are away, bot is solo in channel and adds '+S' flag to channel#If channel is +S bot is to explain no live help currently available and  offer limited help to#guests joining channel i.e. access to bot's #help files, links to help sites etc.# TODO add binds and handlers for channel join events#################################################################################################system setup for namespacebind dcc - "startsolo" Solobot::Executebind dcc - "stopsolo" Solobot::Stopbind dcc - "nosolo" Solobot::Destroybind raw - "301" Solobot::Whoisreplybind raw - "318" Solobot::Whoisreplysetudef flag Asetudef flag Snamespace eval Solobot {    namespace export Execute Stop Destroy     variable bypass 0    variable timerid    variable firstpass 1    #####################################################################################    #scan channels list     #check for available users in each channel    #set timer to rescan     #####################################################################################    proc Execute {args} {      variable firstpass      variable timerid      #first pass through channels      if {$firstpass} {          variable firstpass 0          foreach chan [::channels] {           putlog "$::botnick beginning watch $chan [strftime "\[%H:%M:%S\]\(%a.\)%D"]"          }      }      #scan channels      foreach chan [::channels] {         putlog "$chan"         #scan channel user list         foreach user [::chanlist $chan n|m|l ] {           putquick "Whois $user"         }         #check for availability         Chkaides $chan      }      #kill timer if it exists      if { [set timr [timerexists timerid]] != "" } {          putlog "$timerid killed"              killutimer $timerid      }      # set new timer to rescan      set timerid [utimer 20 Solobot::Execute]      return 0     }         #####################################################################################    #stop channel scan    #####################################################################################    proc Stop {args} {       variable timerid       #kill timer if it exists       if { [set timr [timerexists timerid]] != "" } {          putlog "$timerid killed"              killutimer $timerid       }       killutimer $timerid       #notify operator that scanning has stopped       putlog "$::botnick ending watch for all channels [strftime "\[%H:%M:%S\]\(%a.\)%D"]"        }    #####################################################################################    #Remove namespace    #####################################################################################    proc Destroy {args} {       Stop       putlog "removing Solobot"       unbind dcc - "startsolo" Solobot::Execute       unbind dcc - "stopsolo" Solobot::Stop       unbind dcc - "nosolo" Solobot::Destroy       unbind raw - "301" Solobot::Whoisreply       unbind raw - "318" Solobot::Whoisreply       deludef flag A       deludef flag S       namespace delete ::Solobot         }        #####################################################################################    #process whois replies    #####################################################################################    proc Whoisreply {serv raw text} {        variable bypass        #parse reply        set tmp [split $text : ]        set tmp1 [split [lindex $tmp 0] ]        set aide [lindex $tmp1 1]        #if user away (301) set user 'A' flag and #set bypass flag to catch trailing code 318        #then return        if { $raw eq "301" } {            set bucket [chattr $aide +A]            set bypass 1            return 0            #catch trailing code 318, unset bypass flag           #then return                              } elseif {$bypass == 1} {                  set bypass 0                  return 0                 #318 flag only (no leading 301) - indicates user is not away                 #unset 'A' flag and return                                      } else {                          set bucket [chattr $aide -A]                         return 0                                             }        }        #####################################################################################    #check for bots 'solo' status    #####################################################################################    proc Chkaides {chan} {         set users 0         set away 0         #count users on chan list with appropriate flags         foreach user [::chanlist $chan m|n|l ] {              incr users              #if the user is also flagged away add them to user away count              if {[regexp -- {A} [chattr $user] ]} {                    incr away                 }         }         #if all the users are 'away' set the chan +S          if { $users == $away } {               channel set $chan +S               putlog "$::botnick solo in $chan"             } else {                      #if any users not flagged 'away' set channel -S                      channel set $chan -S                      putlog "$::botnick has help in $chan"                   }         }  #########################################################################################  ###########################         end namespace         ###############################  #########################################################################################}

Statistics: Posted by et109 — Sat Mar 03, 2007 5:43 pm

egghelp/eggheads community

Specific problems

First try using namespace

binds innamespace at bottom

First try using namespace

First try using namespace