Problems printing a website`s source..

ProXy · Post by **ProXy** » Mon Mar 10, 2003 9:18 pm

Hi,

I just wrote a little Script that should give out the Source of a given Website to the channel. The sorce of the tcl is:

Code: Select all

proc intern:ogame2 {channel sessionid} {
	set halfurl "http://u3.o5game.de/game/"
	set token [http::geturl [append overviewurl $halfurl "overview.php?session=" $sessionid]]
	putserv "PRIVMSG $channel :$overviewurl"
	upvar #0 $token state
	foreach line [list $state(body)] {
		putserv "PRIVMSG $channel :$line"
	}
	http::cleanup $token
}

The first putserv return the right URL, so I guess that geturl reads the correct site. But why doesn`t the script return the source of the website?

Papillon · Post by **Papillon** » Tue Mar 11, 2003 4:46 am

http://tcl.activestate.com/man/tcl8.3/T ... tp.htm#M29
::http::data $token returns the source =)

ppslim · Post by **ppslim** » Tue Mar 11, 2003 5:21 am

My guess, is the very first line of the returned data is a NEW LINE character.

This is being sent in the putserv, and causing the server to ignore, or error on the rest of the data.

You don't use the "list" command on the data, as that simply creates a single item list.

You need to split the output, using the newline character "/n"

spock · Post by **spock** » Tue Mar 11, 2003 4:20 pm

\n

i could be wrong though

Papillon · Post by **Papillon** » Tue Mar 11, 2003 4:22 pm

you're not