egghelp/eggheads community

Doing a whois to print out to a file

2007-03-04T00:18:35-04:00

if I bound this to a pubm bind and striped the colors and codes it would be a handy ban script wouldnt it? (the bots a server admin)

Statistics: Posted by fayettemat — Sun Mar 04, 2007 12:18 am

Doing a whois to print out to a file

2007-02-27T21:30:17-04:00

Not at the end. In the same place as the original unbind, just enclose it with catch {} so it doesn't crash the bot.

http://www.tcl.tk/man/tcl8.4/TclCmd/catch.htm

Statistics: Posted by rosc2112 — Tue Feb 27, 2007 9:30 pm

Doing a whois to print out to a file

2007-02-27T18:02:48-04:00

You might want to also catch your unbinds, otherwise the bot could crash if it tries to unbind something that's not already bound:

catch {unbind RAW - 401 whois:nosuch}

so I would just catch {unbind RAW - 401 whois:nosuch} at the end of the file?

Statistics: Posted by fayettemat — Tue Feb 27, 2007 6:02 pm

Doing a whois to print out to a file

2007-02-27T16:51:11-04:00

You might want to also catch your unbinds, otherwise the bot could crash if it tries to unbind something that's not already bound:

catch {unbind RAW - 401 whois:nosuch}

Statistics: Posted by rosc2112 — Tue Feb 27, 2007 4:51 pm

Doing a whois to print out to a file

2007-02-27T15:09:06-04:00

ok I'll try that Et and Sir_Fz the problem is that its not writing to a file and now it says that my code is invalid and I looked at that and I'm going to try again will edit post with results: wish me luck!

Statistics: Posted by fayettemat — Tue Feb 27, 2007 3:09 pm

whois info

2007-02-27T14:33:21-04:00

if the code you are using is a match to this code, you have a typo in proc whois:info

Code:

      set host [lindex [spllit $arguments] 3]

should be

Code:

      set host [lindex [split $arguments] 3]

Statistics: Posted by et109 — Tue Feb 27, 2007 2:33 pm

Doing a whois to print out to a file

2007-02-27T14:24:09-04:00

What's the problem you're facing?

Statistics: Posted by Sir_Fz — Tue Feb 27, 2007 2:24 pm

Doing a whois to print out to a file

2007-02-27T13:33:48-04:00

ok here's the break down: I have an Eggdrop that I use for a protection bot and convince bot, it is Opered so I am not worried about it flooding but I cannot get the dumb bot to send the text I want to a file

Code:

 bind JOIN - * whois:nickproc whois:nick { nick  uhost hand chan arguments } {set target == "$nick"putquick "WHOIS $target $target" -nextbind RAW - 401 whois:nosuchbind RAW - 311 whois:info}proc whois:nosuch { from keyword arguments } {putquick "There is so such nick name!"#unbind the raw#unbind RAW - 401 whois:nosuch}proc whois:info { from keyword arguments }{set chan $chanset nick $nickset ident [lindex [split $arguments] 2]set host [lindex [spllit $arguments] 3]set realname [string range [join [lrange $arguements 5 end]] 1 end]#unbind The Raw#unbind RAW - 311 whois:info#saving to a file#set line_to_add "$nick\!$ident\@$host * $realname"set fname "testfile.txt"set fp [open $fname "a"]puts $fp $line_to_addclose $fp#end saving to a file#}#thanks to egghelp.org for the writting to file learning and MeTroiD for his #whois script I used both in an attempt to make this script!#putlog "Whois on join ver 1.0b1"

as you can see what I am trying to do is to have it automatic in saving the users host upon joining, the reason I use this is because when I get complaints about spam from certian nicks I want to be able to have their full host and /whois only lasts for about 24 hrs
ps: it wont load lately

Statistics: Posted by fayettemat — Tue Feb 27, 2007 1:33 pm