Class: WebserverAbstract

Inherits:
Object
  • Object
show all
Defined in:
lib/femtows.rb

Direct Known Subclasses

Webserver, WebserverRoot

Constant Summary collapse

LICON = 
"☀☃☎☑☑☠☣☮☺☂".split(/;/).map {|c| c+";"}
MIME = 
{"png" => "image/png", "gif" => "image/gif", "html" => "text/html","htm" => "text/html",
  "js" => "text/javascript" ,"css" => "text/css","jpeg" => "image/jpeg" ,"jpg" => "image/jpeg",
  ".json" => "applicatipon/json",
  "pdf"=> "application/pdf"   , "svg" => "image/svg+xml","svgz" => "image/svg+xml",
  "xml" => "text/xml"   ,"xsl" => "text/xml"   ,"bmp" => "image/bmp"  ,"txt" => "text/plain" ,
  "rb"  => "text/plain" ,"pas" => "text/plain" ,"tcl" => "text/plain" ,"java" => "text/plain" ,
  "c" => "text/plain" ,"h" => "text/plain" ,"cpp" => "text/plain", "xul" => "application/vnd.mozilla.xul+xml",
  "doc" => "application/msword", "docx" => "application/msword","dot"=> "application/msword",
  "xls" => "application/vnd.ms-excel","xla" => "application/vnd.ms-excel","xlt" => "application/vnd.ms-excel","xlsx" => "application/vnd.ms-excel",
  "ppt" => "application/vnd.ms-powerpoint",  "pptx" => "application/vnd.ms-powerpoint"
}

Instance Method Summary collapse

Constructor Details

#initialize(port, root, name, cadence, timeout, options) ⇒ WebserverAbstract 



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
 
# File 'lib/femtows.rb', line 40

def initialize(port,root,name,cadence,timeout,options)
  raise("tcp port illegal #{port}") unless port.to_i>=80
  raise("root not exist #{root}") unless File.exists?(root)
  @cb_log= options["logg"] 
  @last_mtime=File.mtime(__FILE__)
  @port=port.to_i
  @root=root
  @name=name
  @rootd=root[-1,1]=="/" ? root : root+"/" 
  @timeout=timeout
  @th={}
  @cb={}
  @redirect={}
  info(" serveur http #{port} on #{@rootd} ready!")
  observe(cadence,timeout*2)
      pool_create
  @thm=Thread.new { 
loop { 
  nbError=0
  begin
    session=nil
    @server = TCPServer.new('0.0.0.0', @port)
    @server.setsockopt(Socket::SOL_SOCKET,Socket::SO_REUSEADDR, true)
    while (session = @server.accept)
      nbError=0
      run(session)
    end
  rescue Exception => e
    nbError+=1
    error($!.to_s + "  " + $!.backtrace[0..2].join(" "))
    session.close rescue nil
    @server.close rescue nil
  end
  sleep(3); info("restart accept")
}
  }
end

Instance Method Details

#do_service(session, request, service, user_passwd, params) ⇒ Object 



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
 
# File 'lib/femtows.rb', line 140

def do_service(session,request,service,user_passwd,params)
  redir=@redirect["/"+service]
  service=redir.gsub(/^\//,"") if @redirect[redir]
  aservice=to_absolute(service)
  if redir &&  ! @redirect[redir] 
 do_service(session,request,redir.gsub(/^\//,""),user_passwd,params)
  elsif @cb["/"+service]
 begin
  code,type,data= @cb["/"+service].call(params)
  if code==0 && data != '/'+service
  do_service(session,request,data[1..-1],user_passwd,params)
  else
 code==200 ?  sendData(session,type,data) : sendError(session,code,data)
  end
 rescue
  logg session.peeraddr.last,"Error in get /#{service} : #{$!}"
  sendError(session,501,$!.to_s)
 end
  elsif service =~ /^stop/ 
 sendData(session,".html","Stopping...");    
 Thread.new() { sleep(0.1); stop_browser()  }
  elsif File.directory?(aservice)
 sendData(session,".html",makeIndex(aservice))
  elsif File.exists?(aservice)
 sendFile(session,aservice)
  else
 info("unknown request serv=#{service} params=#{params.inspect} #{File.exists?(service)}")
 sendError(session,500,"unknown request serv=#{aservice} params=#{params.inspect} #{File.exists?(service)}");
  end
end

#error(txt) ⇒ Object 



28
 
# File 'lib/femtows.rb', line 28

def error(txt) ; logg("nw>e>",txt) ; end

#escape(string) ⇒ Object 



30
 
# File 'lib/femtows.rb', line 30

def escape(string) ; string.gsub(/([^ \/a-zA-Z0-9_.\-]+)/) { '%' + $1.unpack('H2' * $1.size).join('%').upcase }.tr(' ', '+')  end

#hescape(string) ⇒ Object 



31
 
# File 'lib/femtows.rb', line 31

def hescape(string) ;  escape(string.gsub("/./","/").gsub("//","/")) ; end

#httpdate(aTime) ⇒ Object 



229
 
# File 'lib/femtows.rb', line 229

def httpdate( aTime ); (aTime||Time.now).gmtime.strftime( "%a, %d %b %Y %H:%M:%S GMT" ); end

#info(txt) ⇒ Object 



27
 
# File 'lib/femtows.rb', line 27

def info(txt) ; logg("nw>i>",txt) ;  end

#logg(*args) ⇒ Object 



22
23
24
25
26
 
# File 'lib/femtows.rb', line 22

def logg(*args) 
  if @cb_log then @cb_log.call(@name,*args) else puts(args.join(" ")) end
rescue
 puts(args.join(" "))
end

#makeIndex(adir) ⇒ Object 



175
176
177
178
179
180
181
182
183
 
# File 'lib/femtows.rb', line 175

def makeIndex(adir)
  dir=to_relative(adir)
  dirs,files=Dir.glob(adir==@rootd ? "#{@rootd}*" : "#{adir}/*").sort.partition { |f| File.directory?(f)}

  updir = hescape(  dir.split(/\//)[0..-2].join("/")) 
  updir="/" if updir.length==0
  up=(dir!="/") ? "<input type='button' onclick='location.href=\"#{updir}\"' value='Parent'>" : ""
  "<html><head><title>#{dir}</title></head>\n<body><h3><center>#{@name} : #{dir[0..-1]}</center></h3>\n<hr>#{up}<br>#{to_table(dirs.map {|s| " <a href='#{hescape(to_relative(s))}'>"+File.basename(s)+"/"+"</a>\n"})}<hr>#{to_tableb(files) {|f| [" <a href='#{hescape(to_relative(f))}'>"+File.basename(f)+"</a>",n3(File.size(f)),File.mtime(f).strftime("%d/%m/%Y %H:%M:%S")]}}</body></html>"
end

#mime(string) ⇒ Object 



230
231
232
 
# File 'lib/femtows.rb', line 230

def mime(string)
MIME[string.split(/\./).last] || "application/octet-stream"
end

#n3(n) ⇒ Object 



186
187
188
189
190
191
192
193
194
195
196
 
# File 'lib/femtows.rb', line 186

def n3(n)
   u=" B"
   if n> 10000000
   n=n/(1024*1024)
u=" MB"
   elsif n> 100000
   n=n/1024
u=" KB"
end
  "<div style='width:100px;text-align:right;'>#{(n.round.to_i.to_s.reverse.gsub(/(\d\d\d)(?=\d)/,'\1 ' ).reverse) +u} | </div>"
end

#observe(sleeping, delta) ⇒ Object 



32
33
34
35
36
37
38
39
 
# File 'lib/femtows.rb', line 32

def observe(sleeping,delta)
  @tho=Thread.new do loop do
 sleep(sleeping) 
 nowDelta=Time.now-delta
 l=@th.select { |th,tm| (tm[0]<nowDelta) }
 l.each { |th,tm| info("killing thread") ; th.kill; @th.delete(th)  ; tm[1].close rescue nil }
  end ; end
end

#pool_create ⇒ Object 



77
78
79
80
81
82
83
84
 
# File 'lib/femtows.rb', line 77

def pool_create
  @queue=Queue.new
  ici=self
  100.times {  Thread.new { loop { 
    param,bloc=@queue.pop
    bloc.call(param)  rescue p $!
  } } }
end

#pool_get(param, &block) ⇒ Object 



85
86
87
 
# File 'lib/femtows.rb', line 85

def pool_get(param,&block)
   @queue.push([param,block])
end

#read_header(session, params) ⇒ Object 



120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
 
# File 'lib/femtows.rb', line 120

def read_header(session,params)
  head=session.gets("\r\n\r\n")
  head.split(/\r\n/m).each { |line| name,data=line.split(": ",2) ; params["HEAD-"+name.upcase]=data }
  if params["HEAD-CONTENT-LENGTH"]
  len= params["HEAD-CONTENT-LENGTH"].split(/\s+/).last.to_i
  params["HEAD-CONTENT-LENGTH"]=len
  data=""
  while len>0
    d=session.read(len>64*1024 ? 64*1024 : len)
    raise("closed") if !d
    len -= d.length
    data+=d
  end  
    params["HEAD-DATA"]=data
  end
end

#redirect(o, d) ⇒ Object 



137
138
139
 
# File 'lib/femtows.rb', line 137

def redirect(o,d)
 @redirect[o]=d
end

#request(session) ⇒ Object 



98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
 
# File 'lib/femtows.rb', line 98

def request(session)
 request = session.gets
  return unless request
 uri = (request.split(/\s+/)+['','',''])[1] 
 #info uri

 service,param,*bidon=(uri+"?").split(/\?/)
 params=Hash[*(param.split(/#/)[0].split(/[=&]/))] rescue {}
 params.each { |k,v| params[k]=unescape(v) }
 uri=unescape(service)[1..-1].gsub(/\.\./,"")
 userpass=nil
 if (buri=uri.split(/@/)).size>1
uri=buri[1..-1].join("@")
userpass=buri[0].split(/:/)
 end
 read_header(session,params)
 do_service(session,request,uri,userpass,params)
rescue Exception => e
  error("Error Web get on #{request}: \n #{$!.to_s} \n #{$!.backtrace.join("\n     ")}" ) rescue nil
  session.write "HTTP/1.0 501 NOK\r\nContent-type: text/html\r\n\r\n<html><head><title>WS</title></head><body>Error : #{$!}" rescue nil
ensure
  session.close rescue nil
end

#run(session) ⇒ Object 



88
89
90
91
92
93
94
 
# File 'lib/femtows.rb', line 88

def run(session)
pool_get(session) do |sess|
   @th[Thread.current]=[Time.now,sess]
   request(sess) 
   @th.delete(Thread.current) 
end
end

#sendData(sock, type, content) ⇒ Object 



209
210
211
212
 
# File 'lib/femtows.rb', line 209

def sendData(sock,type,content)
  sock.write "HTTP/1.0 200 OK\r\nContent-Type: #{mime(type)}\r\nContent-Length: #{content.size}\r\n\r\n"
  sock.write(content)
end

#sendError(sock, no, txt = nil) ⇒ Object 



203
204
205
206
207
208
 
# File 'lib/femtows.rb', line 203

def sendError(sock,no,txt=nil) 
if txt
  txt="<html><body><code><pre></pre>#{txt}</code></body></html>"
end
  sock.write "HTTP/1.0 #{no} NOK\r\nContent-type: #{mime(".html")}\r\n\r\n <html><p>Error #{no} : #{txt}</p></html>"
end

#sendFile(sock, filename) ⇒ Object 



213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
 
# File 'lib/femtows.rb', line 213

def sendFile(sock,filename)
  s=File.size(filename)
  if s < 0 || s>60_000_000 || File.extname(filename).downcase==".lnk"
logg @name,"Error reading file/File not downloadable  #{File.basename(filename)} : (size=#{s})"
    sendError(sock,500,"Error reading file/File not downloadable  #{filename} : (size=#{s})" )
    return
  end
  logg @name,filename," #{s/(1024*1024)} Mo" if s>10*1000_000
  timeout([s/(512*1024),30.0].max.to_i) {
sock.write "HTTP/1.0 200 OK\r\nContent-Type: #{mime(filename)}\r\nContent-Length: #{File.size(filename)}\r\nLast-Modified: #{httpdate(File.mtime(filename))}\r\nDate: #{httpdate(Time.now)}\r\n\r\n"
File.open(filename,"rb") do |f| 
  f.binmode; sock.binmode; 
  ( sock.write(f.read(32*1024)) while (! f.eof? && ! sock.closed?) ) rescue nil
end
  } 
end

#serve(uri, &blk) ⇒ Object 



95
96
97
 
# File 'lib/femtows.rb', line 95

def serve(uri,&blk)
  @cb[uri] = blk
end

#stop_browser ⇒ Object 



170
171
172
173
174
 
# File 'lib/femtows.rb', line 170

def stop_browser
  info "exit on web demand !"
  [@tho,@thm].each { |th| th.kill }
  @server.close rescue nil
end

#to_absolute(f) ⇒ Object 



185
 
# File 'lib/femtows.rb', line 185

def to_absolute(f)  "#{@rootd}#{f.gsub(/^\//,'')}" end

#to_relative(f) ⇒ Object 



184
 
# File 'lib/femtows.rb', line 184

def to_relative(f)  f.gsub(/^#{@rootd}/,"/") end

#to_table(l) ⇒ Object 



197
198
199
 
# File 'lib/femtows.rb', line 197

def to_table(l)
"<table><tr>#{l.map {|s| "<td>#{s}</td>"}.join("</tr><tr>")}</tr></table>"
end

#to_tableb(l, &bl) ⇒ Object 



200
201
202
 
# File 'lib/femtows.rb', line 200

def to_tableb(l,&bl)
"<table><tr>#{l.map {|s| "<td>#{bl.call(s).join("</td><td>")}</td>"}.join("</tr><tr>")}</tr></table>"
end

#unescape(string) ⇒ Object 



29
 
# File 'lib/femtows.rb', line 29

def unescape(string) ; string.tr('+', ' ').gsub(/((?:%[0-9a-fA-F]{2}))/n) { [$1.delete('%')].pack('H*') }   end