aboutsummaryrefslogtreecommitdiff
path: root/lib/mauve/http_server.rb
blob: b4ced322147ea777a29757d833d4e548a070d820 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
# encoding: UTF-8
#
# Bleuurrgggggh!  Bleurrrrrgghh!
#
require 'digest/sha1'
require 'log4r'
require 'thin'
require 'rack'
require 'rack-flash'
require 'rack/handler/webrick'
require 'mauve/auth_bytemark'
require 'mauve/web_interface'
require 'mauve/mauve_thread'

################################################################################
#
# Bodge up thin logging.
# 
module Thin
  module Logging
    
    def log(m=nil)
      # return if Logging.silent?
      logger = Log4r::Logger.new "Mauve::HTTPServer"
      logger.info(m || yield)
    end
    
    def debug(m=nil)
      # return unless Logging.debug?
      logger = Log4r::Logger.new "Mauve::HTTPServer"
      logger.debug(m || yield)
    end
    
    def trace(m=nil)
      return unless Logging.trace?
      logger = Log4r::Logger.new "Mauve::HTTPServer"
      logger.debug(m || yield)
    end
    
    def log_error(e=$!)
      logger = Log4r::Logger.new "Mauve::HTTPServer"
      logger.error(e)
      logger.debug(e.backtrace.join("\n")) 
    end

  end
end

################################################################################
# 
# More logging hacks for Rack
#
# @see http://stackoverflow.com/questions/2239240/use-rackcommonlogger-in-sinatra
#
class RackErrorsProxy

  def initialize(l); @logger = l; end

  def write(msg)
    #@logger.debug "NEXT LOG LINE COURTESY OF: "+caller.join("\n")
    case msg
      when String then @logger.info(msg.chomp)
      when Array then @logger.info(msg.join("\n"))
      else
        @logger.error(msg.inspect)
    end
  end
  
  alias_method :<<, :write
  alias_method :puts, :write
  def flush; end
end



################################################################################
module Mauve

  # 
  # API to control the web server
  #
  class HTTPServer < MauveThread

    include Singleton

    attr_accessor :port, :ip, :document_root
    attr_accessor :session_secret # not used yet
    
    def initialize
      @port = 32761
      @ip = "127.0.0.1"
      @document_root = "."
      @session_secret = rand(2**100).to_s
    end
   
    def main_loop
      @server = ::Thin::Server.new(@ip, @port, Rack::CommonLogger.new(Rack::Chunked.new(Rack::ContentLength.new(WebInterface.new)), RackErrorsProxy.new(@logger)), :signals => false)
      @server.start
    end
    
    def stop
      @server.stop
      super
    end
  end    
end