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
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
|
# File 'lib/minimal-http-ruby.rb', line 16
def minimal_http_server options={}
prev_t={}
cache={}
ports=['127.0.0.1']
if Socket.method_defined? :getifaddrs
ports=Socket.getifaddrs.map { |i| i.addr.ip_address if i.addr.ipv4? }.compact
puts "Starting HTTP services at port #{options[:http_port]}, server IPs: #{ports}"
else
puts "Starting HTTP services at port #{options[:http_port]}."
end
if options[:http_path]
$http_dir=options[:http_path]
elsif File.directory? './http'
$http_dir="http/"
else
$http_dir = File.join( Gem.loaded_specs['minimal-http-ruby'].full_gem_path, 'http/')
end
puts "Serving pages from home directory: '#{$http_dir}'"
statuses={ "200" => "OK", "404" => "Not Found", "500" => "Internal Server Error"}
Thread.new(options[:http_port],options[:app_name]) do |http_port,http_app|
server = TCPServer.new("0.0.0.0",http_port)
@http_sessions={}
http_session_counter=1
loop do
Thread.start(server.accept) do |client|
begin
@start=Time.now
client_port= client.peeraddr[1]
client_ip= client.peeraddr[2]
raw=client.gets
if not raw
puts "#{client_ip}:#{client_port} #{Time.now.iso8601} ?? nil request?"
client.close
next
end
raw=raw.chop
method,req,http_proto = raw.split " "
status="200"
type="text/html"
req="/#{http_app||'index'}.html" if req=="/" or req=="/index.htm" or req=="/index.html"
req,argss=req.split "\?"
args={}
if argss
argss.split("&").each do |a|
if a
k,v=URI.decode(a).force_encoding("UTF-8").split "="
args[k]=v
end
end
end
if req[/\.html$/] and File.file?(fn="#{$http_dir}haml#{req.gsub('.html','.haml')}")
contents = File.read(fn) response=Haml::Engine.new(contents).render
elsif req[/\.js$/] and File.file?(fn="#{$http_dir}coffee#{req.gsub('.js','.coffee')}")
type="application/javascript"
t=File.mtime(fn)
if not prev_t[fn] or prev_t[fn]<t
contents = File.read(fn)
begin
response=CoffeeScript.compile contents
prev_t[fn]=t
cache[fn]=response
rescue => e
type="text/html"
status="500"
response="Coffee Compile error: #{e}"
end
else
response=cache[fn]
end
elsif req[/^\/(.+)\.json$/] and File.file?(fn="#{$http_dir}json#{req.gsub('.json','.rb')}")
req[/\/(.+).json$/]
act=$1
t=File.mtime(fn)
if not prev_t[fn] or prev_t[fn]<t
begin
load_ok=load fn
prev_t[fn]=t
rescue Exception => e
puts "**** RELOAD #{fn} failed: #{e}"
pp e.backtrace
response=[{act: :error, msg:"Error loading JSON",alert: "Load error #{e} in #{fn}"}].to_json
type="application/json"
status="404"
end
end
if type!="text/event-stream" and status=="200"
begin
type,response=eval "json_#{act} [method,req,http_proto],args,0,0" rescue => e
puts "**** AJAX EXEC #{fn} failed: #{e}"
pp e.backtrace
response=[{act: :error, msg:"Error executing JSON",alert: "Syntax error '#{e}' in '#{fn}'"}].to_json
type="application/json"
end
response=response.to_json
end
elsif File.file?(fnc="#{$http_dir}#{req}")
type="text/css" if req[/\.css$/]
t=File.mtime(fnc)
if not prev_t[fnc] or prev_t[fnc]<t
contents = File.read(fnc)
response=contents
prev_t[fnc]=t
cache[fnc]=response
else
response=cache[fnc]
end
else
status="404"
response="Not Found: #{req}"
end
client.print "HTTP/1.1 #{status} #{statuses[status]||'???'}\r\nContent-Type: #{type}\r\n"
if type!="text/event-stream"
client.print "Content-Length: #{response.bytesize}\r\n"
client.print "Connection: close\r\n"
client.print "\r\n"
client.print response
else
client.print "Expires: -1\r\n"
client.print "\r\n"
begin
my_session=client.peeraddr[1]
if not @http_sessions[my_session]
@http_sessions[my_session]={client_port:client.peeraddr[1],client_ip:client.peeraddr[2] , log_position:0 }
end
my_event=0
loop do
begin
type,response=eval "json_#{act} raw,args,my_session,my_event"
my_event+=1
rescue => e
puts "**** AJAX EXEC #{fn} failed: #{e}"
puts "#{e.backtrace[0..2]}"
pp e.backtrace
response=[{act: :error, msg:"Error executing JSON",alert: "Syntax error '#{e}' in '#{fn}'"}].to_json
end
if not response or response==[] or response=={}
else
client.print "retry: 1000\n"
client.print "data: #{response.to_json}\n\n"
end
sleep 1
break if my_event>100
end
rescue => e
puts "stream #{client} died #{e}"
pp e.backtrace
end
end
dur=sprintf "%.2f",(Time.now.to_f-@start.to_f)
puts "#{client_ip}:#{client_port} #{Time.now.iso8601} \"#{method} #{req}\" #{status} #{response.bytesize} \"#{type}\" #{dur}"
client.close
rescue Exception =>e
response="Error '#{e}'"
status="500"
type="text/html"
dur=sprintf "%.2f",(Time.now.to_f-@start.to_f)
puts "#{client_ip}:#{client_port} #{Time.now.iso8601} \"#{method} #{req}\" #{status} #{response.bytesize} \"#{type}\" #{dur}"
client.print "HTTP/1.1 #{status} #{statuses[status]||'???'}\r\nContent-Type: #{type}\r\n\r\n"
client.print response
client.close
pp e.backtrace
end
end
end
end
end
|