#!/usr/bin/ruby
class HTTP404 < Exception
end
class App
DATADIR="/var/db/wxod"
LIBDIR="/var/lib/wxod"
def initialize
@odata = []
@otype = "text/plain; charset=utf8"
@path = ENV['PATH_INFO']
@fmt = case @path
when /\.csv$/ then :csv
when /\.html$/ then :html
else nil
end
end
attr_reader :path, :fmt
def puts str
str = str.sub(/$/, "\r\n") unless /\r\n$/ === str
@odata.push str
end
def list ary, cfg = {}
case @fmt
when :csv
for row in ary
puts row.to_a.map{|word|
(/,/ === word) ? ('"' + word.gsub(/"/, '""') + '"') : word
}.join(',')
end
else
puts "#{@path}"
puts "#{@path}
"
puts "Versions: "
puts "CSV "
puts "HTML"
puts "
"
puts ""
puts "- any
" if cfg[:show_any]
sub = '/' + (cfg[:linkto] || '')
for row in ary
word = row.to_a.first
ins = ([''] + row.to_a[1..-1]).join(' ')
puts "- #{word}#{ins}
"
end
puts "
"
puts "
"
puts ""
@otype = "text/html; charset=utf8"
end
end
def table ary, cfg = {}
case @fmt
when :csv
for row in ary
puts row.to_a.map{|word|
(/,/ === word) ? ('"' + word.gsub(/"/, '""') + '"') : word
}.join(',')
end
else
puts "#{@path}"
puts "#{@path}
"
puts "Versions: "
puts "CSV "
puts "HTML"
puts "
"
puts ""
#puts "any" if cfg[:show_any]
for row in ary
puts "" + row.to_a.flatten.map{|s| "| #{s} | " }.join + "
"
end
puts "
"
puts "
"
puts ""
@otype = "text/html; charset=utf8"
end
end
def main
case @path
when %r{^/*(?:index(?:\.\w+)?)?$}
list ['amd']
when %r{^/amd(/.*)$}
rel = $1
load File.join(LIBDIR, 'wxod-amd.rb')
Amd.new(self, rel).run
else
raise HTTP404
end
end
def run
main
print "Date: #{Time.now.utc}\r\n"
print "Content-Type: #{@otype}\r\n\r\n"
for line in @odata
print line
end
rescue HTTP404 => e
print "Status: 404 Not Found\r\n"
print "Content-Type: text/plain\r\n\r\n"
print "PATH_INFO=#{@path.inspect}\r\n"
print e.message + "\r\n at " + e.backtrace.join("\r\n\t")
rescue Exception => e
print "Status: 500 Internal Server Error\r\n"
print "Content-Type: text/plain\r\n\r\n"
print e.message + "\r\n#{e.class} at " + e.backtrace.join("\r\n\t")
end
end
App.new.run