#!/usr/bin/ruby

require "cgi"

cgi = CGI.new("html4Tr")
cgi.out("charset" => "iso-8859-1") do
  cgi.html("PRETTY" => true) do
    cgi.head do
      cgi.title do "Directory Index" end
    end +
    cgi.body do
      cgi.ul do
	list = ""
	Dir.foreach(".") do |f|
	  list += cgi.li do
	    cgi.a("href" => f) do f end
	  end
	end
	list
      end
    end
  end
end