egghelp/eggheads community

Need help with my tcl.

2003-03-19T14:09:35-04:00

I basically want the majority of the procs to be activated only if the channel is set to +services in the chanset. A few procs will stay out and be activated at any time.
So how could I go about making the procs only work on a channel if it's set to +services?

Statistics: Posted by Gothic-Angel — Wed Mar 19, 2003 2:09 pm

Need help with my tcl.

2003-03-19T05:52:09-04:00

See tcl-commands.doc

pub:ident looks like it is intended to allow request to identify via a channel command.

However, the proc definition is well out of whack.

Code:

proc pub:ident {channel type args} {

tcl-commands.doc will tell you what arguments are sent in what order.

Tcl does not guess what information you want placing where. It will do things, and set things in the order they are sent.

EG

Code:

proc testing {this that} {puts stdout "THIS: $this"puts stdout "THAT: $that"}set this "Hello"set that "all"testing $this $thattesting $that $this

Will print

THIS: Hello
THAT: all
THIS: all
THAT: Hello

Just because that name of the variable matches, it doesn't mean the contents will. The same applies in your script, even though you have a variable called channel, it doesn't mean it will contain a channel name. It will simply hold the contents of the information destined for that argument position.

Statistics: Posted by ppslim — Wed Mar 19, 2003 5:52 am

Need help with my tcl.

2003-03-18T21:19:37-04:00

Code:

set channame "#blah"set nickserv "nickserv@services.dal.net"set chanserv "chanserv@services.dal.net"set memoserv "memoserv@services.dal.net"set blah "."set pass "pass.txt"set nicknametxt "nick.txt"set fs [open $nicknametxt r]set nickname [read $fs 32]bind notc - "*This nick is owned by someone else*" services_identbind notc - "*Password accepted*" services_checkbind notc - "*You do not have access to op people*" services_identbind time - "5 * *" services_checkbind time - "10 * *" services_checkbind time - "15 * *" services_checkbind time - "20 * *" services_checkbind time - "25 * *" services_checkbind time - "30 * *" services_checkbind time - "35 * *" services_checkbind time - "40 * *" services_checkbind time - "45 * *" services_checkbind time - "50 * *" services_checkbind time - "55 * *" services_checkbind time - "00 * *" services_checkbind pub n|n ${blah}identify pub:identbind pub n|n ${blah}op pub:opbind pub n|n ${blah}test services_checkbind ctcr - PING services_opbind mode - "* -o" services_autoreopbind dcc - mem services_memobind dcc - down services_shielddownbind dcc - up services_shieldupbind dcc - pass services_passbind dcc - nickname services_nickbind pub n|n ${blah}down shield_downpubbind pub n|n ${blah}up shield_uppubbind need - * cs:needproc services_ident {nick channel type} {global nickname nickserv if {[lsearch -exact [channel info $channel] -csneed] != -1} { return 0 }  switch -- $typeset fs [open $pass r]set pass [read $fs 32]close $fsputserv "NickServ :identify $nickname $pass"}proc services_ping {nick uhost hand args} {putlog "PING: Trying to ping chanserv"putserv "PRIVMSG $chanserv :\001PING"}proc services_op {nick uhost hand args} {global botnick chanserv channameputserv "PRIVMSG $chanserv :OP $channame $botnick"}proc services_check {nick uhost hand chan arg} {global botnick channame chanservif {![botisop $channame] && [botonchan $channame] } {putserv "PRIVMSG $chanserv :\001PING $chanserv" }}proc pub:ident {channel type args} {global nickname nickserv file passif {[lsearch -exact [channel info $channel] -csneed] != -1} { return 0 } switch -- $typeset fs [open $pass r]set info [read $fs 32]putserv "NickServ :identify $info"close $fs}proc pub:op {nick host hand chan text} {global botnick chanserv channameputserv "PRIVMSG $chanserv :OP $chan $botnick"}proc services_autoreop {nick uhost hand chan deop deopd} {global botnick channameif {[matchattr $hand n|m]} { return }if {([string match -nocase $deopd $botnick]) } {putserv "ChanServ op $channame $botnick" }}proc services_autounban {chan unban} {global channame botnickputserv "ChanServ unban $channame"}proc services_memo {hand idx text} {global memoservputserv "PRIVMSG $memoserv $text"}proc services_shielddown {hand idx arg} {global botnickputserv "MODE $botnick -R"}proc services_shieldup {hand idx arg} {global botnickputserv "MODE $botnick +R"}proc shield_downpub {nick host hand chan text} {global botnickputserv "MODE $botnick -R"}proc shield_uppub {nick host hand chan text} {global botnickputserv "MODE $botnick +R"}setudef flag csneedbind need - * cs:need proc cs:need {channel type} {   global botnick   if {[lsearch -exact [channel info $channel] -csneed] != -1} { return 0 }   switch -- $type {    "unban" {      putserv "chanserv :unban $channel $botnick"    return 1 }    "invite" {      putserv "chanserv :invite $channel $botnick"    return 1 }    "limit" {      putserv "chanserv :invite $channel $botnick"    return 1 }  }}proc services_pass {hand idx text} {global passif {![matchattr $hand n]} { return }set fs [open $pass w]puts $fs "$text"putlog "Services: Nickpass has been set to ****"close $fs}proc services_nick {hand idx text} {global nicknametxtif {![matchattr $hand n]} { return }set fs [open $nicknametxt w]puts $fs "$text"close $fsputlog "Services: Nickname has been set to $text"}

Ok, So far this is where I'm at however with the proc pub_ident I get this error [20:16] Tcl error [pub:ident]: no such channel record. I can't figure out why or how to fix it?

Statistics: Posted by Gothic-Angel — Tue Mar 18, 2003 9:19 pm

Need help with my tcl.

2003-03-10T22:38:39-04:00

I see, thanks for all the help everyone. Ill fully test it out when I have time.

Statistics: Posted by Gothic-Angel — Mon Mar 10, 2003 10:38 pm

Need help with my tcl.

2003-03-10T15:26:21-04:00

You don't need that code in your script.

It was an example of the code that can be used to do it.

The rest is what you need.

Statistics: Posted by ppslim — Mon Mar 10, 2003 3:26 pm

Need help with my tcl.

2003-03-10T13:48:59-04:00

I should have been more specific I got that part down, I just didnt have the

Code:

setudef flag something ... foreach $ch [chanlist] { if {[lsearch -exact [channel info $chan] -something] != -1} { continue } rest of the code.. }

part down I got an error at the $ch part,

Statistics: Posted by Gothic-Angel — Mon Mar 10, 2003 1:48 pm

Need help with my tcl.

2003-03-10T12:45:05-04:00

The majoc line in thsi script is "setudef flag csneed".

"setudef" the command, which tells the bot to create new channel based setting.

"flag" is the type, which can be flag (+ or - type setting like +bitch), int (which can hold a number, eg "20"), or str/string (can't remember which, new for 1.6.14 when it comes out. can hold text).

"csneed" is the name fo the setting.

In this case, a flag called csneed.

This can be changed using

.chanset #channel +csneed

The next line of code, that is is needed, is

Code:

if {[lsearch -exact [channel info $channel] -csneed] != -1} { return 0 }

This should be added in the positions mentioned.

You can now change the channel + or -csneed now.

You may wish to change the csneed, to somthing you like. However, once you have chosen the name, stick to it, else you have to change the channel settings again.

Statistics: Posted by ppslim — Mon Mar 10, 2003 12:45 pm

Need help with my tcl.

2003-03-10T12:33:25-04:00

Im still lost on how to implement the code, im rather new and just trying to figure things out.

Statistics: Posted by Gothic-Angel — Mon Mar 10, 2003 12:33 pm

Need help with my tcl.

2003-03-10T11:54:08-04:00

Exactly. ;]

Statistics: Posted by caesar — Mon Mar 10, 2003 11:54 am

Need help with my tcl.

2003-03-10T11:27:53-04:00

so to use this in my script I would have to add a special flag for a channel? like .chanset #blah +service ?

Statistics: Posted by Gothic-Angel — Mon Mar 10, 2003 11:27 am

Need help with my tcl.

2003-03-02T16:45:06-04:00

Hi, for multiple channels support add something like:

Code:

setudef flag something...foreach $ch [chanlist] {if {[lsearch -exact [channel info $chan] -something] != -1} { continue }rest of the code..}

And change from 'something' flag to whatever suits you better. For it's *need's* use something like this:

Code:

setudef flag csneedbind need - * cs:needproc cs:need {channel type} {   global botnick  if {[lsearch -exact [channel info $channel] -csneed] != -1} { return 0 }  switch -- $type {    "op" {      putserv "PRIVMSG Chanserv :op $channel $botnick"    return 1 }    "unban" {      putserv "PRIVMSG Chanserv :unban $channel $botnick"    return 1 }    "invite" {      putserv "PRIVMSG Chanserv :invite $channel $botnick"    return 1 }    "limit" {      putserv "PRIVMSG Chanserv :invite $channel $botnick"    return 1 }  }}

Also, for it's *unban* thing:

Code:

bind mode - "* +b" my:chbanproc cs:chban {nick uhost hand chan mc ban} {  global botname  set bmask "*!*@[lindex [split $uhost @] 1]"   if {[string match "$ban" "$botname"] && [botisop $chan]} {    if {[string match "$bmask" "$botname"]} { set bmask [maskhost *!*[string trimleft $uhost ~]]}      if {$nick == "X" } {      putserv "PRIVMSG Chanserv :unban $chan $bmask"      return } else {      putquick "MODE $chan -bo+b $ban $nick $bmask"    putquick "KICK $chan $nick :\002\00312Don't ban me you twit!" }    return  }}

Replace the user defined channel flags to what you want. Hope I've helped you or something..

Statistics: Posted by caesar — Sun Mar 02, 2003 4:45 pm

Need help with my tcl.

2003-03-02T15:28:50-04:00

www.justintime.darktech.org/DALnetServices.tcl

I want to have it support multiple channels, and send the op request to only the channel that he is needed to op in.

Statistics: Posted by Gothic-Angel — Sun Mar 02, 2003 3:28 pm