;/	HTTPSERV by bar			/
;/	via ircnick.com			/
;/	bar007@bezeqint.net		/
;/	---				/
;/	Syntex: /httpserv <host>	/
;/	---				/
;
;
;	Gets the HEADER of a <host>
;
;

alias httpserv {
  if (!$1) { output insufficient parameters | return }
  if ($chr(46) !isin $1) { output invaild paramters | return }
  set %serv.lag $ticks
  output Attempting to connect $+(,$1,)
  sockopen serv $1 80
}
alias -l output { echo -e $+(,$color(info)) * httpserv: $1- }

on 1:sockopen:serv: {
  if ($sockerr > 0) { output Error while connecting | sockclose serv }
  if (!$sock(serv)) halt
  sockwrite -n serv GET / HTTP/1.0
  sockwrite -n serv Host: $sock(serv).ip
  sockwrite -n serv Connection: keep-alive
  sockwrite serv $crlf
  output CRLF >> Signal sent
}
on 1:sockread:serv: {
  sockread %serv
  tokenize 32 %serv
  if ($1 == Server:) {
    output *** Server: $+(,$2-)
    output *** Lag: $+(,$int($calc(($ticks - %serv.lag) / 10)),ms)
    output *** IP: $sock(serv).ip
    unset %serv.lag
  }
  if ($1 == Date:) output *** Local date: $+(,$2-)
  if ($1 == Via:) output *** Via: $+(,$2-)
  if ($len(%serv) < 4) { 
    output CRLF << Signal received 
    output Closed connection to $+(,$sock(serv).ip,) (buffer $+(sent: $sock(serv).sent,/,rcvd: $sock(serv).rcvd)  bytes)
    sockclose serv
  }
}