vcs 0.2.148 → 0.3.0

data/ruby_ex/sendmail.rb

@@ -1,215 +0,0 @@
-#!/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

@@ -1,121 +0,0 @@
-# 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

@@ -1,120 +0,0 @@
-# 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