Doing a whois to print out to a file

[fayettemat]

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: Select all

 bind JOIN - * whois:nick
proc whois:nick { nick  uhost hand chan arguments } 
	{
	set target == "$nick"
	putquick "WHOIS $target $target" -next
	bind RAW - 401 whois:nosuch
	bind 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 $chan
		set nick $nick
		set 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_add
		close $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 <nick> only lasts for about 24 hrs
ps: it wont load lately

[Sir_Fz]

What's the problem you're facing?

[et109]

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

Code: Select all

      set host [lindex [spllit $arguments] 3]

should be

Code: Select all

      set host [lindex [split $arguments] 3]

[fayettemat]

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!

[rosc2112]

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}

[fayettemat]

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?

[rosc2112]

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

[fayettemat]

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)