Gecko [ www.leshallesdegournay.geraud-market.com ]

Name	Size	Permission	Date
bigdecimal	[ DIR ]	drwxr-xr-x	2023-08-28 23:20
cgi	[ DIR ]	drwxr-xr-x	2023-08-28 23:20
date	[ DIR ]	drwxr-xr-x	2023-08-28 23:20
digest	[ DIR ]	drwxr-xr-x	2023-08-28 23:20
dl	[ DIR ]	drwxr-xr-x	2023-08-28 23:20
drb	[ DIR ]	drwxr-xr-x	2023-08-28 23:20
io	[ DIR ]	drwxr-xr-x	2023-08-28 23:20
irb	[ DIR ]	drwxr-xr-x	2023-08-28 23:20
net	[ DIR ]	drwxr-xr-x	2023-08-28 23:20
openssl	[ DIR ]	drwxr-xr-x	2023-08-28 23:20
optparse	[ DIR ]	drwxr-xr-x	2023-08-28 23:20
racc	[ DIR ]	drwxr-xr-x	2023-08-28 23:20
rdoc	[ DIR ]	drwxr-xr-x	2023-08-28 23:20
rexml	[ DIR ]	drwxr-xr-x	2023-08-28 23:20
rinda	[ DIR ]	drwxr-xr-x	2023-08-28 23:20
rss	[ DIR ]	drwxr-xr-x	2023-08-28 23:20
runit	[ DIR ]	drwxr-xr-x	2023-08-28 23:20
shell	[ DIR ]	drwxr-xr-x	2023-08-28 23:20
soap	[ DIR ]	drwxr-xr-x	2023-08-28 23:20
test	[ DIR ]	drwxr-xr-x	2023-08-28 23:20
uri	[ DIR ]	drwxr-xr-x	2023-08-28 23:20
webrick	[ DIR ]	drwxr-xr-x	2023-08-28 23:20
wsdl	[ DIR ]	drwxr-xr-x	2023-08-28 23:20
x86_64-linux	[ DIR ]	drwxr-xr-x	2023-08-28 23:25
xmlrpc	[ DIR ]	drwxr-xr-x	2023-08-28 23:20
xsd	[ DIR ]	drwxr-xr-x	2023-08-28 23:20
yaml	[ DIR ]	drwxr-xr-x	2023-08-28 23:20
English.rb	5.6 KB	-rw-r--r--	2007-02-13 00:01
Env.rb	274 B	-rw-r--r--	2007-02-13 00:01
abbrev.rb	2.5 KB	-rw-r--r--	2007-02-13 00:01
base64.rb	3.37 KB	-rw-r--r--	2007-07-16 17:47
benchmark.rb	17.73 KB	-rw-r--r--	2008-02-10 16:24
cgi-lib.rb	6.89 KB	-rw-r--r--	2007-02-13 00:01
cgi.rb	73.74 KB	-rw-r--r--	2009-12-14 03:40
complex.rb	12.84 KB	-rw-r--r--	2009-08-03 07:59
csv.rb	24.46 KB	-rw-r--r--	2007-02-13 00:01
date.rb	53.02 KB	-rw-r--r--	2010-06-08 06:45
date2.rb	128 B	-rw-r--r--	2007-02-13 00:01
debug.rb	20.61 KB	-rw-r--r--	2007-02-13 00:01
delegate.rb	8.81 KB	-rw-r--r--	2009-07-16 02:35
digest.rb	1.12 KB	-rw-r--r--	2007-07-28 02:40
drb.rb	19 B	-rw-r--r--	2007-02-13 00:01
e2mmap.rb	4.04 KB	-rw-r--r--	2007-02-13 00:01
erb.rb	21.38 KB	-rw-r--r--	2009-02-23 18:44
eregex.rb	487 B	-rw-r--r--	2007-02-13 00:01
expect.rb	633 B	-rw-r--r--	2008-02-18 02:17
fileutils.rb	42.23 KB	-rw-r--r--	2011-05-21 00:29
finalize.rb	5.38 KB	-rw-r--r--	2007-02-13 00:01
find.rb	1.84 KB	-rw-r--r--	2007-02-13 00:01
forwardable.rb	6.16 KB	-rw-r--r--	2008-06-06 10:05
ftools.rb	6.17 KB	-rw-r--r--	2007-02-13 00:01
generator.rb	8.1 KB	-rw-r--r--	2008-04-10 12:52
getoptlong.rb	14.88 KB	-rw-r--r--	2007-02-13 00:01
getopts.rb	2.25 KB	-rw-r--r--	2007-02-13 00:01
gserver.rb	6.43 KB	-rw-r--r--	2007-02-13 00:01
importenv.rb	590 B	-rw-r--r--	2007-02-13 00:01
ipaddr.rb	21.96 KB	-rw-r--r--	2008-07-12 17:08
irb.rb	7.43 KB	-rw-r--r--	2009-08-09 10:44
jcode.rb	4.3 KB	-rw-r--r--	2007-02-13 00:01
kconv.rb	8.12 KB	-rw-r--r--	2007-02-13 00:01
logger.rb	17.59 KB	-rw-r--r--	2011-05-30 04:08
mailread.rb	1.28 KB	-rw-r--r--	2007-02-13 00:01
mathn.rb	5.42 KB	-rw-r--r--	2007-02-13 00:01
matrix.rb	27.21 KB	-rw-r--r--	2009-01-24 16:02
md5.rb	411 B	-rw-r--r--	2007-03-06 11:09
mkmf.rb	50.65 KB	-rw-r--r--	2010-12-04 07:34
monitor.rb	7.93 KB	-rw-r--r--	2009-11-25 08:45
mutex_m.rb	2.07 KB	-rw-r--r--	2007-02-13 00:01
observer.rb	5.15 KB	-rw-r--r--	2007-02-13 00:01
open-uri.rb	20.49 KB	-rw-r--r--	2007-10-08 13:16
open3.rb	2.1 KB	-rw-r--r--	2009-12-14 05:28
openssl.rb	575 B	-rw-r--r--	2010-11-22 08:21
optparse.rb	47.12 KB	-rw-r--r--	2009-02-20 12:43
ostruct.rb	3.35 KB	-rw-r--r--	2009-05-26 14:06
parsearg.rb	1.55 KB	-rw-r--r--	2007-02-13 00:01
parsedate.rb	1.33 KB	-rw-r--r--	2007-02-13 00:01
pathname.rb	29.39 KB	-rw-r--r--	2010-11-23 09:21
ping.rb	1.48 KB	-rw-r--r--	2007-02-13 00:01
pp.rb	15.97 KB	-rw-r--r--	2007-06-07 12:06
prettyprint.rb	18.33 KB	-rw-r--r--	2007-02-16 20:53
profile.rb	90 B	-rw-r--r--	2007-02-13 00:01
profiler.rb	1.59 KB	-rw-r--r--	2007-02-13 00:01
pstore.rb	11.15 KB	-rw-r--r--	2008-06-06 10:05
rational.rb	12.05 KB	-rw-r--r--	2010-06-08 07:02
readbytes.rb	835 B	-rw-r--r--	2007-02-13 00:01
resolv-replace.rb	1.55 KB	-rw-r--r--	2008-08-08 03:58
resolv.rb	56.83 KB	-rw-r--r--	2010-12-23 04:22
rss.rb	504 B	-rw-r--r--	2007-10-21 14:19
rubyunit.rb	180 B	-rw-r--r--	2007-02-13 00:01
scanf.rb	20.63 KB	-rw-r--r--	2009-01-20 04:23
securerandom.rb	4.27 KB	-rw-r--r--	2011-12-10 13:17
set.rb	27.08 KB	-rw-r--r--	2008-06-09 11:20
sha1.rb	418 B	-rw-r--r--	2007-03-06 11:09
shell.rb	4.66 KB	-rw-r--r--	2007-02-13 00:01
shellwords.rb	3.99 KB	-rw-r--r--	2008-03-21 13:16
singleton.rb	8.08 KB	-rw-r--r--	2008-07-03 13:14
sync.rb	6.09 KB	-rw-r--r--	2009-02-19 17:41
tempfile.rb	4.86 KB	-rw-r--r--	2008-04-21 11:43
thread.rb	104 B	-rw-r--r--	2007-02-13 20:39
thwait.rb	4.32 KB	-rw-r--r--	2010-06-08 09:08
time.rb	31.58 KB	-rw-r--r--	2008-06-06 10:05
timeout.rb	3 KB	-rw-r--r--	2010-06-08 08:24
tmpdir.rb	3.69 KB	-rw-r--r--	2009-01-26 03:12
tracer.rb	2.73 KB	-rw-r--r--	2007-02-13 00:01
tsort.rb	7.99 KB	-rw-r--r--	2007-02-13 00:01
un.rb	4.54 KB	-rw-r--r--	2007-02-13 00:01
uri.rb	710 B	-rw-r--r--	2008-04-15 11:41
weakref.rb	2.68 KB	-rw-r--r--	2007-02-13 00:01
webrick.rb	811 B	-rw-r--r--	2007-02-13 00:01
yaml.rb	12.36 KB	-rw-r--r--	2008-04-19 13:45

Rename

#
# Copyright (C) 2001 John W. Small All Rights Reserved
#
# Author::        John W. Small
# Documentation:: Gavin Sinclair
# Licence::       Freeware.
#
# See the class GServer for documentation.
#

require "socket"
require "thread"

#
# GServer implements a generic server, featuring thread pool management,
# simple logging, and multi-server management.  See HttpServer in 
# <tt>xmlrpc/httpserver.rb</tt> in the Ruby standard library for an example of
# GServer in action.
#
# Any kind of application-level server can be implemented using this class.
# It accepts multiple simultaneous connections from clients, up to an optional
# maximum number.  Several _services_ (i.e. one service per TCP port) can be
# run simultaneously, and stopped at any time through the class method
# <tt>GServer.stop(port)</tt>.  All the threading issues are handled, saving
# you the effort.  All events are optionally logged, but you can provide your
# own event handlers if you wish.
#
# === Example
#
# Using GServer is simple.  Below we implement a simple time server, run it,
# query it, and shut it down.  Try this code in +irb+:
#
#   require 'gserver'
#
#   #
#   # A server that returns the time in seconds since 1970.
#   # 
#   class TimeServer < GServer
#     def initialize(port=10001, *args)
#       super(port, *args)
#     end
#     def serve(io)
#       io.puts(Time.now.to_i)
#     end
#   end
#
#   # Run the server with logging enabled (it's a separate thread).
#   server = TimeServer.new
#   server.audit = true                  # Turn logging on.
#   server.start 
#
#   # *** Now point your browser to http://localhost:10001 to see it working ***
#
#   # See if it's still running. 
#   GServer.in_service?(10001)           # -> true
#   server.stopped?                      # -> false
#
#   # Shut the server down gracefully.
#   server.shutdown
#   
#   # Alternatively, stop it immediately.
#   GServer.stop(10001)
#   # or, of course, "server.stop".
#
# All the business of accepting connections and exception handling is taken
# care of.  All we have to do is implement the method that actually serves the
# client.
#
# === Advanced
#
# As the example above shows, the way to use GServer is to subclass it to
# create a specific server, overriding the +serve+ method.  You can override
# other methods as well if you wish, perhaps to collect statistics, or emit
# more detailed logging.
#
#   connecting
#   disconnecting
#   starting
#   stopping
#
# The above methods are only called if auditing is enabled.
#
# You can also override +log+ and +error+ if, for example, you wish to use a
# more sophisticated logging system.
#
class GServer

DEFAULT_HOST = "127.0.0.1"

def serve(io)
  end

@@services = {}   # Hash of opened ports, i.e. services
  @@servicesMutex = Mutex.new

def GServer.stop(port, host = DEFAULT_HOST)
    @@servicesMutex.synchronize {
      @@services[host][port].stop
    }
  end

def GServer.in_service?(port, host = DEFAULT_HOST)
    @@services.has_key?(host) and
      @@services[host].has_key?(port)
  end

def stop
    @connectionsMutex.synchronize  {
      if @tcpServerThread
        @tcpServerThread.raise "stop"
      end
    }
  end

def stopped?
    @tcpServerThread == nil
  end

def shutdown
    @shutdown = true
  end

def connections
    @connections.size
  end

def join
    @tcpServerThread.join if @tcpServerThread
  end

attr_reader :port, :host, :maxConnections
  attr_accessor :stdlog, :audit, :debug

def connecting(client)
    addr = client.peeraddr
    log("#{self.class.to_s} #{@host}:#{@port} client:#{addr[1]} " +
        "#{addr[2]}<#{addr[3]}> connect")
    true
  end

def disconnecting(clientPort)
    log("#{self.class.to_s} #{@host}:#{@port} " +
      "client:#{clientPort} disconnect")
  end

protected :connecting, :disconnecting

def starting()
    log("#{self.class.to_s} #{@host}:#{@port} start")
  end

def stopping()
    log("#{self.class.to_s} #{@host}:#{@port} stop")
  end

protected :starting, :stopping

def error(detail)
    log(detail.backtrace.join("\n"))
  end

def log(msg)
    if @stdlog
      @stdlog.puts("[#{Time.new.ctime}] %s" % msg)
      @stdlog.flush
    end
  end

protected :error, :log

def initialize(port, host = DEFAULT_HOST, maxConnections = 4,
    stdlog = $stderr, audit = false, debug = false)
    @tcpServerThread = nil
    @port = port
    @host = host
    @maxConnections = maxConnections
    @connections = []
    @connectionsMutex = Mutex.new
    @connectionsCV = ConditionVariable.new
    @stdlog = stdlog
    @audit = audit
    @debug = debug
  end

def start(maxConnections = -1)
    raise "running" if !stopped?
    @shutdown = false
    @maxConnections = maxConnections if maxConnections > 0
    @@servicesMutex.synchronize  {
      if GServer.in_service?(@port,@host)
        raise "Port already in use: #{host}:#{@port}!"
      end
      @tcpServer = TCPServer.new(@host,@port)
      @port = @tcpServer.addr[1]
      @@services[@host] = {} unless @@services.has_key?(@host)
      @@services[@host][@port] = self;
    }
    @tcpServerThread = Thread.new {
      begin
        starting if @audit
        while !@shutdown
          @connectionsMutex.synchronize  {
             while @connections.size >= @maxConnections
               @connectionsCV.wait(@connectionsMutex)
             end
          }
          client = @tcpServer.accept
          @connections << Thread.new(client)  { |myClient|
            begin
              myPort = myClient.peeraddr[1]
              serve(myClient) if !@audit or connecting(myClient)
            rescue => detail
              error(detail) if @debug
            ensure
              begin
                myClient.close
              rescue
              end
              @connectionsMutex.synchronize {
                @connections.delete(Thread.current)
                @connectionsCV.signal
              }
              disconnecting(myPort) if @audit
            end
          }
        end
      rescue => detail
        error(detail) if @debug
      ensure
        begin
          @tcpServer.close
        rescue
        end
        if @shutdown
          @connectionsMutex.synchronize  {
             while @connections.size > 0
               @connectionsCV.wait(@connectionsMutex)
             end
          }
        else
          @connections.each { |c| c.raise "stop" }
        end
        @tcpServerThread = nil
        @@servicesMutex.synchronize  {
          @@services[@host].delete(@port)
        }
        stopping if @audit
      end
    }
    self
  end

end