egghelp/eggheads community

Re: chanserv.tcl

2024-12-18T05:56:44-04:00

thank you Crazycat, now it is not ignoring..

the list it is only showing from dcc.. anyway for now this is ok.. i'll try to search maybe, and maybe i can find something..

Statistics: Posted by aslpls — Wed Dec 18, 2024 5:56 am

Re: chanserv.tcl

2024-12-18T03:18:52-04:00

The placement in ignore is due to your eggdrop.
I recommand to add the network's services in your user list, with the different official hosts they have and +fo flags:

Code:

.+user services *!*@@services.dal.net.+host services *!*@dal.net.chattr services +fo

Concerning your initial request, you'll have to bind the notice from chanserv giving you the access list, which is quite hard as there is no special keyword indicating that it's the access list for a particular channel or another notice from chanserv.

Statistics: Posted by CrazyCat — Wed Dec 18, 2024 3:18 am

Re: chanserv.tcl

2024-12-17T07:38:29-04:00

in connection with the script above, i've found another feature to add. If you have another way on how the script works
is much appreciated.

here is a sample code;

Code:

set channel "#aslpls"set chanserv "ChanServ@services.dal.net"proc is_valid_channel {channel} {    return [string match "#*" $channel]}proc show_aop_list {channel} {    global chanserv    if {![is_valid_channel $channel]} {        putserv "PRIVMSG $channel :Error: Channel name must start with #."        return    }    putserv "PRIVMSG $chanserv :AOP $channel LIST"}bind pub - "!aoplist" show_aoplistproc show_aoplist {nick host hand channel text} {    set target_channel [lindex [split $text] 1]    if {$target_channel eq ""} {        set target_channel $channel    }    show_aop_list $target_channel}

this is working, but the bot got ignored by

Code:

[14:18:21] Flood from @dal.net!  Placing on ignore![14:18:21] Flood from @dal.net!  Placing on ignore!

I need this aop list to show in the channel when you type !aoplist

Code:

user: !aoplist #aslplsbot: #aslpls aop list: 1. nick1 2. nick2 3. nick3 4. nick4 5. nick5 and so on

Statistics: Posted by aslpls — Tue Dec 17, 2024 7:38 am

Re: chanserv.tcl

2024-12-09T18:51:58-04:00

The OP said he wants to use this for dalnet and dalnet doesnt use privmsg chanserv they use privmsg ChanServ@services.dal.net and aliases, most other networks use aliases as well btw as privmsg chanserv is not always safe.

So use: script script

putserv "PRIVMSG chanserv@services.dal.net :AOP $chan ADD|DEL $targetnick

script And better: use a variable to set chanserv nick by network.

But if you want to do a reusable script, don't use alias nor shortcut.

Statistics: Posted by CrazyCat — Mon Dec 09, 2024 6:51 pm

Re: chanserv.tcl

2024-12-09T14:12:33-04:00

ive tested it on dalnet and it works fine as well.

Statistics: Posted by simo — Mon Dec 09, 2024 2:12 pm

Re: chanserv.tcl

2024-12-09T13:13:05-04:00

by the way I've tried it in another network with unrealircd.. it is working..

thanks to all of you for contributing some ideas.. maybe it is in different ways as he explained.

anyway, i got it now.. even if the script is not perfect and needs improvement.. but it works as i need it.. cheers to all coders and regular people who helped out.

thanks.

Statistics: Posted by aslpls — Mon Dec 09, 2024 1:13 pm

Re: chanserv.tcl

2024-12-09T12:16:14-04:00

simo, read the thread before posting erroreous code !
Code:
        putserv "ChanServ :aop $chan ADD $targetnick"        putserv "ChanServ :aop $chan DEL $targetnick"
These 2 lines can work only if the ircd is configured to have an alias of "chanserv".

The proper lines are: script script
putserv "PRIVMSG ChanServ :AOP $chan ADD $targetnick"putserv "PRIVMSG ChanServ :AOP $chan DEL $targetnick"
script When you do some code, use the real commands, never any alias or shortcut.

The OP said he wants to use this for dalnet and dalnet doesnt use privmsg chanserv they use privmsg ChanServ@services.dal.net and aliases, most other networks use aliases as well btw as privmsg chanserv is not always safe.

Statistics: Posted by simo — Mon Dec 09, 2024 12:16 pm

Re: chanserv.tcl

2024-12-09T11:45:03-04:00

simo, read the thread before posting erroreous code !

Code:

        putserv "ChanServ :aop $chan ADD $targetnick"        putserv "ChanServ :aop $chan DEL $targetnick"

These 2 lines can work only if the ircd is configured to have an alias of "chanserv".

The proper lines are: script script

putserv "PRIVMSG ChanServ :AOP $chan ADD $targetnick"putserv "PRIVMSG ChanServ :AOP $chan DEL $targetnick"

script When you do some code, use the real commands, never any alias or shortcut.

Statistics: Posted by CrazyCat — Mon Dec 09, 2024 11:45 am

Re: chanserv.tcl

2024-12-09T10:49:40-04:00

Code:

bind PUB n !aop ChanServ:Add-DEL:OP proc ChanServ:Add-DEL:OP {nick uhost hand chan arg} {   set arg [string map [list \017 ""] [stripcodes abcgru $arg]]   set items [split $arg]   if {[llength $items] < 2 || [llength $items] > 2} {  putnow "NOTICE $nick :!aop add/del nick" ; return }  set targetnick "[lindex [split $arg] 1]"  if {![onchan $targetnick $chan]} {  putserv "NOTICE $nick :$targetnick is not on channel $chan" ; return }  switch -nocase -- [lindex [split $arg] 0] {    add {        putserv "ChanServ :aop $chan ADD $targetnick" ; putserv "mode $chan +o $targetnick"        putserv "NOTICE $nick :$targetnick has been added on the AOP List of channel\: $chan."}    del {        putserv "ChanServ :aop $chan DEL $targetnick" ; putserv "mode $chan -o $targetnick"        putserv "NOTICE $nick :$targetnick has been removed from the AOP list of channel\: $chan."    }      }}

Statistics: Posted by simo — Mon Dec 09, 2024 10:49 am

Re: chanserv.tcl

2024-12-09T09:40:12-04:00

no error after installing this

Code:

apt install tcllib-critcl

and then restart your bot..

Statistics: Posted by aslpls — Mon Dec 09, 2024 9:40 am

Re: chanserv.tcl

2024-12-09T09:17:16-04:00

I've tried the script but this required:
Code:
aslpls> .errorinfo [16:09:47] ---------------- [16:09:47] can't find package tcllibc     while executing "package require tcllibc" [16:09:47] errorCode : TCL PACKAGE UNFOUND [16:09:47] ----------------
do you know how to install "package require tcllibc" ?

Do you still have this error ?

Statistics: Posted by Carlin0 — Mon Dec 09, 2024 9:17 am

Re: chanserv.tcl

2024-12-09T04:38:36-04:00

based on my first post and the script the simo posted..
and as per on my search online, this is what i found and come up with the code..

simple but it is working 100% on the network that have Chanserv

Code:

set channel "#aslpls"set chanserv "ChanServ@services.dal.net"bind pub - "!addaop" add_aopbind pub - "!delaop" del_aopproc add_aop {nick uhost hand chan text} {    global channel chanserv    if {$chan != $channel} {        return    }    set params [split $text]    if {[llength $params] < 1} {        putserv "PRIVMSG $chan :Usage: !addaop "        return    }    set user [lindex $params 0]    putserv "PRIVMSG $chanserv :AOP $channel ADD $user"    putserv "PRIVMSG $chan :Added $user to the AutoOp (AOP) list."}proc del_aop {nick uhost hand chan text} {    global channel chanserv    if {$chan != $channel} {        return    }    set params [split $text]    if {[llength $params] < 1} {        putserv "PRIVMSG $chan :Usage: !delaop "        return    }    set user [lindex $params 0]    putserv "PRIVMSG $chanserv :AOP $channel DEL $user"    putserv "PRIVMSG $chan :Removed $user from the AutoOp (AOP) list."}

if you have a network with chanserv just change this "set chanserv"

Code:

set channel "#aslpls"[color=#FF0000]set chanserv "ChanServ@services.[b]yournetwork.net[/b]"[/color]

please share your thoughts if you have other ways..

Statistics: Posted by aslpls — Mon Dec 09, 2024 4:38 am

Re: chanserv.tcl

2024-12-09T02:24:05-04:00

i have added the suggestion of Crazycat and Carlino but it seems still not working..

Statistics: Posted by aslpls — Mon Dec 09, 2024 2:24 am

Re: chanserv.tcl

2024-12-08T18:31:00-04:00

I've tried the script but this required:

it shows like this..

Code:

<@aslpls> !aop-Bot- !aop add/del nick<@aslpls> !aop add janice-Bot- !aop add/del nick<@aslpls> !aop add-Bot-  has been added on the AOP List of channel: #aslpls.

from DCC it shows

Code:

 [16:02:18] -ChanServ (service@dal.net)- Usage: AOP <#channel>  [] [16:02:18] -ChanServ (service@dal.net)- For help, /msg ChanServ@services.dal.net HELP AOP

Replace the following lines in the script from simo: script script

putserv "ChanServ aop $chan :ADD $targetnick "...putserv "ChanServ aop $chan :DEL $targetnick "

script with the good syntax: script script

putserv "PRIVMSG ChanServ :AOP $chan ADD $targetnick"...putserv "PRIVMSG ChanServ :AOP $chan DEL $targetnick"

script

Statistics: Posted by CrazyCat — Sun Dec 08, 2024 6:31 pm

Re: chanserv.tcl

2024-12-08T18:14:27-04:00

try

Code:

apt install tcllib-critcl

Statistics: Posted by Carlin0 — Sun Dec 08, 2024 6:14 pm