Sockets

2001-11-15T02:32:00-04:00

Don't use list commands on a string (lindex $arg). Also, there's a reason they're called variable *names* and not variable numbers. Don't use confusing variable names like "1" and "2" that just makes the code harder to understand.

More to the point at hand, you split $test up into a list of lines, and examine each line, one at a time. So of course you will never find "Server" and "Connection:" in the same element.. they're on separate lines.

Statistics: Posted by stdragon — Thu Nov 15, 2001 2:32 am

Sockets

2001-11-14T20:59:00-04:00

Hi, i am trying to make a script that will
tell me the webserver software of a site
i put putserv "PRIVMSG $chan :$i" in so i could see what was going on. So i did .http eggdrop.org and it said to the channel:

HTTP/1.1 200 OK
Date: Wed, 14 Nov 2001 22:49:14 GMT
Server: Apache/1.3.14
Connection: close
Content-Type: text/html

i wanted it to tell me the text between Server: and Connection: but it only writes the above to the channel and not the text between the two.

Code:

bind pub - http http
proc http {nick host hand chan arg} {
set site "[lindex $arg 0]"
set sock [socket $site 80]
puts $sock "HEAD / HTTP/1.0n"
flush $sock
set test [read $sock]
close $sock
set test [split $test n]

foreach i $test {
putserv "PRIVMSG $chan :$i"
if {[string first Server $i] != -1} {
set 1 [expr [string first : $i] +2]
set 2 [expr [string first Connection: $i] -1]
set result [string range $i $1 $2]
putserv "PRIVMSG $chan :$result"
}
}
}

whats wrong with this?
Thanks

[ This Message was edited by: PnT on 2001-11-14 18:01 ]

Statistics: Posted by Guest — Wed Nov 14, 2001 8:59 pm

egghelp/eggheads community

Sockets

Sockets