egghelp/eggheads community

Request for on-join /chanserv WHY #chan nick TCL

2004-06-07T05:11:41-04:00

Code:

#---------------------------------------------------------------------# why.tcl# Tcl script for IRC bot Eggdrop## Upon a +o mode by chanserv (dal.net) this script sends out a# WHY to chanserv and puts the result in the file WHY.txt## v0: 07-JUN-2004#---------------------------------------------------------------------package require Tcl 8.0bind mode - * mode:whybind notc - * notc:whyproc mode:why { nick uhost hand chan mchange victim } {   # check mode change   if { $mchange != "+o" } { return 0 }   # check nick and uhost opper is chanserv   if { $nick != "ChanServ" } { return 0 }   if { $uhost != "service@dal.net" } { return 0 }   # send a "why" message to chanserv   set chanserv chanserv@services.dal.net   puthelp "PRIVMSG $chanserv :WHY $chan $victim"}proc notc:why { nick uhost hand text dest} {   global botnick   # destination must be the bot   if { $dest != $botnick } { return 0 }   # check nick and uhost is chanserv   if { $nick != "ChanServ" } { return 0 }   if { $uhost != "service@dal.net" } { return 0 }   # a WHY result?   set matchrule {* has * access to *}   if { ![string match $matchrule $text] } { return 0 }   # save the why result to file   set cformat {%d-%b-%Y-%H:%M}   set stamp [clock format [clock seconds] -format $cformat]   set fd [open WHY.txt a+]   puts $fd "$stamp $text"   close $fd}putlog "Loaded (version 0): why.tcl"

Statistics: Posted by egghead — Mon Jun 07, 2004 5:11 am

Request for on-join /chanserv WHY #chan nick TCL

2004-06-06T02:40:15-04:00

Showing us the output of "/msg ChanServ WHY" would help...

Statistics: Posted by dollar — Sun Jun 06, 2004 2:40 am

Request for on-join /chanserv WHY #chan nick TCL

2004-06-05T20:44:35-04:00

Hi is there any tcl which will perform an on-join /chanserv why and save the result in a text file (logs) ?

If not , i have a suggestion , which i think it'll be very useful for the channel to trace those mkickers.

Make a tcl script which will :
1) When a user is opped by chanserv , ie ChanServ -mode- +o $nick , the script will /chanserv WHY #channel $nick

2) Chanserv will return the WHY result , and save it into log file , eg: WHY.txt

3) In those WHY.txt will save all the chanserv WHY results.

This very useful to track who is the mkicker . Bcos some mkicker will simply identify to the AOP/SOP's nick , and disguised into another nick, which is very hard to trace which AOP/SOP did the mkick. I believe what i suggest can easily solve this problem.

------------------------
Second problem :

If my eggdrop is banned, it'll automatically /chanserv unban itself. but it takes about 10-30 seconds to join back . Why ? Is there anyway to make it rejoin back asap ? thanks

If anyone can kindly put my idea into a tcl script , i'd be very grateful . Thanks

Statistics: Posted by Guest — Sat Jun 05, 2004 8:44 pm