Code:
# __ __ __ # /\ \ /\ \ __/\ \ # \ \ \ __ \ \ \/\ \ \ \ # \ \ \ __ /'__`\ \ \ \ \ \ \ \ # \ \ \_\ \/\ \_\ \_\ \ \_/ \_\ \# \ \____/\ \__/ \_\\ `\___ ___/# \/___/ \/__/\/_/ '\/__//__/ ## sBNC Script by LaW.## | author: LaW # | version: 1.6 # | web: www.myGeeX.de # | irc: #GeeX at Quakenet # | contact: www.myGeeX.de/?page_id=17 # # +-------------+# | r e a d m e |# +-------------+# # | upload this script via ftp and write:# | - 'source url/to/script/sbnc.tcl'# | into your eggdrop configuration.# | After you have done this rehash or restart your eggdrop.# | Type !sbnc help to see the help.## +-------------------+# | c h a n g e l o g |# +-------------------+## | - (03.05.06) v1.0: release# | - (14.05.06) v1.1: added list command# | - (26.05.06) v1.2: added modex command# | - (05.06.06) v1.3: code review# | - (12.06.06) v1.4: added add command# | - (21.06.06) v1.5: more advanced code# | - (18.07.06) v1.6: full sbnc management added## +-------------------+# | c o p y r i g h t |# +-------------------+## Copyright (C) 2006 Laurids 'GeeX' W.## This program is free software; you can redistribute it and/or# modify it under the terms of the GNU General Public License# as published by the Free Software Foundation; either version 2# of the License, or (at your option) any later version.## This program is distributed in the hope that it will be useful,# but WITHOUT ANY WARRANTY; without even the implied warranty of# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the# GNU General Public License for more details.## You should have received a copy of the GNU General Public License# along with this program; if not, write to the Free Software# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.## Don't change anything.# Report bugs to #GeeX at Quakenet.# Manages your sbnc over irc # configuration # variables set sbnc(trigger) "\!" set sbnc(version) "1.6" set sbnc(author) "Laurids 'GeeX' W. (#GeeX at Quakenet)" set sbnc(chan) "#GeeX" set sbnc(ident) "Ch" set sbnc(ircserver) "irc.quakenet.org 6667" set sbnc(server) "myGeeX.de" set sbnc(port) "1337" set sbnc(realname) "powered by #GeeX" set sbnc(iface) "http://sbnc.myGeeX.de" # bindings bind PUB n|- $sbnc(trigger)sbnc sbnc:iface bind NOTC | * sbnc:notice # copyright putlog "sBNC Script version $sbnc(version) scripted by $sbnc(author)" # source (again DO NOT change anything if you are not 100% sure) proc sbnc:iface { nick host hand chan arg } { global sbnc switch -exact -- [string tolower [lindex [split $arg] 0]] { "add" { set ident [lindex [split $arg] 1] set password [expr {int(rand()*1000000) + 1}] set realname [lindex [split $arg] 2] if {$realname == ""} { set realname $sbnc(realname) } putquick "SBNC ADDUSER $ident $password" putquick "SBNC SIMUL $ident SBNC SET REALNAME $realname" putquick "SBNC SIMUL $ident SBNC SET SERVER $sbnc(ircserver)" utimer 60 [list putquick "SBNC SIMUL $ident JOIN $sbnc(chan)"] putquick "NOTICE $nick :Done. New bnc added." putquick "NOTICE $nick :Server: $sbnc(server), Port: $sbnc(port), Ident: $ident, Password: $password, Iface: $sbnc(iface)" } "del" { set ident [lindex [split $arg] 1] putquick "SBNC DELUSER $ident" putquick "NOTICE $nick :Done. User ($ident) deleted." } "password" { set ident [lindex [split $arg] 1] set password [expr {int(rand()*1000000) + 1}] putquick "SBNC RESETPASS $ident $password" putquick "NOTICE $nick :Done. New password for user ($ident) created." putquick "NOTICE $nick :Password: $password" } "admin" { set ident [lindex [split $arg] 1] if {$ident == "$sbnc(ident)"} { putquick "NOTICE $nick :Error. This ident is already an admin." return } else { putquick "SBNC ADMIN $ident" putquick "NOTICE $nick :Done. User ($ident) has now admin rights." } } "unadmin" { set ident [lindex [split $arg] 1] if {$ident == "$sbnc(ident)"} { putquick "NOTICE $nick :Error. This ident needs admin rights." return } else { putquick "SBNC UNADMIN $ident" putquick "NOTICE $nick :Done. Admin rights for user ($ident) deleted." } } "global" {set arg [lindex [split $arg] 1] putquick "SBNC GLOBAL $arg" putquick "NOTICE $nick :Done. Global notice to all bouncer users transmitted." } "check" { set sbnc(nick) $nick putquick "SBNC WHO" } "help" { putserv "NOTICE $nick :\037sBNC help\037:" putserv "NOTICE $nick :Use $sbnc(trigger)sbnc add 'ident' 'realname' to add a bouncer." putserv "NOTICE $nick :Use $sbnc(trigger)sbnc del 'ident' to delete a bouncer." putserv "NOTICE $nick :Use $sbnc(trigger)sbnc password 'ident' to generate a new password." putserv "NOTICE $nick :Use $sbnc(trigger)sbnc admin 'ident' to give admin rights." putserv "NOTICE $nick :Use $sbnc(trigger)sbnc unadmin 'ident' to remove admin rights." putserv "NOTICE $nick :Use $sbnc(trigger)sbnc global 'message' to send a global notice to all bouncer users." putserv "NOTICE $nick :Use $sbnc(trigger)sbnc check to check if all bouncer users are available at your channel." putserv "NOTICE $nick :End of list." } "default" { putserv "NOTICE $nick :Error. Use $sbnc(trigger)sbnc help to see a command overview." } } } proc sbnc:notice { nick host hand arg dest } { global sbnc if {$nick != "-sBNC"} { return } elseif {$arg == "No such user: *" || $arg == "Done."} { return } elseif {$arg == "End of USERS."} { sbnc:notice:end $sbnc(nick) } else { set ident [lindex [split $arg ()] 0] regsub -all {@} $ident { } ident regsub -all {\*} $ident { } ident append sbnc(db) " $ident" } } proc sbnc:notice:end { nick } { global sbnc set sbnc(missing) "" foreach user [chanlist $sbnc(chan)] { set idents [lindex [split [getchanhost $user $sbnc(chan)] @] 0] foreach ident [split $sbnc(db)] { if {[string match "*$ident*" "$idents"]} { lappend sbnc(missing) $idents } } } set sbnc(mlist) "" foreach idents [split $sbnc(db)] { if {![string match "*$idents*" "$sbnc(missing)"]} { putserv "SBNC SIMUL $idents JOIN $sbnc(chan)" } } unset sbnc(db) putquick "NOTICE $sbnc(nick) :Done. All bouncer users should now be available at your channel." }
Statistics: Posted by GeeX — Fri Jul 21, 2006 5:16 pm
]]>