egghelp/eggheads community

chanserv - parsing possibly? - SOLVED

2008-12-02T18:15:35-04:00

Solved - ty mate thats spot on - now for me to startdcc side thankyou

Regards

Paul

Statistics: Posted by PaulyboyUK — Tue Dec 02, 2008 6:15 pm

chanserv - parsing possibly? - SOLVED

2008-12-02T08:47:32-04:00

Ok m8 thankyou for your help - heres wheres it at currently - if i do a vop list - or do list with your script below is what i see returned when i am in partyline chat with bot

[22:15] [00:13] -ChanServ (services@eagle-nest.net)- VOP list for #test:
[22:15] [00:13] -ChanServ (services@eagle-nest.net)- Num Nick
[22:15] [00:13] -ChanServ (services@eagle-nest.net)- 4 PeaceKeeper
[22:15] [00:13] -ChanServ (services@eagle-nest.net)- 5 cdclub
I note only difference to yours in that yours indicated the end of the list

testserver@command:~/botroom/testbot$ cat lusers.txt
testserver@command:~/botroom/testbot$
as you can see the lusers file is created however contains absolutely nothing - any ideas?

Cheers

Paul

yap, its a little bit diffrent, try this one:

Code:

# Author: tomekk# e-mail:  tomekk/@/oswiecim/./eu/./org# home page: http://tomekk.oswiecim.eu.org/## Version 0.1## This file is Copyrighted under the GNU Public License.# http://www.gnu.org/copyleft/gpl.html# file with nicksset nicks_db "lusers.txt"# service nameset service_name "chanserv"#################################################################################bind pub - list do_querybind notc - "*" grab_listproc do_query { nick uhost hand chan arg } {global service_name nicks_dbif {[file exists $nicks_db]} {file delete $nicks_db}putserv "PRIVMSG $service_name :sop $chan list"}proc grab_list { nick uhost hand text {dest ""}} {global botnick service_name nicks_db       if {$dest == ""} {set dest $botnick}if {([isbotnick $dest]) && ([string tolower $nick] == [string tolower $service_name])} {set text_line $textset db_hand [open $nicks_db a] if {[regexp {^.*([0-9]+).*$} $text_line]} {set only_nick [lindex [split [string trim $text_line]] 2]puts $db_hand $only_nick}close $db_hand}}putlog "chanserv-list.tcl ver 0.1 by tomekk loaded"

I tested it on eagle-nest, it should work good

hf

Statistics: Posted by tomekk — Tue Dec 02, 2008 8:47 am

chanserv - parsing possibly? - SOLVED

2008-12-01T18:24:20-04:00

Ok m8 thankyou for your help - heres wheres it at currently - if i do a vop list - or do list with your script below is what i see returned when i am in partyline chat with bot

[22:15] [00:13] -ChanServ (services@eagle-nest.net)- VOP list for #test:
[22:15] [00:13] -ChanServ (services@eagle-nest.net)- Num Nick
[22:15] [00:13] -ChanServ (services@eagle-nest.net)- 4 PeaceKeeper
[22:15] [00:13] -ChanServ (services@eagle-nest.net)- 5 cdclub

I note only difference to yours in that yours indicated the end of the list

testserver@command:~/botroom/testbot$ cat lusers.txt
testserver@command:~/botroom/testbot$

as you can see the lusers file is created however contains absolutely nothing - any ideas?

Cheers

Paul

Statistics: Posted by PaulyboyUK — Mon Dec 01, 2008 6:24 pm

chanserv - parsing possibly? - SOLVED

2008-12-01T05:58:27-04:00

hmm, weird

maybe this chanserv is diffrent :>

look, chanserv output from shadow-dragon:

0:55:16 vop #tomekk-test list
10:55:17 -ChanServ(ChanServ@services.shadow-dragon.net)- VOP list for #tomekk-test:
10:55:17 -ChanServ(ChanServ@services.shadow-dragon.net)- 1: test (not logged in)
10:55:17 -ChanServ(ChanServ@services.shadow-dragon.net)- 2: test2 (not logged in)
10:55:17 -ChanServ(ChanServ@services.shadow-dragon.net)- 3: test3 (not logged in)
10:55:17 -ChanServ(ChanServ@services.shadow-dragon.net)- Total of 3 entry in VOP list of #tomekk-test.

and after typing "list" on chan, bot:

[tomekk@zonk]:~/eggdrop# cat lusers.txt
test
test2
test3

try to change "bind pub - list do_query" to "bind pub - !test do_query" and after that write "!test" on your channel

if this will not work then we will try smth else

Statistics: Posted by tomekk — Mon Dec 01, 2008 5:58 am

chanserv - parsing possibly? - SOLVED

2008-11-30T20:00:32-04:00

ty for taking time on this mate

Unfortunately it creates the lusers text file but nothing is created in it - when i am in dcc chat i see the list being got - but nothing added to the file - will keep plugging away

Statistics: Posted by PaulyboyUK — Sun Nov 30, 2008 8:00 pm

chanserv - parsing possibly? - SOLVED

2008-11-28T12:03:12-04:00

hello

Code:

# Author: tomekk# e-mail:  tomekk/@/oswiecim/./eu/./org# home page: http://tomekk.oswiecim.eu.org/## Version 0.1## This file is Copyrighted under the GNU Public License.# http://www.gnu.org/copyleft/gpl.html# file with nicksset nicks_db "lusers.txt"# service nameset service_name "chanserv"#################################################################################bind pub - list do_querybind notc - "*" grab_listproc do_query { nick uhost hand chan arg } {global service_name nicks_dbif {[file exists $nicks_db]} {file delete $nicks_db}putserv "PRIVMSG $service_name :vop $chan list"}proc grab_list { nick uhost hand text {dest ""}} {global botnick service_name nicks_db       if {$dest == ""} {set dest $botnick}if {([isbotnick $dest]) && ([string tolower $nick] == $service_name)} {set split_text [split $text "\n"]set db_hand [open $nicks_db a] foreach text_line $split_text {if {[regexp {^([0-9]+):.+$} $text_line]} {set only_nick [string trim [lindex [split $text_line] 1]]regsub -all -nocase {\002} $only_nick "" only_nickputs $db_hand $only_nick}}close $db_hand}}putlog "chanserv-list.tcl ver 0.1 by tomekk loaded"

I wrote some script for u, try it.
After quote "list" on channel u will get file with VOP list (if any exists)
I tested it with ChanServ from irc.shadow-dragon.net

If u want to use this command only when u have +n
change:

Code:

bind pub - list do_query

Code:

bind pub n list do_query

I think u alread know this etc.

cheers

Statistics: Posted by tomekk — Fri Nov 28, 2008 12:03 pm

chanserv - parsing possibly? - SOLVED

2008-11-27T17:13:43-04:00

bump - sorry just still need help on this one - if anyone can would be really appreciated

Paul

Statistics: Posted by PaulyboyUK — Thu Nov 27, 2008 5:13 pm

chanserv - parsing possibly? - SOLVED

2008-12-03T05:32:51-04:00

hi

i am looking to create a userlist on one channel - it will be required to save as a text file in the format

username1
username2
username3
username4 etc

I have found a chanserv access list script on here but the fomat of the output is no where near - ie

VOP list for #test:
VOP list for #test:
VOP list for #test:
Num Nick
2 PeaceKeeper

the code i am currently using to create this is

Code:

# Name of the storage file for the access list.
set accesslist "accesslist.txt"

# Full name of channel services.
set chanserv "chanserv"

#################
# BIND commands #
#################
bind pub n list access:list
bind notc - "* list for *" write:list
bind notc - "* VOP *" write:list

proc write:list {nick host hand arg {dest ""}} {
set msg $arg
if {([isbotnick $dest]) && ([string equal $nick "ChanServ"])} {
# Create the storage file for appending.
set acc_fd [open $::accesslist a]
puts $acc_fd $msg
close $acc_fd
}
}

proc access:list {nick uhost hand chan text} {
set type [string tolower $text]
if {[regexp {(sop|aop|vop)} $type]} {
# Remove old storage file
if {[file exists $::accesslist]} {file delete $::accesslist}
putserv "PRIVMSG $::chanserv :$type $chan list"
} else {
return
}
}

# ctrl:filter
# Strip all control characters. Thanks to ppslim.

proc ctrl:filter {str} {
regsub -all -- {\003[0-9]{0,2}(,[0-9]{0,2})?|\017|\037|\002|\026|\006|\007} $str "" str
return $str
}

I dont understand the above creates 3 lines of test saying VOP list as example above etc

i need the file to literally just have the Voiced users of the channel - and theni can use that file in my other script to dcc mass send files - seems no matter where i go i seemto hit a brick wall - any pointers would be great -

Thanks in anticipation

Paul

Statistics: Posted by PaulyboyUK — Fri Nov 14, 2008 5:29 am