What have your neighbrs been up to? http://neighbr.net/ellesd/feed en-us ellesd http://neighbr.net/img/avatars/ellesd.jpg stay away pGPvcGN9uuk Wed, 28 Jan 2009 19:03:13 -0800 http://neighbr.net/view/80 http://neighbr.net/view/80 ellesd http://neighbr.net/img/avatars/ellesd.jpg This one is for Nuri. REQRHdMRimw Tue, 27 Jan 2009 21:10:18 -0800 http://neighbr.net/view/75 http://neighbr.net/view/75 ellesd http://neighbr.net/img/avatars/ellesd.jpg get your butt on xbl for some hdr beat-downs. gt: michigan526, anyone else want some? Fri, 23 Jan 2009 15:40:30 -0800 http://neighbr.net/view/56 http://neighbr.net/view/56 ellesd http://neighbr.net/img/avatars/ellesd.jpg Obama is black. http://neighbr.net/images/yeswehadoucan.jpg Fri, 23 Jan 2009 12:12:10 -0800 http://neighbr.net/view/52 http://neighbr.net/view/52 ellesd http://neighbr.net/img/avatars/ellesd.jpg Source/README: http://townkill.org/projects/tcl/vhost.tcl set opernick "eggdrop" set operpass "eggdrop123" set operchan "#opers" set queuemsg "Your vhost has been qeued and awaiting approval. Thank you." set admin1 "admin1" set admin2 "admin2" set file "ircd.vhosts" set path "/path/to/ircd.vhosts" ## This will automatically oper up on connect if set as 1 set operonconnect "1" ## Do NOT edit below this line unless you know what you are doing. proc evnt:init_server {type} { global operpass opernick operonconnect if {$operonconnect == "1"} { putserv "OPER $opernick $operpass" return 1 } else { return 0 } } proc reqvhost {nick uhost hand arg} { global operchan admin1 admin2 w1 w2 w3 queuemsg set arg [split $arg] set w1 [lindex $arg 0] set w2 [lindex $arg 1] set w3 [lindex $arg 2] putserv "PRIVMSG $operchan : User: \00315 $nick \003 ( $uhost ) has requested login/pass/vhost: $w1 / $w2 / $w3 . Awaiting approval." putserv "PRIVMSG Memoserv : send $admin1 User: $nick ( $uhost ) has requested login/pass/vhost: $w1 / $w2 / $w3 . Awaiting approval." utimer 10 "[putserv "PRIVMSG $operchan : Notifying admins..."]" putserv "PRIVMSG Memoserv : send $admin2 User: $nick ( $uhost ) has requested login/pass/vhost: $w1 / $w2 / $w3 . Awaiting approval." putserv "PRIVMSG $nick : $queuemsg" return 1 } proc appvhost {nick uhost hand arg} { global operchan path file w1 w2 w3 admin1 admin2 if {$nick != $admin1} { putserv "NOTICE $nick : You do not have permission to use this command." return 0 } elseif {$nick != $admin2} { putserv "NOTICE $nick : You do not have permission to use this command." return 0 } else { putserv "NOTICE $operchan : User: \00315 $nick \003 ( $uhost ) has approved the vhost." set fs [open $path/ircd.vhosts a] set arg [split $arg] set w1 [lindex $arg 0] set w2 [lindex $arg 1] set w3 [lindex $arg 2] puts $fs "vhost { vhost $w3; from { userhost *@*; }; login $w1; password $w2; };" close $fs putserv "REHASH" putserv "NOTICE $operchan : $arg added. Rehashed the server." putserv "PRIVMSG $w1 : Your vhost: $w1 / $w2 / $w3 has been accepted." return 1 } } proc apphost {nick uhost handle channel arg} { global operchan path file w1 w2 w3 if {$channel == $operchan} { putserv "NOTICE $operchan : User: \00315 $nick \003 ( $uhost ) has approved the vhost." set fs [open $path/ircd.vhosts a] set arg [split $arg] set w1 [lindex $arg 0] set w2 [lindex $arg 1] set w3 [lindex $arg 2] puts $fs "vhost { vhost $w3; from { userhost *@*; }; login $w1; password $w2; };" close $fs putserv "REHASH" putserv "NOTICE $operchan : $arg added. Rehashed the server." putserv "PRIVMSG $w1 : Your vhost: $w1 / $w2 / $w3 has been accepted." return 1 } else { putserv "NOTICE $nick : You cannot use that command in this channel." return 0 } } proc oup {nick uhost handle arg} { global opernick operpass admin1 if {$nick != $admin1} { putserv "NOTICE $nick Sorry, you must be the admin to use this command." return 0 } else { putserv "OPER $opernick $operpass" return 1 } } bind pub - !approve apphost bind msg - !operup oup bind msg - !request reqvhost bind msg - !approve appvhost set ver "v1.3" putlog "vhbot.tcl $ver © James Michigan 2003 loaded." Tue, 20 Jan 2009 19:30:40 -0800 http://neighbr.net/view/16 http://neighbr.net/view/16 ellesd http://neighbr.net/img/avatars/ellesd.jpg print "Goodbye Cruel World!\n" Tue, 20 Jan 2009 19:09:24 -0800 http://neighbr.net/view/14 http://neighbr.net/view/14 ellesd http://neighbr.net/img/avatars/ellesd.jpg Came Tue, 20 Jan 2009 19:08:43 -0800 http://neighbr.net/view/13 http://neighbr.net/view/13 ellesd http://neighbr.net/img/avatars/ellesd.jpg sharper.. Tue, 20 Jan 2009 16:44:55 -0800 http://neighbr.net/view/9 http://neighbr.net/view/9 ellesd http://neighbr.net/img/avatars/ellesd.jpg body: do u haev them? Mon, 19 Jan 2009 23:33:02 -0800 http://neighbr.net/view/6 http://neighbr.net/view/6 ellesd http://neighbr.net/img/avatars/ellesd.jpg ya nice Mon, 19 Jan 2009 23:31:53 -0800 http://neighbr.net/view/5 http://neighbr.net/view/5