* test/ruby/envutil.rb (assert_normal_exit): show pid when fail.
[ruby-svn.git] / sample / dualstack-fetch.rb
blob1897a3d8e92984a0d4b57ea01c79f4dd26cdcfea
1 # simple webpage fetcher
3 # The code demonstrates how a multi-protocol client should be written.
4 # TCPSocket is using getaddrinfo() internally, so there should be no problem.
6 require "socket"
8 if ARGV.size != 1
9   STDERR.print "requires URL\n"
10   exit
11 end
13 url = ARGV[0]
14 if url !~ /^http:\/\/([^\/]+)(\/.*)$/
15   STDERR.print "only http with full hostname is supported\n"
16   exit
17 end
19 # split URL into host, port and path
20 hostport = $1
21 path = $2
22 if (hostport =~ /^(.*):([0-9]+)$/)
23   host = $1
24   port = $2
25 else
26   host = hostport
27   port = 80
28 end
29 if host =~ /^\[(.*)\]$/
30   host = $1
31 end
33 #STDERR.print "url=<#{ARGV[0]}>\n"
34 #STDERR.print "host=<#{host}>\n"
35 #STDERR.print "port=<#{port}>\n"
36 #STDERR.print "path=<#{path}>\n"
38 STDERR.print "conntecting to #{host} port #{port}\n"
39 c = TCPSocket.new(host, port)
40 dest = Socket.getnameinfo(c.getpeername,
41                 Socket::NI_NUMERICHOST|Socket::NI_NUMERICSERV)
42 STDERR.print "conntected to #{dest[0]} port #{dest[1]}\n"
43 c.print "GET #{path} HTTP/1.0\n"
44 c.print "Host: #{host}\n"
45 c.print "\n"
46 while c.gets
47   print
48 end