#!/usr/bin/env ruby
# encoding: utf-8
# Stub.http_server -- de.oddb.org -- 21.11.2006 -- hwyss@ywesee.com

require 'sbsm/request'
require 'sbsm/trans_handler'
require 'webrick'

class Object
  def meta_class; class << self; self; end; end
  def meta_eval &blk; meta_class.instance_eval &blk; end
end

def trace(msg)
  $stderr.puts msg
end
## compatibility-brainfuck for integrating Apache-SBSM-Requests with WEBrick
module YDIM
  module Html
    YDIM_VERSION = "test-version"
    module Stub
      class Notes < Hash
        alias :add :store 
      end
      class Output < String
        alias :write :<<
        alias :print :<<
      end
      class HTTPServer < WEBrick::HTTPServer
        attr_accessor :document_root
        def method_missing(method, *args, &block)
          @logger.warn "ignoring method: #{method}"
        end
      end
      def Stub.http_server(drburi, log_level=0)
        doc = File.expand_path('../../doc', File.dirname(__FILE__))
        logger = WEBrick::Log.new
        logger.level = log_level
        config = {
          :Host => 'localhost',
          :Port => 10080,
          :DocumentRoot => doc,
          :Logger => logger
        }
        if(log_level == 0)
          config.store(:AccessLog, [])
        end
        server = HTTPServer.new(config)
        server.document_root = doc
        application = Proc.new { |req, resp| 
          if(req.uri == '/favicon.ico')
            resp.body = File.open(File.join(doc, req.uri))
          else
            ARGV.push('')
            req.server = server
            # ignore selenium/dojo-added GET-Parameters
            $stderr.puts "drburi is #{drburi} req.uri #{req.uri}"
            req.uri = CGI.unescape(req.uri[/^[^?]*/])
            SBSM::TransHandler.instance.translate_uri(req)
            ## not Threadsafe!
            SBSM::Apache.request = req
            output = Output.new
            sbsm = SBSM::Request.new(drburi)
            sbsm.meta_eval { define_method(:handle_exception) { |e| raise e } }
            sbsm.cgi.params.update(req.query)
            sbsm.cgi.env_table['SERVER_NAME'] = 
              YDIM::Html.config.http_server.gsub('http://', '') + ':10080'
            sbsm.cgi.env_table['REQUEST_METHOD'] = req.request_method
            sbsm.cgi.cookies['_session_id'] = 'test:preset-session-id'
            sbsm.cgi.output = output
            sbsm.process
            if(/^location:/i.match(output))
              resp.status = 303
            end
            resp.rawdata = true
            resp.body = output
          end
        }
        server.mount_proc('/', &application)
        server.mount_proc('/de', &application)
        server.mount_proc('/de/.*', &application)
        res = File.join(doc, 'resources')
        server.mount('/resources', WEBrick::HTTPServlet::FileHandler, res, {})
        server
      end
    end
  end
end
module WEBrick
  class HTTPRequest
    attr_accessor :server, :uri, :notes
    alias :__old_initialize__ :initialize
    def initialize(*args)
      trace("#{__FILE__}:#{__LINE__} #{args}")
      __old_initialize__(*args)
      @notes = YDIM::Html::Stub::Notes.new
    end
    def headers_in
      trace("#{__FILE__}:#{__LINE__}")
      headers = {}
      if(@header)
        @header.each { |key, vals| headers.store(key, vals.join(';')) }
      end
      headers
    end
    def uri
      trace("#{__FILE__}:#{__LINE__} #{unparsed_uri}")
      @uri || unparsed_uri
    end
  end
  class HTTPResponse
    attr_accessor :rawdata
    alias :__old_send_header__ :send_header
    def send_header(socket)
#      trace("#{__FILE__}:#{__LINE__}")
      reason_phrase = 'OK'
      if(@rawdata)
        _write_data(socket, status_line)
      else
        __old_send_header__(socket)
      end
    end
    alias :__old_setup_header__ :setup_header
    def setup_header()
#      trace("#{__FILE__}:#{__LINE__}")
      unless(@rawdata)
        __old_setup_header__
      end
    end
  end
end
module SBSM
  class Request
    def handle_exception(e)
      trace("#{__FILE__}:#{__LINE__}")
      raise e
    end
  end
  module Apache
    DECLINED = nil
    def Apache.request=(request)
      trace("#{__FILE__}:#{__LINE__} #{request}")
      @request = request
    end
    def Apache.request
      trace("#{__FILE__}:#{__LINE__}")
      @request
    end
  end
end
class CGI
  attr_accessor :output
  def stdoutput
    output
  end
  public :env_table
end