2001-05-26 07:38:39 +04:00
|
|
|
# simple webpage fetcher
|
|
|
|
|
|
|
|
# The code demonstrates how a multi-protocol client should be written.
|
2002-07-11 12:22:18 +04:00
|
|
|
# TCPSocket is using getaddrinfo() internally, so there should be no problem.
|
2001-05-26 07:38:39 +04:00
|
|
|
|
|
|
|
require "socket"
|
|
|
|
|
|
|
|
if ARGV.size != 1
|
|
|
|
STDERR.print "requires URL\n"
|
|
|
|
exit
|
|
|
|
end
|
|
|
|
|
|
|
|
url = ARGV[0]
|
|
|
|
if url !~ /^http:\/\/([^\/]+)(\/.*)$/
|
|
|
|
STDERR.print "only http with full hostname is supported\n"
|
|
|
|
exit
|
|
|
|
end
|
|
|
|
|
|
|
|
# split URL into host, port and path
|
|
|
|
hostport = $1
|
|
|
|
path = $2
|
|
|
|
if (hostport =~ /^(.*):([0-9]+)$/)
|
|
|
|
host = $1
|
|
|
|
port = $2
|
|
|
|
else
|
|
|
|
host = hostport
|
|
|
|
port = 80
|
|
|
|
end
|
|
|
|
if host =~ /^\[(.*)\]$/
|
|
|
|
host = $1
|
|
|
|
end
|
|
|
|
|
|
|
|
#STDERR.print "url=<#{ARGV[0]}>\n"
|
|
|
|
#STDERR.print "host=<#{host}>\n"
|
|
|
|
#STDERR.print "port=<#{port}>\n"
|
|
|
|
#STDERR.print "path=<#{path}>\n"
|
|
|
|
|
|
|
|
STDERR.print "conntecting to #{host} port #{port}\n"
|
2002-07-11 12:22:18 +04:00
|
|
|
c = TCPSocket.new(host, port)
|
2001-05-26 07:38:39 +04:00
|
|
|
dest = Socket.getnameinfo(c.getpeername,
|
2013-07-20 17:41:02 +04:00
|
|
|
Socket::NI_NUMERICHOST|Socket::NI_NUMERICSERV)
|
2001-05-26 07:38:39 +04:00
|
|
|
STDERR.print "conntected to #{dest[0]} port #{dest[1]}\n"
|
|
|
|
c.print "GET #{path} HTTP/1.0\n"
|
|
|
|
c.print "Host: #{host}\n"
|
|
|
|
c.print "\n"
|
|
|
|
while c.gets
|
|
|
|
print
|
|
|
|
end
|