egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2004-02-10T13:06:19-04:00 https://forum.eggheads.org/app.php/feed/topic/6810 2004-02-10T13:06:19-04:00 2004-02-10T13:06:19-04:00 https://forum.eggheads.org/viewtopic.php?p=33440#p33440 <![CDATA[nospam1.7.2.tcl modification help]]> Statistics: Posted by caesar — Tue Feb 10, 2004 1:06 pm

]]> 2004-02-10T04:12:46-04:00 2004-02-10T04:12:46-04:00 https://forum.eggheads.org/viewtopic.php?p=33425#p33425 <![CDATA[nospam1.7.2.tcl modification help]]> Statistics: Posted by spock — Tue Feb 10, 2004 4:12 am

]]> 2004-02-09T18:08:45-04:00 2004-02-09T18:08:45-04:00 https://forum.eggheads.org/viewtopic.php?p=33418#p33418 <![CDATA[nospam1.7.2.tcl modification help]]>
<caron> WOOOAAA OMG WOW LIKE SWEET!!! DO THIS GUYS!!! /join #2,000

[22:06:05] <Natsuki-Chan> [22:06] Tcl error [msgs:abuse]: can't read "when": no such variable
[22:06:05] <Natsuki-Chan> [22:06] #catgirls: mode change '+b *!*caron@*.adelphia.net' by Natsuki-Chan!~Natsuki@spc1-ward1-6-0-cust180.manc.broadband.ntl.com
i dont understand why $when: doesnt work. the code is identical to the stuff above

Statistics: Posted by Weirdo — Mon Feb 09, 2004 6:08 pm

]]> 2004-02-09T15:38:19-04:00 2004-02-09T15:38:19-04:00 https://forum.eggheads.org/viewtopic.php?p=33407#p33407 <![CDATA[nospam1.7.2.tcl modification help]]>
A few of us on aniverse irc are using this script in order to help catch and gline spammers on the network. The new system operates by messages being sent to #nospam when someone is kicked so they can be dealt with. The channel is -n which allows private messages form outside the channel to be put into the channel.

Is there something i can add to this script to allow the bot to report when a spammer hits the channels the bot operates on. If possible, with the format

<time> <date> <channel> <spammer nick> <spammer host> <spammer message>

Best place i think for the code to act is in the Spammer logger section of the script

Code: 

proc sl_write {type who where what why} {  global spam-log spam-log-file  if {${spam-log}} {    set file [open ${spam-log-file} a+]    set when [strftime "%D %r"]    switch $type {      c {puts $file "$when: $who said: (#$why) $what in: $where"}      d {puts $file "$when: $who was sending: $what to people in: $where"}      i {puts $file "$when: $who invited me to: $where"}      m {puts $file "$when: $who messaged me with: (#$why) $what"}      n {if {![string length $where]} {set where "me"} ; puts $file "$when: $who noticed: $where with: (#$why) $what"}      p {puts $file "$when: $who parted from: $where with: (#$why) $what"}    }    close $file  }}
Any help regarding this would be wonderful. The script was created by ppslim and is at http://sourceforge.net/projects/no-spam/.


Edit, ok we tried this to add the feature

Code: 

  if {${spam-log}} {  switch $type {  c {putserv "PRIVMSG #nospam :$when: $who said (#$why) $what in: $where"}  d {putserv "PRIVMSG #nospam :$when: $who was sending: $what to people in: $where"}  i {putserv "PRIVMSG #nospam :$when: $who invited me to: $where"}  m {putserv "PRIVMSG #nospam :$when: $who messaged me with: (#$why) $what"}  n {if {!string length $where]} {set where "me"} ; putserv "PRIVMSG #nospam :$when: $who noticed$  p {putserv "PRIVMSG #nospam :$when: $who parted from: $where with: (#$why) $what"}}    set file [open ${spam-log-file} a+]    set when [strftime "%D %r"]    switch $type {

Statistics: Posted by Weirdo — Mon Feb 09, 2004 3:38 pm

]]>