RubyGems - rwdaddresses - Versions diffs - 0.8 - Mend

rwdaddresses 0.8

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.

Files changed (166) hide show

data/Readme.txt +57 -0
data/bin/rwdaddresses +19 -0
data/code/ag1core/aa0begin.rb +18 -0
data/code/ag1core/rwdtinkerversion.rb +15 -0
data/code/al5languagefiles/alanguagehashbegin.rb +4 -0
data/code/al5languagefiles/languagehash.rb +4 -0
data/code/al5languagefiles/templangfile.rb +6 -0
data/code/al5languagefiles/zlanguagehashend.rb +6 -0
data/code/gl3addresses/gl3viewnamedata.rb +26 -0
data/code/gl3addresses/gl4listnamerecord.rb +11 -0
data/code/gl3addresses/gl4viewphoto.rb +4 -0
data/code/gl3addresses/gl5createnewnamerecord.rb +17 -0
data/code/lm1installapplets/ll5listzips.rb +14 -0
data/code/lm1installapplets/lm1installapplet.rb +20 -0
data/code/ssdiagnostictab/diagnostictab.rb +20 -0
data/code/xa5rwdtinkercallable/callable.rb +13 -0
data/code/xb1rwdtinkerbackwindow/05listinstalledfiles.rb +11 -0
data/code/xb1rwdtinkerbackwindow/diagnostictab.rb +20 -0
data/code/xb1rwdtinkerbackwindow/ll1openname.rb +18 -0
data/code/xb1rwdtinkerbackwindow/ll5listzips.rb +14 -0
data/code/xb1rwdtinkerbackwindow/lm1installapplet.rb +20 -0
data/code/xb1rwdtinkerbackwindow/mm1removeapplet.rb +28 -0
data/code/xb1rwdtinkerbackwindow/rwdtinkerwin2version.rb +14 -0
data/code/zz0applicationend/zz0end.rb +4 -0
data/configuration/aa0rwdframework.cnf +11 -0
data/configuration/ab1tinkerwin2.cnf +3 -0
data/configuration/gl3addresses.cnf +2 -0
data/ev/browser.rb +109 -0
data/ev/ftools.rb +170 -0
data/ev/net.rb +750 -0
data/ev/ruby.rb +819 -0
data/ev/rwd.rb +1848 -0
data/ev/sgml.rb +236 -0
data/ev/thread.rb +63 -0
data/ev/tree.rb +343 -0
data/ev/xml.rb +4 -0
data/gui/en/aa2core/aa0rwdtop.rwd +3 -0
data/gui/en/gl3addresses/gl3viewnamedata.rwd +16 -0
data/gui/en/gl3addresses/gl4listnamerecordfiles.rwd +17 -0
data/gui/en/gl3addresses/gl5createnewnamerecord.rwd +26 -0
data/gui/en/ll1selectiontabbegin/selectiontabbegin.rwd +15 -0
data/gui/en/ll5rwdtinkerwin2selectiontab/rwdwin2selectiontab.rwd +11 -0
data/gui/en/lz1selectiontabend/endselectiontab.rwd +1 -0
data/gui/en/tt0documentsbegin/tt0documentbegin.rwd +5 -0
data/gui/en/uu5rwddocuments/uu5documents.rwd +13 -0
data/gui/en/uu6rwdtinkerwin2documents/uu5documents.rwd +4 -0
data/gui/en/uu8addresses/uu8doc_rwdschedule.rwd +4 -0
data/gui/en/ww0documentsend/ww0documentend.rwd +6 -0
data/gui/en/wz6finaltabs/xx0rwdfirsttab.rwd +4 -0
data/gui/en/xa1versionwindow/1appname.rwd +17 -0
data/gui/en/xa5rwdtinkercallablewindow/1appname.rwd +15 -0
data/gui/en/xa5rwdtinkercallablewindow/9end.rwd +4 -0
data/gui/en/xb1rwdtinkerbackwindow/1appname.rwd +3 -0
data/gui/en/xb1rwdtinkerbackwindow/2tab1.rwd +9 -0
data/gui/en/xb1rwdtinkerbackwindow/3arwddiagnostics.rwd +31 -0
data/gui/en/xb1rwdtinkerbackwindow/4arwdlistapplets.rwd +42 -0
data/gui/en/xb1rwdtinkerbackwindow/4arwdlistzips.rwd +33 -0
data/gui/en/xb1rwdtinkerbackwindow/9backend.rwd +5 -0
data/gui/en/ya1helpaboutbegin/ya0helpscreenstart.rwd +1 -0
data/gui/en/yg5rwdhelpabout/1appname.rwd +2 -0
data/gui/en/yg5rwdhelpabout/3copyright.rwd +1 -0
data/gui/en/yg5rwdhelpabout/5version.rwd +9 -0
data/gui/en/yg6rwdwin2helpabout/1appname.rwd +2 -0
data/gui/en/yg6rwdwin2helpabout/3copyright.rwd +1 -0
data/gui/en/yg6rwdwin2helpabout/5version.rwd +9 -0
data/gui/en/yl3addresseshelp/yl3helpscreen.rwd +4 -0
data/gui/en/yy7addressesphotowindow/yy7addressesphoto.rwd +3 -0
data/gui/en/za1applicationend/yy9rwdend.rwd +2 -0
data/gui/es/aa2core/aa0rwdtop.rwd +3 -0
data/gui/es/gl3addresses/gl3viewnamedata.rwd +16 -0
data/gui/es/gl3addresses/gl4listnamerecordfiles.rwd +17 -0
data/gui/es/gl3addresses/gl5createnewnamerecord.rwd +26 -0
data/gui/es/ll1selectiontabbegin/selectiontabbegin.rwd +15 -0
data/gui/es/ll5rwdtinkerwin2selectiontab/rwdwin2selectiontab.rwd +11 -0
data/gui/es/lz1selectiontabend/endselectiontab.rwd +1 -0
data/gui/es/tt0documentsbegin/tt0documentbegin.rwd +5 -0
data/gui/es/uu5rwddocuments/uu5documents.rwd +13 -0
data/gui/es/uu6rwdtinkerwin2documents/uu5documents.rwd +4 -0
data/gui/es/uu8addresses/uu8doc_rwdschedule.rwd +4 -0
data/gui/es/ww0documentsend/ww0documentend.rwd +6 -0
data/gui/es/wz6finaltabs/xx0rwdfirsttab.rwd +4 -0
data/gui/es/xa1versionwindow/1appname.rwd +17 -0
data/gui/es/xa5rwdtinkercallablewindow/1appname.rwd +15 -0
data/gui/es/xa5rwdtinkercallablewindow/9end.rwd +4 -0
data/gui/es/xb1rwdtinkerbackwindow/1appname.rwd +3 -0
data/gui/es/xb1rwdtinkerbackwindow/2tab1.rwd +9 -0
data/gui/es/xb1rwdtinkerbackwindow/3arwddiagnostics.rwd +31 -0
data/gui/es/xb1rwdtinkerbackwindow/4arwdlistapplets.rwd +42 -0
data/gui/es/xb1rwdtinkerbackwindow/4arwdlistzips.rwd +33 -0
data/gui/es/xb1rwdtinkerbackwindow/9backend.rwd +5 -0
data/gui/es/ya1helpaboutbegin/ya0helpscreenstart.rwd +1 -0
data/gui/es/yg5rwdhelpabout/1appname.rwd +2 -0
data/gui/es/yg5rwdhelpabout/3copyright.rwd +1 -0
data/gui/es/yg5rwdhelpabout/5version.rwd +9 -0
data/gui/es/yg6rwdwin2helpabout/1appname.rwd +2 -0
data/gui/es/yg6rwdwin2helpabout/3copyright.rwd +1 -0
data/gui/es/yg6rwdwin2helpabout/5version.rwd +9 -0
data/gui/es/yl3addresseshelp/yl3helpscreen.rwd +4 -0
data/gui/es/yy7addressesphotowindow/yy7addressesphoto.rwd +3 -0
data/gui/es/za1applicationend/yy9rwdend.rwd +2 -0
data/gui/nl/aa2core/aa0rwdtop.rwd +3 -0
data/gui/nl/gl3addresses/gl3viewnamedata.rwd +16 -0
data/gui/nl/gl3addresses/gl4listnamerecordfiles.rwd +17 -0
data/gui/nl/gl3addresses/gl5createnewnamerecord.rwd +26 -0
data/gui/nl/ll1selectiontabbegin/selectiontabbegin.rwd +15 -0
data/gui/nl/ll5rwdtinkerwin2selectiontab/rwdwin2selectiontab.rwd +11 -0
data/gui/nl/lz1selectiontabend/endselectiontab.rwd +1 -0
data/gui/nl/tt0documentsbegin/tt0documentbegin.rwd +5 -0
data/gui/nl/uu5rwddocuments/uu5documents.rwd +13 -0
data/gui/nl/uu6rwdtinkerwin2documents/uu5documents.rwd +4 -0
data/gui/nl/uu8addresses/uu8doc_rwdschedule.rwd +4 -0
data/gui/nl/ww0documentsend/ww0documentend.rwd +6 -0
data/gui/nl/wz6finaltabs/xx0rwdfirsttab.rwd +4 -0
data/gui/nl/xa1versionwindow/1appname.rwd +17 -0
data/gui/nl/xa5rwdtinkercallablewindow/1appname.rwd +15 -0
data/gui/nl/xa5rwdtinkercallablewindow/9end.rwd +4 -0
data/gui/nl/xb1rwdtinkerbackwindow/1appname.rwd +3 -0
data/gui/nl/xb1rwdtinkerbackwindow/2tab1.rwd +9 -0
data/gui/nl/xb1rwdtinkerbackwindow/3arwddiagnostics.rwd +31 -0
data/gui/nl/xb1rwdtinkerbackwindow/4arwdlistapplets.rwd +42 -0
data/gui/nl/xb1rwdtinkerbackwindow/4arwdlistzips.rwd +33 -0
data/gui/nl/xb1rwdtinkerbackwindow/9backend.rwd +5 -0
data/gui/nl/ya1helpaboutbegin/ya0helpscreenstart.rwd +1 -0
data/gui/nl/yg5rwdhelpabout/1appname.rwd +2 -0
data/gui/nl/yg5rwdhelpabout/3copyright.rwd +1 -0
data/gui/nl/yg5rwdhelpabout/5version.rwd +9 -0
data/gui/nl/yg6rwdwin2helpabout/1appname.rwd +2 -0
data/gui/nl/yg6rwdwin2helpabout/3copyright.rwd +1 -0
data/gui/nl/yg6rwdwin2helpabout/5version.rwd +9 -0
data/gui/nl/yl3addresseshelp/yl3helpscreen.rwd +4 -0
data/gui/nl/yy7addressesphotowindow/yy7addressesphoto.rwd +3 -0
data/gui/nl/za1applicationend/yy9rwdend.rwd +2 -0
data/init.rb +164 -0
data/installed/addressessample1.inf +5 -0
data/installed/rwdaddresses-0.8.inf +11 -0
data/installed/rwdtinkerwin2-0.5.inf +16 -0
data/lang/en/rwdcore/languagefile.rb +6 -0
data/lang/es/rwdcore/languagefile.rb +4 -0
data/lang/nl/rwdcore/languagefile.rb +4 -0
data/lib/temp.rb +1 -0
data/names/AngelinaJolie.nam +8 -0
data/names/AngelinaJolie.png +0 -0
data/names/StevenGibson.nam +5 -0
data/names/StevenGibson.png +0 -0
data/names/nophoto.png +0 -0
data/rwd_files/HowTo_Addresses.html +163 -0
data/rwd_files/HowTo_Addresses.txt +145 -0
data/rwd_files/HowTo_Tinker.html +370 -0
data/rwd_files/HowTo_Tinker.txt +244 -0
data/rwd_files/HowTo_TinkerWin2.txt +202 -0
data/rwd_files/Readme.txt +57 -0
data/rwd_files/contacttmp.png +0 -0
data/rwd_files/favicon.ico +0 -0
data/rwd_files/rdoc-style.css +175 -0
data/rwd_files/rwdapplications.html +54 -0
data/rwd_files/rwdindex.html +6 -0
data/tests/rubyslippers-0.92.gemspec +17 -0
data/tests/rwdtinker-1.2.gemspec +17 -0
data/tests/rwdtinkertestEN.rb +87 -0
data/tests/temptest.out +18 -0
data/tests/totranslate.lang +93 -0
data/zips/rwdaviewphoto-0.3.zip +0 -0
data/zips/rwdhelloworld-0.2.zip +0 -0
data/zips/rwdrefreshacpi-0.1.zip +0 -0
data/zips/rwdwtinkerwin2-0.5.zip +0 -0
metadata +206 -0

data/configuration/ab1tinkerwin2.cnf ADDED Viewed

@@ -0,0 +1,3 @@
+RwdTinkerWin2Version = "0.5"
+ZipsLocation = "zips" # not yet functional

data/configuration/gl3addresses.cnf ADDED Viewed

	@@ -0,0 +1,2 @@
1	+
2	+ $addressfiles_directory="names"

data/ev/browser.rb ADDED Viewed

@@ -0,0 +1,109 @@
+require "ev/ruby"
+require "ev/net"
+begin
+  require "win32ole"
+  require "win32/registry"
+rescue LoadError
+  $".push "win32ole.so"
+  $".push "win32/registry.rb"
+end
+def windowsbrowser
+  $stderr.puts "Looking for default browser..."
+  filetype	= "htmlfile"
+  application	= nil
+  begin
+    Win32::Registry::HKEY_CLASSES_ROOT.open('.html') do |reg|
+      filetype		= reg[""]
+    end
+    Win32::Registry::HKEY_CLASSES_ROOT.open(filetype + '\shell\open\command') do |reg|
+      application	= reg[""]
+    end
+  rescue NameError
+    $stderr.puts "Only available for Windows."
+  end
+  application
+end
+def linuxbrowser
+  application	= ""
+  application	= `which galeon		2> /dev/null`.chomp	if application.empty?
+  application	= `which mozilla	2> /dev/null`.chomp	if application.empty?
+  application	= `which firefox	2> /dev/null`.chomp	if application.empty?
+  application	= `which opera		2> /dev/null`.chomp	if application.empty?
+  application	= `which konqueror	2> /dev/null`.chomp	if application.empty?
+  application	= `which htmlview	2> /dev/null`.chomp	if application.empty?
+  application	= nil						if application.empty?
+  application
+end
+def defaultbrowser
+  res	= nil
+  res	= windowsbrowser	if windows?
+  res	= linuxbrowser		if linux?
+  res
+end
+def showinbrowser(html, browser=defaultbrowser)
+  port, io	= TCPServer.freeport(7701, 7709)
+  unless browser.nil?
+    Thread.new do
+      begin
+	#command	= "1234 \"http://localhost:#{port}\""										if linux?
+	#command	= "L:/prog/MozillaFirefox/firefox.exe \"http://localhost:#{port}\""						if cygwin?
+	#command	= Win32::Registry::HKEY_CLASSES_ROOT.open('htmlfile\shell\open\command')[0] + " \"http://localhost:#{port}/\""	if windows?
+	command	= "#{browser} \"http://localhost:#{port}\""
+	Thread.pass
+	system(command)
+      rescue
+      end
+    end
+  end
+  HTTPServer.serve([port, io]) do |req, resp|
+    resp << html
+    resp.stop
+  end
+end
+def tab2html(tab)
+  res	= ""
+  tab	= tab.to_html(false)
+  res << "<html>\n"
+  res << "<body>\n"
+  res << "<table align='center' border='1' cellspacing='0' cellpadding='3'>\n"
+  res << "<tbody>\n"
+  tab.split(/\r*\n/).each do |line|
+    res << "<tr>\n"
+    line.split(/\t/, -1).each do |veld|
+      veld	= "&nbsp;"	if veld.compress.empty?
+      res << "<td>%s</td>\n" % veld
+    end
+    res << "</tr>\n"
+  end
+  res << "</tbody>\n"
+  res << "</table>\n"
+  res << "</body>\n"
+  res << "</html>\n"
+  res
+end

data/ev/ftools.rb ADDED Viewed

@@ -0,0 +1,170 @@
+require "ftools"
+class Dir
+  def self.mkdirrec(dir)
+    pdir	= File.dirname(dir)
+    if not pdir.empty? and not File.directory?(pdir)
+      Dir.mkdirrec(pdir)
+    end
+    Dir.mkdir(dir)	rescue nil
+  end
+  def self.copy(from, to)
+    if File.directory?(from)
+      pdir	= Dir.pwd
+      todir	= File.expand_path(to)
+      mkdirrec(todir)
+      Dir.chdir(from)
+        Dir.new(".").each do |e|
+          Dir.copy(e, todir+"/"+e)	if not [".", ".."].include?(e)
+        end
+      Dir.chdir(pdir)
+    else
+      todir	= File.dirname(File.expand_path(to))
+      mkdirrec(todir)
+      File.copy(from, to)
+    end
+  end
+  def self.move(from, to)
+    Dir.copy(from, to)
+    Dir.rm_rf(from)
+  end
+  def self.rm_rf(entry)
+    if File.ftype(entry) == "directory"
+      pdir	= Dir.pwd
+      Dir.chdir(entry)
+        Dir.new(".").each do |e|
+          Dir.rm_rf(e)	if not [".", ".."].include?(e)
+        end
+      Dir.chdir(pdir)
+      Dir.delete(entry)
+    else
+      File.delete(entry)
+    end
+  end
+  def self.find(entry=nil, mask=nil)
+    entry	= "."	if entry.nil?
+    entry	= entry.gsub!(/[\/\\]*$/, "")	unless entry.nil?
+    mask	= /^#{mask}$/i	if mask.kind_of?(String)
+    res	= []
+    if File.directory?(entry)
+      pdir	= Dir.pwd
+      res += ["%s/" % entry]	if mask.nil? or entry =~ mask
+      begin
+        Dir.chdir(entry)
+        begin
+          Dir.new(".").each do |e|
+            res += Dir.find(e, mask).collect{|e| entry+"/"+e}	unless [".", ".."].include?(e)
+          end
+        ensure
+          Dir.chdir(pdir)
+        end
+      rescue Errno::EACCES => error
+        puts error
+      end
+    else
+      res += [entry]	if mask.nil? or entry =~ mask
+    end
+    res
+  end
+end
+class File
+  def self.rollbackup(file, mode=nil)
+    backupfile	= file + ".RB.BACKUP"
+    controlfile	= file + ".RB.CONTROL"
+    res		= nil
+    File.touch(file)    unless File.file?(file)
+	# Rollback
+    if File.file?(backupfile) and File.file?(controlfile)
+      $stdout.puts "Restoring #{file}..."
+      File.copy(backupfile, file)				# Rollback from phase 3
+    end
+	# Reset
+    File.delete(backupfile)	if File.file?(backupfile)	# Reset from phase 2 or 3
+    File.delete(controlfile)	if File.file?(controlfile)	# Reset from phase 3 or 4
+	# Backup
+    File.copy(file, backupfile)					# Enter phase 2
+    File.touch(controlfile)					# Enter phase 3
+	# The real thing
+    if block_given?
+      if mode.nil?
+        res	= yield
+      else
+        File.open(file, mode) do |f|
+          res	= yield(f)
+        end
+      end
+    end
+	# Cleanup
+    File.delete(backupfile)					# Enter phase 4
+    File.delete(controlfile)					# Enter phase 5
+	# Return, like File.open
+    res	= File.open(file, (mode or "r"))	unless block_given?
+    res
+  end
+  def self.touch(file)
+    File.open(file, "a"){|f|}
+  end
+  def self.which(file)
+    res	= nil
+    if windows?
+      file	= file.gsub(/\.exe$/i, "") + ".exe"
+      sep		= ";"
+    else
+      sep		= ":"
+    end
+    catch :stop do
+      ENV["PATH"].split(/#{sep}/).reverse.each do |d|
+        if File.directory?(d)
+          Dir.new(d).each do |e|
+             if e.downcase == file.downcase
+               res	= File.expand_path(e, d)
+               throw :stop
+            end
+          end
+        end
+      end
+    end
+    res
+  end
+end

data/ev/net.rb ADDED Viewed

@@ -0,0 +1,750 @@
+require "ev/ruby"
+require "ev/ftools"
+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=~ /^\#/
+    #$proxy_auth	= [$proxy_auth].pack("m").chomp	if k == "proxy_auth"
+  end
+end
+def uri2txt(s)
+  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
+    @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.to_s
+    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 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
+  def self.head(uri, form={}, recursive=true)
+    header	= Header.new(nil)
+    begin
+      while not uri.nil?
+        if $proxy.nil? or $proxy.empty?
+          uri		= EVURI.new(uri) if uri.kind_of? String
+          host		= uri.host
+          port		= uri.port
+          io		= nil
+          @@mutex.synchronize do
+            @@hosts[host]	= IPSocket.getaddress(host)	if not @@hosts.include?(host)
+            io			= TCPSocket.new(@@hosts[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)
+          host		= proxy.host
+          port		= proxy.port
+          io		= TCPSocket.new(host, port.zero? ? 8080 : 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
+        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
+      header	= Header.new(nil)
+    end
+    return header
+  end
+  def self.get(uri, 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?
+        if $proxy.nil? or $proxy.empty?
+          uri	= EVURI.new(uri) if uri.kind_of? String
+          host	= uri.host
+          port	= uri.port
+          io	= nil
+          @@mutex.synchronize do
+            @@hosts[host]	= IPSocket.getaddress(host)	if not @@hosts.include?(host)
+            io			= TCPSocket.new(@@hosts[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)
+          host	= proxy.host
+          port	= proxy.port
+          io	= TCPSocket.new(host, port.zero? ? 8080 : 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: evwget\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 "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?
+        io.write "\r\n"
+        io.write post							unless post.empty?
+        io.close_write
+        res		= io.read
+        header, data	= nil, nil
+        header, data	= res.split(/\r*\n\r*\n/, 2)	if not res.nil?
+        header	= Header.new(header)
+        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
+        data	= nil	unless header.code == 200
+      end
+    rescue
+      data	= nil
+    end
+    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
+    Dir.mkdirrec(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.join(" ")
+    end
+  end
+end
+class RequestPost < Hash
+  def initialize(data)
+    CGI.parse(data).each do |k, v|
+      self[k]	= v.join(" ")
+    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
+class Request < Hash
+  attr_reader :peeraddr
+  attr_reader :request
+  attr_reader :cookies
+  attr_reader :vars
+  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 "")
+        @vars	= RequestPost.new((self["content-type"] == "application/x-www-form-urlencoded") ? data : "")
+      else
+        $stderr.puts "Unknown request ('#{firstline}')."
+      end
+    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_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{}
+  end
+  def flush
+    sync
+    @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
+    @io.write("#{to_s}\r\n")	unless @syncd
+    @io.write(@data)
+    @data	= ""
+    @syncd	= true
+  end
+  def << (s)
+    @data << s
+  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="ev/net")
+    port, server	= portio
+    begin
+      server	= TCPServer.new(remote ? "0.0.0.0" : "localhost", port)	if server.nil?
+      $stderr.puts "Just point your browser to http://localhost:#{port}/ ..."
+    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.request.to_s.strip}"
+                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
+                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)
+    if ok
+    else
+      resp["WWW-Authenticate"]	= "Basic realm=\"#{realm}\""
+      resp.response		= "HTTP/1.0 401 Unauthorized"
+    end
+    return ok
+  end
+end