Qakenet auth support for eggdrop users

[paulm]

Hi,

I'm looking for a script that allows me to identify eggdrop users not only by hostmask but alternatively by Quakenet auth nick.
For example, when I have added an eggdrop user with a hostmask "nick!login!host.org" and qauth-name "qanick" eggdrop would recognize channel users as him if they had the right hostmask or if they authed with Q using "qanick" as auth nickname.
Is there already such a script?

cheers,
paulm

[Alchera]

Have you searched the Tcl Archive?

[paulm]

Hi Alchera,

actually I did search Tcl Archive. Using "Quakenet" as search term I recieve 24 results but mainly scripts to auth the bot to Q, to get Chanlev or to protect a channel using Quakenet bots. Searching for "auth" I get little more results but still not the script I'm looking for. qban comes close but it only bans on auth names. What I'm looking for was setting a user's eggdrop flags on auth names - banning on these flags may be a part of it.
So I didn't find anything that adds Q auth support to the original eggdrop user records. If I didn't search hard enough I would appreciate a hint.

cheers,
paulm

[sKy]

This isn`t a bad idea. Right now there is no such script in public.

I guess no one releases it because it would create a support hell.

Either you can do it yourself or you can`t use that. I also highly doub`t someone does it here for free just because of this request. It`s to much code...

[r0t3n]

I'm the coder/developer of the service bots on #pwnd.bots at quakenet, and i have worked with such scripts before, and im currently adding it into my service script.

It takes alot of work, you got to know your raw's etc etc, and it can cause alot of bot lag/pingouts/sendq's if you don't watch out.

What i tend to do is do a /who #channel for each channel the bot is it, and use an array.

Code: Select all

bind pub nm|- \!getauths proc:getauths
bind raw -|- {354} proc:raw354

if {![array exists authnames]} {
  array set authnames {}
}

proc proc:getauths {nick uhost hand chan text} {
  if {$text != "" && [string index [set c[lindex [split $text] 0] 0]]] == "#" && [validchan $c]} {
    putquick "WHO $c %nat,37"
  } elseif {$text == ""} {
    foreach c [channels] {
      putquick "WHO $c %nat,37"
    }
  }
}

proc proc:raw354 {from raw arg} {
  global authnames
  if {[lindex [split $arg] 1] == "37" && ![info exists authnames([set n [string tolower [lindex [split $text] 2]]]] && ([set a [lindex [split $arg] 3]] != "0" || $a != "")} {
    set authnames($n) "$a"
  }
}