egghelp/eggheads community

download any other 'badword' script, add '!list' to the 'bad words' list and turn on bans for bad words

# 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 # if you want to use this script on your chan, type in eggdrop console (via telnet or...

check TCL archive, i've made something smiliar
http://www.egghelp.org/cgi-bin/tcl_arch ... ad&id=1333

if you want it for all users, change rights at 'bind',

try it

add to your config file source for 'alltools.tcl', this is a script which comes with eggdrop package
or type some other path, don't know where you have it...

# 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 # if you want to use commands from this script on your chan, type in eggdrop console ...

i will just add to this post,

the code between marks "#####Code by tomekk#####" is not the same like mine from:
http://forum.egghelp.org/viewtopic.php?t=16547

simple example; set port 1444 set host 10.0.1.1 ################################################################## bind evnt - prerehash prerehash_proc set s_socket [socket -server socket_proc -myaddr $host $port] proc prerehash_proc { type } { global s_socket close $s_socket } proc socket_proc { so...

Its just like telnet or netcat, all you have to do is to write TCL socket script, based on TCP/IP.

Of course you can filter whole output.

do you want to receive logs from rsyslog via TCP and post them on channel right? smth like (spam after rsyslogd connection): 23:18:37 < botty> <6>Apr 13 23:20:55 debian kernel: Kernel logging (proc) stopped. 23:18:39 < botty> <6>Apr 13 23:20:55 debian kernel: imklog 3.18.6, log source = /proc/kmsg s...

script is working for me without any problems,
try to copy it again please

or download it from here
http://temp.tomekk.org/kickhim-0.1.tcl

# 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 # channel with users set command_channel "#xx" # channel with !kbu command ...

ignore, change: to
'sleep'
http://tmml.sourceforge.net/doc/tcl/after.html

or try something with TCL timers

cheers

set the_nick "tomekk" ############################################## bind pubm -|- "*" check_line proc check_line { nick uhost hand chan arg } { global the_nick if {$the_nick == $nick} { if {[regsub -all -nocase {.*ReqId:\[(.*)\].*} $arg {\1} arg]} { putquick "PRIVMSG $chan...

some time ago i wrote something similar eggdrop part (you can add some regexps in this proc, whatever): # Author: tomekk # e-mail: tomekk/@/oswiecim/./eu/./org # home page: http://tomekk.oswiecim.eu.org/ # # Version 0.2 # # This file is Copyrighted under the GNU Public License. # http://www.gnu.org/...

http://wiki.tcl.tk/1475
http://tmml.sourceforge.net/doc/tcl/http.html
and the rest in google..