rwdlanguage 0.01

data/lib/rwd/net.rb

@@ -0,0 +1,877 @@
+require "lib/rwd/ruby"
+require "lib/rwd/ftools"
+require "lib/rwd/mime"
+require "net/http"
+require "socket"
+require "uri"
+require "cgi"
+require "md5"
+require "thread"
+
+$proxy	= ENV["PROXY"]	if $proxy.nil?
+
+file	= "#{home}/.evnet"
+if File.file?(file)
+  Hash.file(file).each do |k, v|
+    eval "$#{k} = '#{v}'"	unless k=~ /^\#/
+  end
+end
+
+def uri2txt(s)
+	# ??? Werkt niet goed
+  i	= s.index(/%[[:digit:]]{2}/)
+  while not i.nil?
+    s	= s[0..(i-1)] + s[(i+1)..(i+2)].unpack('H2').shift.to_i.chr + s[(i+3)..-1]
+    i	= s.index(/%[[:digit:]]{2}/)
+  end
+  s
+end
+
+class TCPServer
+  def self.freeport(from, to, remote=false)
+    if windows? or cygwin?
+      TCPServer.freeport_windows(from, to, remote)
+    else
+      TCPServer.freeport_linux(from, to, remote)
+    end
+  end
+
+  def self.freeport_linux(from, to, remote)
+    ports	= (from..to).to_a
+    port	= nil
+    res		= nil
+
+    while res.nil? and not ports.empty?
+      begin
+        port	= ports[0]
+        ports.delete(port)
+
+        io	= TCPServer.new(remote ? "0.0.0.0" : "localhost", port)
+
+        res	= [port, io]
+      rescue
+      end
+    end
+
+    res	= [nil, nil]	if res.nil?
+
+    port, io	= res
+
+    return port, io
+  end
+
+  def self.freeport_windows(from, to, remote)
+    ports	= (from..to).to_a
+    port	= nil
+    res		= nil
+
+    while res.nil? and not ports.empty?
+      begin
+        port	= ports.any
+        ports.delete(port)
+
+        io	= TCPSocket.new("localhost", port)
+        io.close
+      rescue
+        res	= port
+      end
+    end
+
+    port, io	= res
+
+    return port, io
+  end
+
+  def self.freeport_windows2(from, to, remote)
+    res	= nil
+    port	= from
+
+    while res.nil? and port <= to
+      begin
+        io	= TCPSocket.new("localhost", port)
+        io.close
+
+        port += 1
+      rescue
+        res	= port
+      end
+    end
+
+    return res
+  end
+
+  def self.usedports(from, to)
+    threads	= []
+    res		= []
+
+    from.upto(to) do |port|
+      threads << Thread.new do
+        begin
+          io	= TCPSocket.new("localhost", port)
+          io.close
+
+          port
+        rescue
+          nil
+        end
+      end
+    end
+
+    threads.each do |thread|
+      port	= thread.value
+      res << port	unless port.nil?
+    end
+
+    return res
+  end
+end
+
+class EVURI
+  attr_reader :protocol
+  attr_writer :protocol
+  attr_reader :userpass
+  attr_writer :userpass
+  attr_reader :host
+  attr_writer :host
+  attr_reader :port
+  attr_writer :port
+  attr_reader :path
+  attr_writer :path
+  attr_reader :vars
+  attr_writer :vars
+  attr_reader :anchor
+  attr_writer :anchor
+
+  def initialize(url)
+    begin
+      @protocol, @userpass, @host, @port, d1, @path, d2, @vars, @anchor	= URI.split(url.to_s)
+    rescue
+    end
+
+    @path		= "/"		if (not @path.nil? and @path.empty? and @protocol == "http")
+
+    @protocol		= ""		if @protocol.nil?
+    @userpass		= ""		if @userpass.nil?
+    @host		= ""		if @host.nil?
+    @port		= 0		if @port.nil?
+    @path		= ""		if @path.nil?
+    @vars		= ""		if @vars.nil?
+    @anchor		= ""		if @anchor.nil?
+
+    res			= {}
+    @varsvolgorde	= []
+    @vars.split(/&/).each{|var| k, v = var.split(/=/) ; res[k] = v ; @varsvolgorde << k}
+    @vars		= res
+
+    @port		= @port.to_i
+  end
+
+  def +(url2)
+    url1	= self.to_s
+    url2	= url2.to_s	if url2.kind_of?(self.class)
+
+    return EVURI.new((URI::Generic.new(*URI.split(url1)) + URI::Generic.new(*URI.split(url2))).to_s)	rescue nil
+  end
+
+  def to_s
+    protocol	= @protocol
+    userpass	= @userpass
+    host	= @host
+    port	= @port
+    path	= @path
+    vars	= varstring
+    anchor	= @anchor
+
+    protocol	= nil	if @protocol.empty?
+    userpass	= nil	if @userpass.empty?
+    host	= nil	if @host.empty?
+    port	= nil	if @port.zero?
+    path	= nil	if @path.empty?
+    vars	= nil	if @vars.empty?
+    anchor	= nil	if @anchor.empty?
+
+    res	= URI::HTTP.new(@protocol, @userpass, @host, port, nil, @path, nil, vars, @anchor).to_s.from_html
+
+    res.gsub!(/@/, "")	if (@userpass.nil? or @userpass.empty?)
+
+    res.gsub!(/\#$/, "")
+
+    return res
+  end
+
+  def localname
+    protocol	= @protocol
+    userpass	= @userpass
+    host	= @host
+    port	= @port
+    path	= @path
+    vars	= varstring
+    anchor	= @anchor
+
+    protocol	= nil	if @protocol.empty?
+    userpass	= nil	if @userpass.empty?
+    host	= nil	if @host.empty?
+    port	= nil	if @port.zero?
+    path	= nil	if @path.empty?
+    vars	= nil	if @vars.empty?
+    anchor	= nil	if @anchor.empty?
+
+    path	= "#{path}."	if path =~ /[\/\\]$/
+
+    f	= MD5.new(protocol.to_s + userpass.to_s + host.to_s + port.to_s + File.dirname(path.to_s) + vars.to_s).to_s
+    e	= File.basename(path.to_s).gsub(/[^\w\.\-]/, "_").gsub(/_+/, "_")
+    res	= f + "." + e
+    res.gsub!(/[^\w]+$/, "")
+
+    return res
+  end
+
+  def varstring
+    res		= []
+    vars	= @vars.dup
+
+    @varsvolgorde.each do |k|
+      if vars.include?(k)
+        v	= vars[k]
+        vars.delete(k)
+
+        res << (v.nil? ? k : "#{k}=#{v}")
+      end
+    end
+
+    res.concat(vars.collect{|k, v| v.nil? ? k : "#{k}=#{v}"})
+
+    return res.join("&")
+  end
+end
+
+class HTTPClient
+  @@versie	= 1
+  @@mutex	= Mutex.new
+  @@hosts	= {}
+
+  class Header
+    attr_reader :header
+    attr_reader :protocol
+    attr_reader :code
+    attr_reader :text
+
+    def initialize(header)
+      @header	= {}
+
+      if not header.nil?
+        firstline, rest	= header.split(/\r*\n/, 2)
+
+        @protocol, @code, @text	= firstline.split(/  */, 3)
+
+        @code	= @code.to_i
+
+        if not rest.nil?
+          rest.split(/\r*\n/).each do |line|
+            key, value	= line.split(/ /, 2)
+            @header[key.sub(/:$/, "").downcase]	= value
+          end
+        end
+      end
+    end
+
+    def to_s
+      res	= ""
+
+      res << "%s %s %s\n" % [@protocol, @code, @text]
+
+      @header.each do |k, v|
+        res << "%s=%s\n" % [k, v]
+      end
+
+      return res
+    end
+  end
+
+  class Chunk
+    def initialize(data)
+      @data	= ""
+      line, data	= data.split(/\r*\n/, 2)
+      size, ext		= line.split(/;/, 2)
+      size		= size.hex
+      while not size.zero? and not data.nil?
+        @data		+= data[0..(size-1)]
+        data		= data[size..-1]
+        if not data.nil?
+          data.gsub!(/^\r*\n/, "")
+          line, data	= data.split(/\r*\n/, 2)
+          size, ext	= line.split(/;/, 2)
+          size		= size.hex
+        end
+      end
+    end
+
+    def to_s
+      @data
+    end
+  end
+
+  class NoAddressException < StandardError
+  end
+
+  def self.getaddress(host)
+    if not @@hosts.include?(host)
+      @@hosts[host]	= ""
+      evtimeout(5) do	# ??? Doet 'ut niet?...
+        @@hosts[host]	= IPSocket.getaddress(host)
+      end
+    end
+
+    raise NoAddressException, host	if @@hosts[host].empty?
+
+    @@hosts[host]
+  end
+
+  def self.head(uri, form={}, recursive=true)
+    header	= Header.new(nil)
+
+    begin
+      while not uri.nil?
+        uri		= EVURI.new(uri) if uri.kind_of? String
+        host		= uri.host
+        port		= uri.port
+
+        if $proxy.nil? or $proxy.empty? or host == "localhost"
+          io		= nil
+
+          @@mutex.synchronize do
+            io			= TCPSocket.new(getaddress(host), port.zero? ? 80 : port)
+          end
+
+          io.write("HEAD #{uri.path or '/'}#{uri.varstring.empty? ? '' : '?' + uri.varstring} HTTP/1.0\r\nHost: #{host}\r\n\r\n")
+        else
+          proxy		= EVURI.new($proxy)
+          io		= TCPSocket.new(proxy.host, proxy.port.zero? ? 8080 : proxy.port)
+
+          io.write("HEAD #{uri} HTTP/1.0\r\n#{"Proxy-Authorization: Basic "+$proxy_auth+"\r\n" if not $proxy_auth.nil?}\r\n\r\n")
+        end
+
+        io.close_write
+
+        res	= io.read
+
+        io.close_read
+
+        header, data	= nil, nil
+        header, data	= res.split(/\r*\n\r*\n/, 2)	if not res.nil?
+        header		= Header.new(header)
+
+        if recursive and header.header["location"] != uri.to_s
+          uri	= EVURI.new(uri) + header.header["location"]
+        else
+          uri	= nil
+        end
+      end
+    rescue Errno::ECONNRESET, Errno::EHOSTUNREACH => e
+      $stderr.puts e.message
+      sleep 1
+      retry
+    rescue Errno::ECONNREFUSED => e
+      data	= nil
+    rescue NoAddressException => e
+      $stderr.puts e.message
+      header	= Header.new(nil)
+    end
+
+    GC.start
+
+    return header
+  end
+
+  def self.get(uri, httpheader={}, form={})
+    post	= Array.new
+    form.each_pair do |var, value|
+      post << "#{var.to_html}=#{value.to_html}"
+    end
+    post	= post.join("?")
+
+    data	= nil
+
+    begin
+      while not uri.nil?
+        uri	= EVURI.new(uri) if uri.kind_of? String
+        host	= uri.host
+        port	= uri.port
+
+        if $proxy.nil? or $proxy.empty? or host == "localhost"
+          io	= nil
+          @@mutex.synchronize do
+            io			= TCPSocket.new(getaddress(host), port.zero? ? 80 : port)
+          end
+
+          if post.empty?
+            io.write "GET %s%s HTTP/1.0\r\n" % [(uri.path or '/'), (uri.varstring.empty? ? '' : '?' + uri.varstring)]
+          else
+            io.write "POST %s%s HTTP/1.0\r\n" % [(uri.path or '/'), (uri.varstring.empty? ? '' : '?' + uri.varstring)]
+          end
+        else
+          proxy	= EVURI.new($proxy)
+          io	= TCPSocket.new(proxy.host, proxy.port.zero? ? 8080 : proxy.port)
+
+          if post.empty?
+            io.write "GET %s HTTP/1.0\r\n" % uri
+          else
+            io.write "POST %s HTTP/1.0\r\n" % uri
+          end
+        end
+
+        io.write "Host: %s\r\n" % host
+        io.write "User-Agent: xyz\r\n"
+        io.write "Proxy-Authorization: Basic %s\r\n" % $proxy_auth	unless $proxy_auth.nil?
+        #io.write "Accept-Encoding: deflate\r\n"
+        #io.write "Accept-Charset: ISO-8859-1\r\n"
+        io.write "Connection: close\r\n"
+        io.write "Content-Type: application/x-www-form-urlencoded\r\n"	unless post.empty?
+        io.write "Content-Length: %s\r\n" % post.length			unless post.empty?
+        httpheader.each do |k, v|
+          $stderr.puts "%s: %s\r\n" % [k, v]
+          io.write "%s: %s\r\n" % [k, v]
+        end
+        io.write "\r\n"
+        io.write post							unless post.empty?
+
+        io.close_write
+
+        res		= io.read
+
+        io.close_read
+
+        header, data	= nil, nil
+        header, data	= res.split(/\r*\n\r*\n/, 2)	if not res.nil?
+
+        header	= Header.new(header)
+        length	= header.header["content-length"]
+        data	= ""	if length == "0"
+
+        if header.header["location"] != uri.to_s
+          uri	= EVURI.new(uri) + header.header["location"]
+        else
+          uri	= nil
+        end
+
+        if header.header["transfer-encoding"] == "chunked"
+          data	= Chunk.new(data).to_s	if not data.nil?
+        end
+
+        #if header.header["content-encoding"] == "gzip"
+          #data	= "gzip -d".exec(data)	if not data.nil?
+        #end
+
+        data	= nil	unless header.code == 200
+      end
+    rescue Errno::ECONNRESET, Errno::EHOSTUNREACH => e
+      $stderr.puts e.message
+      sleep 1
+      retry
+    rescue Errno::ECONNREFUSED => e
+      data	= nil
+    rescue NoAddressException, Errno::ECONNREFUSED => e
+      $stderr.puts e.message
+      data	= nil
+    end
+
+    GC.start
+
+    return data
+  end
+
+  def self.head_from_cache(uri, form={})
+    from_cache("head", uri, form)
+  end
+
+  def self.get_from_cache(uri, form={})
+    from_cache("get", uri, form)
+  end
+
+  def self.from_cache(action, uri, form)
+    loc		= uri.to_s + form.sort.inspect
+    hash	= MD5.new("#{@@versie} #{loc}")
+
+    dir		= "#{temp}/evcache.#{user}/httpclient.#{action}"
+    file	= "#{dir}/#{hash}"
+    data	= nil
+
+    File.mkpath(dir)
+
+    expire	= 356*24*60*60
+
+    if File.file?(file) and (Time.new.to_f - File.stat(file).mtime.to_f < expire)
+      @@mutex.synchronize do
+        File.open(file, "rb")	{|f| data = f.read}
+      end
+    else
+      data	= method(action).call(uri, form)
+
+      if not data.nil?
+        @@mutex.synchronize do
+          File.open(file, "wb")	{|f| f.write data}
+        end
+      end
+    end
+
+    return data
+  end
+end
+
+class RequestGet < Hash
+  def initialize(data)
+    CGI.parse(data).each do |k, v|
+      self[k]	= v
+    end
+  end
+end
+
+class RequestPost < Hash
+  def initialize(data)
+    CGI.parse(data).each do |k, v|
+      self[k]	= v
+    end
+  end
+end
+
+class RequestRequest
+  attr_reader :method
+  attr_reader :uri
+  attr_reader :path
+  attr_reader :data
+  attr_reader :protocol
+
+  def initialize(firstline)
+    @method, @uri, @protocol	= firstline.split(/ /)
+    @path, @data		= @uri.split(/\?/)
+    @data			= ""			if @data.nil?	# TODO
+
+#    i	= @path.index(/%[[:digit:]]{2}/)
+#    while not i.nil?
+#      @path	= @path[0..(i-1)] + @path[(i+1)..(i+2)].unpack('H2').shift.to_i.chr + @path[(i+3)..-1]
+#      i	= @path.index(/%[[:digit:]]{2}/)
+#    end
+  end
+
+  def to_s
+    "#{@method} #{@uri} #{@protocol}\r\n"
+  end
+
+  def inspect
+    "(RequestRequest: %s)" % [@method, @path, @data, @protocol].join(", ")
+  end
+end
+
+def url_unescape(string)
+string.tr('+', ' ').gsub(/((?:%[0-9a-fA-F]{2})+)/n) do
+[$1.delete('%')].pack('H*')
+end
+end
+
+class Request < Hash
+  attr_reader :peeraddr
+  attr_reader :request
+  attr_reader :cookies
+  attr_reader :vars
+  attr_reader :user
+  attr_writer :user
+
+  def initialize(io)
+    @io		= io
+
+    firstline	= @io.gets
+
+    return	if firstline.nil?
+
+    @request	= RequestRequest.new(firstline.strip)
+
+    line	= @io.gets
+    line	= line.strip	unless line.nil?
+    while not line.nil? and not line.empty?
+      key, value	= line.split(" ", 2)
+      self[key.sub(/:$/, "").downcase]	= value
+
+      line	= @io.gets
+      line	= line.strip	unless line.nil?
+    end
+
+    cookie	= self["cookie"]
+    cookie	= ""	if cookie.nil?
+    @cookies	= {}
+    cookie.split(/;/).each do |s|
+      k, v		= s.strip.split(/=/, 2)
+      @cookies[k]	= v
+    end
+
+    if not @request.method.nil?
+      case @request.method.upcase
+      when "HEAD"
+      when "GET"
+        @vars	= RequestGet.new(@request.data.nil? ? "" : @request.data)
+      when "POST"
+        data	= (@io.read(self["content-length"].to_i) or "")
+      #  data = url_unescape(data)
+        @vars	= RequestPost.new((self["content-type"] == "application/x-www-form-urlencoded") ? data : "")
+      else
+        $stderr.puts "Unknown request ('#{firstline}')."
+end
+
+$rwdtinkerlog.debug  data  
+     
+    end
+
+    @peeraddr	= @io.peeraddr
+
+    @pda	= false
+    @pda	= true	if (self.include?("user-agent") and self["user-agent"].downcase.include?("windows ce"))
+    @pda	= true	if (self.include?("user-agent") and self["user-agent"].downcase.include?("handhttp"))
+
+    @io.close_read
+  end
+
+  def pda?
+    @pda
+  end
+
+  def to_s
+    res = @request.to_s
+    self.each do |k, v|
+      res << "#{k}: #{v}\r\n"
+    end
+    res
+  end
+
+  def inspect
+    "(Request: %s)" % [@peeraddr, @request.inspect, @vars.inspect, @cookies.inspect, super].join(", ")
+  end
+end
+
+class Response < Hash
+  attr_writer :response
+  attr_writer :file
+  attr_reader :cookies
+  attr_reader :stop
+  attr_reader :at_stop
+
+  def initialize(io)
+    @io		= io
+    @response	= "HTTP/1.0 200 OK"
+    @cookies	= {}
+    @data	= ""
+    @syncd	= false
+    @stop	= false
+    @at_stop	= lambda{}
+    @file	= nil
+  end
+
+  def flush
+    sync
+
+    if @file
+      File.open(@file, "rb") do |f|
+        while data = f.read(10_000)
+          @io.write data
+        end
+      end
+    end
+
+    @io.close
+  end
+
+  def to_s
+    res = "#{@response}\r\n"
+    self.each do |k, v|
+      res << "#{k}: #{v}\r\n"
+    end
+
+    @cookies.each do |k, v|
+      res << "Set-Cookie: %s=%s;\r\n" % [k, v]
+    end
+
+    res
+  end
+
+  def sync
+    size	= (@data or "").length
+
+    if @file
+      ext	= @file.scan(/\.[^\.]*$/)
+      ext	= ext.shift
+      ext	= ext[1..-1]	unless ext.nil?
+      mimetype	= EVMime::MimeType[ext]
+
+      self["Content-Type"]	= mimetype		unless mimetype.nil?
+
+      size += File.size(@file)	if File.file?(@file)
+    end
+
+    self["Content-Length"]	= size
+
+    @io.write("#{to_s}\r\n")	unless @syncd
+    @io.write(@data)
+    @data	= ""
+    @syncd	= true
+  end
+
+  def << (s)
+    @data << s
+  end
+
+  def clean
+    @data	= ""
+  end
+
+  def inspect
+    "(Response: %s)" % [@response, @data].join(", ")
+  end
+
+  def stop(&block)
+    @stop	= true
+    @at_stop	= block	unless block.nil?
+  end
+
+  def stop?
+    @stop
+  end
+end
+
+class HTTPServerException < Exception
+end
+
+class HTTPServer
+  def self.serve(portio=80, remote=false, auth=nil, realm="rwd/net")
+    port, server	= portio
+
+    begin
+      server	= TCPServer.new(remote ? "0.0.0.0" : "localhost", port)	if server.nil?
+if $DEBUG
+      $stderr.puts "Just point your browser to http://localhost:#{port}/ ..."
+end  
+  rescue
+      server	= nil
+
+      $stderr.puts "Port #{port} is in use."
+    end
+
+    if not server.nil?
+      count	= 0
+
+      at_exit do
+        #$stderr.puts "Received #{count} requests"
+      end
+
+      serverthread =
+      Thread.new do
+        mutex	= Mutex.new
+
+        Thread.current["threads"]	= []
+
+        every(1, Thread.current) do |thread|
+          mutex.synchronize do
+            thread["threads"].delete_if{|t| (not t.alive?)}
+          end
+        end
+
+        loop do
+          io	= server.accept
+          count += 1
+
+          thread =
+          Thread.new(Thread.current, count) do |parentthread, count2|
+            stop	= false
+
+            begin
+              begin
+                req	= Request.new(io)
+                resp	= Response.new(io)
+              rescue
+                raise HTTPServerException
+              end
+
+              begin
+                ip	= req.peeraddr[3]
+              rescue NameError
+                raise HTTPServerException
+              end
+
+              if (not remote) or (remote and (auth.nil? or auth.empty? or authenticate(auth, realm, req, resp)))
+            #    $stderr.puts "#{count2} #{Time.new.strftime("%Y-%m-%d %H:%M:%S")} #{ip} #{req.user} #{req.request.to_s.strip}"
+             1 == 1
+                begin
+                  yield(req, resp)
+                rescue Exception => e
+                  mutex.synchronize do
+                    $stderr.puts e.class.to_s + ": " + e.message
+                    $stderr.puts e.backtrace.collect{|s| "\t"+s}.join("\n")
+                  end
+                  resp["Content-Type"]	= "text/plain"
+                  resp.response		= "HTTP/1.0 200 ???"
+                  resp.clean
+                  resp << e.class.to_s + ": " + e.message
+                  resp << "\n"
+                  resp << "\n"
+                  resp << e.backtrace.collect{|s| "\t"+s}.join("\n")
+                  resp << "\n"
+                  resp << "\n"
+                  resp << "(You can use the back button and stop the application properly, if appropriate.)"
+                end
+
+                stop	= true	if resp.stop?
+              end
+
+              begin
+                resp.flush			
+              rescue
+                raise HTTPServerException
+              end
+            rescue HTTPServerException
+            end
+
+            parentthread["stop"]	= resp	if stop
+          end
+
+          mutex.synchronize do
+            Thread.current["threads"] << thread
+          end
+        end
+      end
+
+      sleep 0.1	while not serverthread["stop"]
+
+      serverthread["threads"].each {|t| t.join}
+
+      serverthread["stop"].at_stop.call
+
+      serverthread.kill
+    end
+  end
+
+  def self.authenticate(auth, realm, req, resp)
+    if auth.kind_of? String
+      file	= "#{home}/#{auth}"
+      auths	= {}
+      auths	= Hash.file(file)	if File.file?(file)
+    else
+      auths	= auth
+    end
+
+    authuserpassword	= req["authorization"]
+    if not authuserpassword.nil?
+      authtype, userpassword	= authuserpassword.split(/ /)
+      if authtype == "Basic" and not userpassword.nil?
+        u, p	= userpassword.unpack("m").shift.split(/:/)
+      end
+    end
+
+    ok	= (auths.include?(u) and auths[u] == p)
+
+    unless ok
+      resp["WWW-Authenticate"]	= "Basic realm=\"#{realm}\""
+      resp.response		= "HTTP/1.0 401 Unauthorized"
+    end
+
+    req.user	= u
+
+    return ok
+  end
+end