vcs 0.1 → 0.2.148

data/ruby_ex/sendmail.rb

@@ -0,0 +1,215 @@
+#!/usr/bin/env ruby
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2004, 2005 Nicolas Pouillard. All rights reserved.
+# License::   GNU General Public License (GPL).
+# Revision::  $Id: header 98 2004-09-29 12:07:43Z ertai $
+
+require 'pathname'
+require 'ostruct'
+require 'optparse'
+
+
+class Sendmail
+
+  MAIL_FILE = Pathname.new(',mail')
+
+  def initialize
+    require 'string_ex'
+    require 'mktemp'
+    require 'yaml/chop_header'
+  end
+
+  def parse_mail_options ( *args )
+    email = (defined? EMAIL)? EMAIL : ENV['EMAIL']
+    full_name = (defined? FULLNAME)? FULLNAME : ENV['FULLNAME']
+    full_email = (defined? FULL_EMAIL)? FULL_EMAIL : "#{full_name}  <#{email}>"
+    options = OpenStruct.new(
+      :from_name => full_email,
+      :from => email,
+      :to => [],
+      :server => ENV['SMTPSERVER'] || 'localhost:25',
+      :body => STDIN
+    )
+    string_args, hash_args = args.partition { |x| x.is_a?(String) }
+    hash_args.each do |hash|
+      raise ArgumentError, "Bad argument #{hash}" unless hash.is_a?(Hash)
+      hash.each do |k,v|
+	options.send("#{k}=", v)
+      end
+    end
+    OptionParser.new do |opts|
+      opts.separator ''
+      opts.on('-b', '--body FILE', 'Choose a file for the mail body') do |aFile|
+	options.body = File.open(aFile)
+      end
+      opts.on('-t', '--mail-to NAME', 'Choose a recipient') do |aString|
+	options.to << aString
+      end
+      opts.on('-s', '--server NAME:PORT', 'Choose a mail server') do |aString|
+	options.server, options.port = aString.split(/:/)
+        options.port ||= 25
+      end
+      opts.on('-S', '--subject NAME', 'Choose your mail subject') do |aString|
+	options.subject = aString.sub(/\.?$/, '.')
+      end
+      opts.on('--[no-]sign', 'Sign the message with gpg') do |signed|
+	options.signed = signed
+      end
+      opts.on('--passphrase FILE', 'the passphrase file') do |aFile|
+	options.pass = Pathname.new(aFile)
+      end
+      opts.on('-a', '--[no-]ask', 'Ask a confirmation before sending') do |ask|
+        options.ask = ask
+      end
+      opts.on('--comment STRING', 'Choose a comment for GPG') do |aComment|
+        options.comment = aComment
+      end
+      opts.on('-m', '--[no-]mime', 'Choose the mime protocole') do |mime|
+        options.mime = mime
+      end
+      opts.on_tail('-h', '--help', 'Show this message') do
+	puts opts
+	exit
+      end
+    end.parse!(string_args)
+    check_mail_options(options)
+    options
+  end
+
+
+  def check_mail_options ( options )
+    raise ArgumentError, 'No recipents' if options.to.empty?
+    raise ArgumentError, 'No mail server' if options.server.nil?
+    raise ArgumentError, 'No mail subject' if options.subject.nil?
+  end
+
+  #
+  # Mail.
+  #
+  def sendmail ( *args )
+
+    body, opts = nil, nil
+    if MAIL_FILE.exist?
+      STDERR.puts "Using the cache file #{MAIL_FILE}"
+      MAIL_FILE.open do |mail_file|
+        opts = YAML::chop_header(mail_file)
+        body = mail_file.read
+      end
+    else
+      opts = parse_mail_options(*args)
+      body = (opts.body.nil?)? '' : opts.body.read
+    end
+    server, port = opts.server.split(/:/)
+    port ||= 25
+    STDERR.puts "Smtp Server: #{server}"
+
+    #
+    # Ask the user
+    #
+    if opts.ask
+      require 'ask'
+      question = %Q[
+        |Send a mail, with this subject: #{opts.subject}
+        |  to #{opts.to.join(', ')}
+        |  from #{opts.from_name}
+        |  #{(opts.signed.nil?)? 'not signed !' : 'signed by ' + opts.from}
+        |Are you sure?].head_cut!
+      raise 'Aborting' if ask(question, :y) == :n
+    end
+
+    require 'net/smtp'
+    Net::SMTP.start(server, port) do |smtp|
+      smtp.open_message_stream(opts.from, opts.to) do |f|
+        f.print %Q[From: #{opts.from_name}
+                  |Subject: #{opts.subject}
+                  |To: #{opts.to.join(', ')}\n].head_cut!
+        if opts.signed
+          TempPath.new do |mail_body|
+            mail_body.open('w') do |out|
+              if opts.mime
+                out.puts '
+                  |Content-Type: text/plain; charset=ISO-8859-1; format=flowed
+                  |Content-Transfer-Encoding: 8bit
+                  |
+                  |'.head_cut!
+              end
+              out.print body
+            end
+            f.print sign_wrap(opts, mail_body)
+          end
+        else
+          f.print "\n" + body
+        end
+      end
+    end
+  end
+
+
+  def new_id ( n )
+    ([0] * n).map!{ |x| "%X" % rand(15) }.join
+  end
+  protected :new_id
+
+
+  def sign_wrap ( opts, body )
+    id = "===============#{new_id 10}==" if opts.mime
+
+    TempPath.new do |tmp_name|
+      tmp_name.open('w') do |tmp|
+        if opts.mime
+          tmp.print %Q[
+            |MIME-Version: 1.0
+            |Content-Type: multipart/signed; micalg=pgp-sha1;
+            | protocol="application/pgp-signature";
+            | boundary="#{id}"
+            |Content-Transfer-Encoding: 8bit
+            |
+            |This is an OpenPGP/MIME signed message (RFC 2440 and 3156)
+            |--#{id}
+            |].head_cut!
+
+          tmp.print body.read
+
+          tmp.print %Q[
+            |
+            |--#{id}
+            |Content-Type: application/pgp-signature; name="signature.asc"
+            |Content-Description: OpenPGP digital signature
+            |Content-Disposition: attachment; filename="signature.asc"
+            |
+            |].head_cut!
+        end
+    
+        TempPath.new do |tmp_out|
+          pid = fork do
+            cmd = %w[ gpg --status-fd 2 --sign --textmode --armor
+                          --digest-algo sha1 --no-use-agent -u ]
+            cmd << "<#{opts.from}>"
+            cmd << ((opts.mime)? '--detach-sign' : '--clearsign')
+            cmd += [ '--output', tmp_out ]
+            if opts.pass
+              cmd += [ '--no-tty', '--batch',
+                       '--passphrase-fd', opts.pass.open.to_i.to_s ]
+            end
+            cmd += [ '--comment', "'#{opts.comment}'" ] if opts.comment
+            STDIN.reopen(body.open)
+            exec(*cmd)
+          end
+          Process.waitpid pid
+
+          tmp.print tmp_out.read
+          tmp.puts "\n--#{id}--" if opts.mime
+        end
+      end
+
+      return tmp_name.read
+    end
+  end
+
+end # class Sendmail
+
+
+if $0 == __FILE__
+  $: << Pathname.new(__FILE__).dirname.to_s
+  Sendmail.new.sendmail(*ARGV)
+end

data/ruby_ex/service_manager.rb

@@ -0,0 +1,121 @@
+# Copyright: Copyright (c) 2004  Nicolas Despres. All rights reserved.
+# Author: Nicolas Despres  <polrop@lrde.epita.fr>.
+# License: Gnu General Public License.
+
+# $LastChangedBy: ertai $
+# $Id: service_manager.rb 186 2005-04-03 00:07:45Z ertai $
+
+
+# A service must implement at least:
+#   - start_service(uri, *args, &block)
+#   - stop_service
+#   - server
+#   - thread
+#   - uri
+module ServiceManager
+
+  def start_service(service, uri=nil, *args, &block)
+    @services = {} unless defined? @services
+    service.start_service(uri, *args, &block)
+    @services[service.uri] = service
+  end
+
+  def stop_service(uri)
+    if defined? @services
+      if service = @services.delete(uri)
+        service.stop_service
+      end
+    end
+  end
+
+  def stop_services
+    if defined? @services
+      @services.keys.each do |uri|
+        stop_service(uri)
+      end
+    end
+  end
+
+  def count_services
+    if defined? @services
+      @services.size
+    else
+      0
+    end
+  end
+
+  def list_services
+    if defined? @services
+      @services.values
+    else
+      []
+    end
+  end
+
+  def join_services
+    if defined? @services
+      @services.each { |uri, service| service.thread.join }
+    end
+  end
+
+  def each_services(&block)
+    if defined? @services
+      @services.each { |uri, service| block[uri, service] }
+    end
+  end
+
+  def service_server(uri)
+    @services[uri].server if defined? @services
+  end
+
+end # module ServiceManager
+
+
+if defined? TEST_MODE or __FILE__ == $0
+
+
+require 'test/unit/ui/yaml/testrunner'
+require 'drb'
+
+
+class ServiceManagerTest < Test::Unit::TestCase
+
+  class Foo
+    include ServiceManager
+
+  end
+
+  module MyService
+
+    module_function
+    def start_service(uri); end
+    def stop_service; end
+    def uri; 'toto'; end
+
+  end
+
+  def test_simple
+    f = Foo.new
+    f.start_service(DRb)
+    assert_equal(1, f.count_services)
+    f.start_service(DRb)
+    assert_equal(2, f.count_services)
+    f.start_service(MyService)
+    [ DRb, DRb, MyService ].each do |s|
+      assert(f.list_services.include?(s))
+    end
+    assert_equal(3, f.count_services)
+    f.stop_service(MyService.uri)
+    assert_equal(2, f.count_services)
+    f.start_service(MyService)
+    [ DRb, DRb, MyService ].each do |s|
+      assert(f.list_services.include?(s))
+    end
+    f.stop_services
+    assert_equal([], f.list_services)
+  end
+
+end # class ServiceManagerTest
+
+end
+

data/ruby_ex/session/administrable.rb

@@ -0,0 +1,120 @@
+# Copyright: Copyright (c) 2004  Nicolas Despres. All rights reserved.
+# Author: Nicolas Despres  <polrop@lrde.epita.fr>.
+# License: Gnu General Public License.
+
+# $LastChangedBy: polrop $
+# $Id: administrable.rb 67 2004-12-07 01:00:10Z polrop $
+
+
+require 'session/server'
+
+
+module Session
+
+  module Administrable
+
+    #
+    # Sessions-oriented requests
+    #
+    protected
+    def request_sessions(sid, profile)
+      @mutex.synchronize { @sessions }
+    end
+
+    protected
+    def request_kick(sid, profile, sid_to_kick)
+      prof = nil
+      @mutex.synchronize do
+        prof = get_profile(sid_to_kick).dup
+        if prof[:admin]
+          raise(Session::PermissionError,
+                "`#{sid_to_kick}' - cannot kick an admin session")
+        end
+      end
+      request(sid_to_kick, :logout)
+    end
+
+    protected
+    def request_add_usr(sid, profile, usrname, usrdesc)
+      @mutex.synchronize do
+        check_usrname(usrname)
+        check_usrdesc(usrdesc)
+        if @usrdb[usrname].nil?
+          @usrdb[usrname] = usrdesc
+        else
+          raise(Session::UserError, "`#{usrname}' - user already registered")
+        end
+        usrdesc
+      end
+    end
+
+    protected
+    def request_del_usr(sid, profile, usrname)
+      @mutex.synchronize do
+        usrdesc = get_usr_desc(usrname)
+        if usrdesc[:admin]
+          raise(Session::UserError, "`#{usrname}' - cannot delete admin user")
+        end
+        @usrdb.delete(usrname)
+      end
+    end
+
+    protected
+    def request_get_usr_desc(sid, profile, usrname)
+      @mutex.synchronize { get_usr_desc(check_usrname(usrname)) }
+    end
+
+    protected
+    def request_set_usr_desc(sid, profile, usrname, usrdesc)
+      @mutex.synchronize do
+        check_usrdesc(usrdesc)
+        get_usr_desc(usrname)
+        @usrdb[usrname] = usrdesc
+      end
+    end
+
+    protected
+    def request_set_usrdb(sid, profile, usrdb)
+      @mutex.synchronize { @usrdb = check_usrdb(usrdb) }
+    end
+
+    protected
+    def request_get_usrdb(sid, profile)
+      @mutex.synchronize { @usrdb }
+    end
+
+    protected
+    def request_set_max_usr(sid, profile, max_usr)
+      @mutex.synchronize { @max_usr = check_max_usr(max_usr) }
+    end
+
+    protected
+    def request_get_max_usr(sid, profile)
+      @mutex.synchronize { @max_usr }
+    end
+
+    protected
+    def request_set_wipeout_delay(sid, profile, wipeout_delay)
+      @mutex.synchronize { @wipeout_delay = check_wipeout_delay(wipeout_delay) }
+    end
+
+    protected
+    def request_get_wipeout_delay(sid, profile)
+      @mutex.synchronize { @wipeout_delay }
+    end
+
+    #
+    # Methods
+    #
+    protected
+    def get_usr_desc(usrname)
+      usrdesc = @usrdb[usrname]
+      if usrdesc.nil?
+        raise(Session::UserError, "`#{usrname}' - not a registered user")
+      end
+      usrdesc
+    end
+
+  end # module Administrable
+
+end # module Session