AOP with authcheck

Fraud · Post by **Fraud** » Mon May 19, 2008 7:59 am

Hi. after installing the following script i get this error

invalid command name "}"
while executing
"}"
invoked from within

This is the Script

 setudef flag aop

   set aop(channel) "#channel"
   set aop(rawid) "678"
   bind time -|- "* * * * *" scantime

   proc scantime {minute hour day month year} {
      global aop
      bind RAW -|- {354} raw354
      if {[validchan $aop(channel)]} {
         if {[channel get $aop(channel) aop]} {
            putserv "WHO $aop(channel) n%cnahuft,$aop(rawid)"
         }
      }
   }

   proc raw354 {s r a} {
      global aop
      set rawid "[lindex [split $a] 1]"
      set chan "[string tolower [lindex [split $a] 2]]"
      set ident "[string tolower [lindex [split $a] 3]]"
      set host "[string tolower [lindex [split $a] 4]]"
      set nick "[string tolower [lindex [split $a] 5]]"
      set flags "[lindex [split $a] 6]"

      set v "*+*"
      set o "*@*"
      if {[string equal -nocase $rawid $aop(rawid)]} {
         if {![string match [lindex [split $a] 7] 0] > 0} {
            set auth "[string tolower [lindex [split $a] 7]]"
               if {[channel get $chan aop] == 1} {
                  if {[string match "$o" "$flags"] == 0} {
                     pushmode $chan +o $nick
                  }
               }

            }
         }
      }
   }

dwickie · Post by **dwickie** » Mon May 19, 2008 8:10 am

jonlar wrote:Hi. after installing the following script i get this error

invalid command name "}"
while executing
"}"
invoked from within

well, remove one } from the end

speechles · Post by **speechles** » Mon May 19, 2008 2:36 pm

Code: Select all

   proc raw354 {s r a} {
      global aop
      set rawid "[lindex [split $a] 1]"
      set chan "[string tolower [lindex [split $a] 2]]"
      set ident "[string tolower [lindex [split $a] 3]]"
      set host "[string tolower [lindex [split $a] 4]]"
      set nick "[string tolower [lindex [split $a] 5]]"
      set flags "[lindex [split $a] 6]"

      set v "*+*"
      set o "*@*"
      if {[string equal -nocase $rawid $aop(rawid)]} {
         if {![string match [lindex [split $a] 7] 0] > 0} {
            set auth "[string tolower [lindex [split $a] 7]]"
            if {[channel get $chan aop] == 1} {
               if {[string match "$o" "$flags"] == 0} {
                  pushmode $chan +o $nick
               }
            }
         }
      }
   }

In your procedure above, you treat set auth as if its a conditional if statement giving it a closing curly brace. Removing said brace and fixing the indenting should help you spot teh flaw.

DragnLord · Post by **DragnLord** » Tue May 20, 2008 2:54 am

This script will not work as intended because:
1) lists start with 0 (zero), not 1.
2) the numeric should be 352, not 354
3) only undernet uses the non-standard 354
Edit:
added #3, after a bit of research I found undernet uses this numeric
this script will not work on networks that use different IRCd types from undernet

DragnLord · Post by **DragnLord** » Tue May 20, 2008 4:09 am

give this script a try:

Code: Select all

setudef flag aop

set aop(channel) "#channel"
set aop(rawid) "678"
bind time -|- "* * * * *" scantime

proc scantime {minute hour day month year} {
   global aop
   bind RAW -|- {354} raw354
   if {[validchan $aop(channel)]} {
      if {[channel get $aop(channel) aop]} {
         putserv "WHO $aop(channel) n%cnahuft,$aop(rawid)"
      }
   }
}

pproc raw354 {s r a} {
   global aop
   set a [split $a]
   set a2 [string tolower $a]
   regexp {.*? (.*?) .*? .*? .*? .*? .*? (.*?) .*?} [join a] -> rawid flags
	regexp {(.*?) .*? (.*?) (.*?) (.*?) (.*?) (.*?) .*? (.*?)} [join a2] -> bnick chan ident host nick auth
   set v "*+*"
   set o "*@*"
   if {[string equal -nocase $rawid $aop(rawid)]} {
      if {![string match $auth 0] > 0} {
         if {[channel get $chan aop]} {
            if {[string match "$o" "$flags"] == 0} {
               pushmode $chan +o $nick
            }
         }
      }
   }
}

Fraud · Post by **Fraud** » Tue May 20, 2008 8:41 am

Cheers i will. I would like to change the script a bit

Got this but how to implement it in the authop script ?

Code: Select all

bind PUB o !aop aop_pub

   proc aop_pub {nick uhost hand chan arg} {
      set s [lindex $arg 0]
      switch $s {
         on {
            if {[channel get $chan aop]} {
               putserv "NOTICE $nick :Auto op is already \002on\002 for $chan"
            } else {
               channel set $chan +aop
               putserv "NOTICE $nick :Auto op is now \002on\002 for $chan"
            }
         }
         off { channel set $chan -aop; putserv "NOTICE $nick :Auto op is now \002off\002 for $chan" }

         default {
            if {[channel get $chan aop]} {
               putserv "NOTICE $nick :Auto op is \002on\002 for $chan"
            } else {
               putserv "NOTICE $nick :Auto op is \002off\002 for $chan"
            }
         }
      }
   }

@Dragnlord: Get this while excecuting

invalid command name "pproc"
while executing
"pproc raw354 {s r a} {
global aop
set a [split $a]
set a2 [string tolower $a]
regexp {.*? (.*?) .*? .*? .*? .*? .*? (.*?) .*?} [join a] ->..."

I want to use it on Quakenet

Papillon · Post by **Papillon** » Tue May 20, 2008 8:51 am

just a typo, remove one "p" from

Code: Select all

pproc raw354 {s r a} {

DragnLord · Post by **DragnLord** » Tue May 20, 2008 11:26 am

Papillon wrote:just a typo, remove one "p" from
Code: Select all
pproc raw354 {s r a} {

I didn't notice that my keyboard has "stuttered", it should indeed be "proc" instead of "pproc".

Fraud · Post by **Fraud** » Wed May 21, 2008 7:30 am

Well its still not working. In partyline i get this

Tcl error [raw354]: can't read "rawid": no such variable

DragnLord · Post by **DragnLord** » Wed May 21, 2008 10:56 am

I spotted a few more typos (guess I shouldn't bother answering posts at 4am).

Code: Select all

proc raw354 {s r a} {
   global aop
   set a [split $a]
   set a2 [string tolower $a]
   regexp {.*? (.*?) .*? .*? .*? .*? .*? (.*?) .*?} [join $a] -> rawid flags
   regexp {(.*?) .*? (.*?) (.*?) (.*?) (.*?) (.*?) .*? (.*?)} [join $a2] -> bnick chan ident host nick auth
   set v "*+*"
   set o "*@*"
   if {[string equal -nocase $rawid $aop(rawid)]} {
      if {![string match $auth 0] > 0} {
         if {[channel get $chan aop]} {
            if {[string match "$o" "$flags"] == 0} {
               pushmode $chan +o $nick
            }
         }
      }
   }
}

Fraud · Post by **Fraud** » Thu May 22, 2008 7:41 am

hehe. well 4 a clock is early

But its still nothing
Authed User joins the Chan and.... thats it.

Edit: well Partyline says:" Tcl error [raw354]: can't read "rawid": no such variable"

Here the whole Code

Code: Select all

setudef flag aop

set aop(channel) "#channel"
set aop(rawid) "678"
bind time -|- "* * * * *" scantime

proc scantime {minute hour day month year} {
   global aop
   bind RAW -|- {354} raw354
   if {[validchan $aop(channel)]} {
      if {[channel get $aop(channel) aop]} {
         putserv "WHO $aop(channel) n%cnahuft,$aop(rawid)"
      }
   }
} 
proc raw354 {s r a} {
   global aop
   set a [split $a]
   set a2 [string tolower $a]
   regexp {.*? (.*?) .*? .*? .*? .*? .*? (.*?) .*?} [join $a] -> rawid flags
   regexp {(.*?) .*? (.*?) (.*?) (.*?) (.*?) (.*?) .*? (.*?)} [join $a2] -> bnick chan ident host nick auth
   set v "*+*"
   set o "*@*"
   if {[string equal -nocase $rawid $aop(rawid)]} {
      if {![string match $auth 0] > 0} {
         if {[channel get $chan aop]} {
            if {[string match "$o" "$flags"] == 0} {
               pushmode $chan +o $nick
       }
            }
         } else {
            pushmode $chan +v $nick
         }
      }
   }

DragnLord · Post by **DragnLord** » Thu May 22, 2008 12:08 pm

Is the bot using a really old version of TCL?

DragnLord · Post by **DragnLord** » Thu May 22, 2008 1:03 pm

tested and working on undernet for me:

Code: Select all

setudef flag aop

set aop(channel) "#channel"
set aop(rawid) "678"
bind time -|- "* * * * *" scantime

proc scantime {minute hour day month year} {
   global aop
   bind RAW -|- {354} raw354
   if {[validchan $aop(channel)]} {
      if {[channel get $aop(channel) aop]} {
         putserv "WHO $aop(channel) n%cnahuft,$aop(rawid)"
      }
   }
}
proc raw354 {s r a} {
   global aop
   set a [join [split $a]]
   regexp {(.*?) (.*?) (.*?) (.*?) (.*?) (.*?) (.*?) (.*?)} $a match bnick rawid chan ident host nick flags auth
   set v "*+*"
   set o "*@*"
   if {[string equal -nocase $rawid $aop(rawid)]} {
      if {![string match $auth 0] > 0} {
         if {[channel get $chan aop] || [channel get [string tolower $chan] aop]} {
            if {[string match "$o" "$flags"] == 0} {
               pushmode $chan +o $nick
            }
         }   
      }      
   }         
}            
putlog "UnderNet AOP script loaded"

Fraud · Post by **Fraud** » Thu May 22, 2008 3:52 pm

Well i wrote i using it for Quakenet

I want to use it on Quakenet

DragnLord · Post by **DragnLord** » Fri May 23, 2008 2:23 am

jonlar wrote:Well i wrote i using it for Quakenet

I want to use it on Quakenet

Unfortunately you did not say that in your initial post, the script had already been written by the time you did say that.

egghelp/eggheads community

AOP with authcheck

AOP with authcheck

Re: AOP with authcheck