egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2017-07-20T13:40:33-04:00 https://forum.eggheads.org/app.php/feed/topic/12774 2017-07-20T13:40:33-04:00 2017-07-20T13:40:33-04:00 https://forum.eggheads.org/viewtopic.php?p=106377#p106377 <![CDATA[Hope to get a reply]]>
The eggdrop bot logs each kick and ban in channel 1. Channel 1 is the main channel. Channel 2 is the help channel for channel 1. The user came to channel 2 but the person who kicked is not there. As an operator i want to help.

So i type !searchban nick
the bot replies.

Searching for ban report on $nick in channel 1 ...
Ban Found on $nick with ban mask $banmask
Reason: $kickreason Placed By: $kick-maker Date & Time: $date $time

Please help me on this. would be very greatful. should reply on help channel on mains only. i'll add the colours myself. thanks

Statistics: Posted by dreamwatcher — Thu Jul 20, 2017 1:40 pm

]]> 2017-05-02T11:08:08-04:00 2017-05-02T11:08:08-04:00 https://forum.eggheads.org/viewtopic.php?p=106234#p106234 <![CDATA[Ban + html generating]]>

Code: 

bind kick - * logitbind mode - "* +b" logitproc logit {nick uhost hand chan arg1 arg2} {       if {$arg1 == "+b"} {                set line "<pre>BAN: Set by $nick ($hand - $uhost) on channel $chan against $arg2 </pre>"       } else {                set line "<pre>KICK: Set by $nick ($hand - $uhost) on channel $chan against $arg1 for $arg2 </pre>"       }       set kickbanlog [open /path/to/my/kickban.log a]       puts $kickbanlog $line       catch {close $kickbanlog}}#antiwordwrap#########################################################################################################
Should work, not tested..Obviously doesn't have the html header (which probably won't be necessary anyway.) That gives you the basics, modify to suit.
Hello to everyone!

I would like to ask someone to modify this scripts for me.
I would like to store the "-b" actions too. It is good to know who removed the ban and when.

Thanks for your help! :)

Statistics: Posted by m4s — Tue May 02, 2017 11:08 am

]]> 2007-03-06T05:21:48-04:00 2007-03-06T05:21:48-04:00 https://forum.eggheads.org/viewtopic.php?p=71031#p71031 <![CDATA[Thanks to rosc2112 for the idea !]]>

Code: 

# ============================================================================# KickBanLog.tcl v1.0 (12/Feb/2007) by Yxaaaaaaa & Tisho & Thanks  to rosc2112 # -------------- COPYRIGHT C.LEONHARDT 2007 --------------------# Original concept by rosc2112 (C.LEONHARDT)# http://forum.egghelp.org/viewtopic.php?p=68656#68656## Description:# This tcl logs every Kick & Ban in chosen channel, and generates html file)## Yxaaaaaaa UniBG @ #EggFAQ ( http://www.egghlep-bg.com )# Tisho UniBG @ #DJ ( http://DjTisho.com )# (Please e-mail us your suggestions and bugs - djtisho|at|gmail.com# ============================================================================# Starting configuration ...# Channels (separated by space)set kbechans "#channel1 #channel2"# Main log dir (full path to your logs dir, e.g. /home/user/public_html/log )set kbepath "/home/user/public_html/log"# Setting the HTTP charset parameter ( http://www.w3.org/International/O-HTTP-charset )set charset "windows-1251"# Bindsbind kick - * e:logbind mode - "* +b" e:log# Start tcl script - DO NOT change anything below !proc e:createpage c {    if {![string match *$c* $::kbechans]} {return}      set efile "$::kbepath/$c/index.html"      set fid [open $efile w]    puts $fid "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=$::charset\" />\n    <body text=\"#FFFFFF\" bgcolor=\"#000000\" topmargin=\"0\" leftmargin=\"0\">\n    <p align=\"center\"><u><font size=\"5\" face=\"Verdana\">Channel #$c Kicks & Bans log</font></u></p>\n"    close $fid    }    proc e:log {n u h c w t} {      set c [string map [list "#" {}] [string tolower $c]]    if {![file isdir $::kbepath/$c]} { catch {[file mkdir $::kbepath/$c]}}      set efile "$::kbepath/$c/index.html"    if {![file exists $efile]} { e:createpage $c}    if {$w == "+b"} { set line "<pre><font color='green'>BAN: [ctime [unixtime]] Set by $n ($h - $u) on channel #$c against $t</font></pre>"    } else {  set line "<pre><font color='red'><u>KICK:</u> [ctime [unixtime]] Set by $n ($h - $u) on channel #$c against $w for <u>$t</u> </font></pre>"     }      set kickbanlog [open $efile a]     puts $kickbanlog $line   catch {close $kickbanlog}     }# putlogputlog "KickBanLog.tcl v1.0 by <\002Yxaaaaaaa & Tisho & rosc2112\002> Loaded."

Statistics: Posted by tisho — Tue Mar 06, 2007 5:21 am

]]> 2006-12-03T18:39:48-04:00 2006-12-03T18:39:48-04:00 https://forum.eggheads.org/viewtopic.php?p=68687#p68687 <![CDATA[Ban + html generating]]> Statistics: Posted by rosc2112 — Sun Dec 03, 2006 6:39 pm

]]> 2006-12-03T18:03:07-04:00 2006-12-03T18:03:07-04:00 https://forum.eggheads.org/viewtopic.php?p=68685#p68685 <![CDATA[Ban + html generating]]> Statistics: Posted by hellrazor — Sun Dec 03, 2006 6:03 pm

]]> 2006-12-03T16:04:46-04:00 2006-12-03T16:04:46-04:00 https://forum.eggheads.org/viewtopic.php?p=68681#p68681 <![CDATA[Ban + html generating]]>
set line "<pre>BAN: [ctime [unixtime]] and so forth"

Statistics: Posted by rosc2112 — Sun Dec 03, 2006 4:04 pm

]]> 2006-12-03T07:17:05-04:00 2006-12-03T07:17:05-04:00 https://forum.eggheads.org/viewtopic.php?p=68668#p68668 <![CDATA[Ban + html generating]]> One more thing, can it log the date and the time?

Statistics: Posted by hellrazor — Sun Dec 03, 2006 7:17 am

]]> 2006-12-03T01:59:15-04:00 2006-12-03T01:59:15-04:00 https://forum.eggheads.org/viewtopic.php?p=68656#p68656 <![CDATA[Ban + html generating]]>

Code: 

bind kick - * logitbind mode - "* +b" logitproc logit {nick uhost hand chan arg1 arg2} {       if {$arg1 == "+b"} {                set line "<pre>BAN: Set by $nick ($hand - $uhost) on channel $chan against $arg2 </pre>"       } else {                set line "<pre>KICK: Set by $nick ($hand - $uhost) on channel $chan against $arg1 for $arg2 </pre>"       }       set kickbanlog [open /path/to/my/kickban.log a]       puts $kickbanlog $line       catch {close $kickbanlog}}#antiwordwrap#########################################################################################################
Should work, not tested..Obviously doesn't have the html header (which probably won't be necessary anyway.) That gives you the basics, modify to suit.

Statistics: Posted by rosc2112 — Sun Dec 03, 2006 1:59 am

]]> 2006-11-30T22:01:36-04:00 2006-11-30T22:01:36-04:00 https://forum.eggheads.org/viewtopic.php?p=68589#p68589 <![CDATA[Ban + html generating]]> First of all, I am not very good at tcl coding. I need tcl like .. hmm KillLog, but instead of loggin kills, to log the kicks and bans. I mean - when someone get kicked from my channel, the bot should log the nick who was kicked, the nick who kicked (and the hosts of both) and the reason for kicks. After that, it should generate a webpage with .. with the same information. If there is .. someone who could write suck a think (because i can't) please, share your knowledge with me :)
Thanks in advance!

Statistics: Posted by hellrazor — Thu Nov 30, 2006 10:01 pm

]]>