commit d4b5798aee4e9b3ddb65a7087ddb0c7726363333
Author: Marc Dequènes (Duck) <Duck@DuckCorp.org>
Date:   Sun Mar 8 19:43:39 2009 +0100

    [evol] added setup.rb installer, with hooks to generate locales and a 'lib/cyborghood/config.rb' file having a new CyborgHood::Config providing with installation paths, and created CyborgHood::Info to contain software general information (rakefile build-depends are then reduced to the minimum)

diff --git a/.gitignore b/.gitignore
index e1344ce..118ce19 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,6 +1,9 @@
+# backup files (mostly made by editors)
 *~
 \#*#
-config
-log
-var
-locale
+# generated by installer
+.config
+lib/cyborghood/config.rb
+data/locale
+#
+conf
diff --git a/INSTALL b/INSTALL
new file mode 100644
index 0000000..ff3afff
--- /dev/null
+++ b/INSTALL
@@ -0,0 +1,19 @@
+
+# for a real install in /usr/local
+ruby setup.rb config
+ruby setup.rb setup
+ruby setup.rb install
+ruby setup.rb clean
+
+# for packagers
+ruby setup.rb config --installdirs=std
+ruby setup.rb setup
+ruby setup.rb install --prefix=debian/cyborghood
+ruby setup.rb clean
+
+# for in-place tests
+ruby setup.rb config --bindir=bin --rbdir=lib --datadir=data --sysconfdir=conf --localstatedir=var
+ruby setup.rb setup
+ruby setup.rb install
+ruby setup.rb clean
+
diff --git a/README b/README
index 4ba54f8..c10cfcf 100644
--- a/README
+++ b/README
@@ -4,16 +4,15 @@ Build-Depends:
 rake
 libgettext-ruby1.8
 libgettext-ruby-util
-libtmail-ruby1.8
 
 Depends:
 --------
+liblog4r-ruby
 libgettext-ruby1.8
 libtmail-ruby1.8
-libxmpp4r-ruby
-liblog4r-ruby
+rails
+libgpgme-ruby
 libactiveldap-ruby
+libxmpp4r-ruby
 libdaemons-ruby
-libgpgme-ruby
-rails
 
diff --git a/Rakefile b/Rakefile
index 6bce65a..af35742 100644
--- a/Rakefile
+++ b/Rakefile
@@ -1,17 +1,17 @@
-APP_ROOT = File.dirname(File.expand_path(__FILE__))
-Dir.chdir(APP_ROOT)
-$: << "./lib"
+# to allow in-place run
+$: << File.join(File.dirname(__FILE__), ".", "lib")
 
 ENV['LC_ALL'] = "C"
 
 require 'rake'
 require 'gettext/utils'
-require 'lib/cyborghood/base.rb'
+require 'lib/cyborghood/config'
+require 'lib/cyborghood/info'
 
 namespace :i18n do
 desc "Create mo-files for l10n"
   task :makemo do
-    GetText.create_mofiles(true, "po", "locale")
+    GetText.create_mofiles(true, "po", CyborgHood::Config::L10N_DIR)
   end
 
   desc "Update pot/po files to match new version."
@@ -20,9 +20,9 @@ desc "Create mo-files for l10n"
       Dir.glob("lib/**/*.{rb,rhtml}"),
       CyborgHood::PRODUCT + " " + CyborgHood::VERSION)
     # temporary component listing
-    ["Postman"].each do |component|
-      GetText.update_pofiles("cyborghood_" + component.downcase,
-        component.downcase,
+    ["postman"].each do |component|
+      GetText.update_pofiles("cyborghood_" + component,
+        File.join(CyborgHood::Config::BIN_DIR, component),
         CyborgHood::PRODUCT + " " + CyborgHood::VERSION)
     end
   end
diff --git a/TODO b/TODO
index 5ffbb55..6e8325c 100644
--- a/TODO
+++ b/TODO
@@ -1,4 +1,3 @@
-- split product info in a separate file, to reduce build-depends (at mo files creation time for example)
 - split libs into common and per component and adapt translations accordingly
 - ban keys from unknow users flooding -> counter, reseted when key added in DB
 - protect against intercepted mail with falsified headers (From/Reply-To/... could be tampered to get replies, reply tampered too, and then resent to avoid being detected)
diff --git a/bin/guard b/bin/guard
new file mode 100755
index 0000000..817d5c4
--- /dev/null
+++ b/bin/guard
@@ -0,0 +1,94 @@
+#!/usr/bin/ruby -Ku
+
+#--
+# CyborgHood, a distributed system management software.
+# Copyright (c) 2009 Marc Dequènes (Duck) <Duck@DuckCorp.org>
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+#++
+
+
+# to allow in-place run for test
+$: << File.join(File.dirname(__FILE__), "..", "lib")
+
+require 'cyborghood/cyborg'
+
+module CyborgHood
+  class Guard < Cyborg
+    ROOM_PARAMS = {
+      'muc#roomconfig_allowinvites'	=> 0,
+      'muc#roomconfig_changesubject'	=> 0,
+      'muc#roomconfig_membersonly'	=> 1,
+      'muc#roomconfig_publicroom'	=> 1,
+      'muc#roomconfig_persistentroom'	=> 1,
+      'muc#roomconfig_roomsecret'	=> 'moderators',
+    }
+
+    def initialize
+      super {
+        @in_room = true
+      }
+    end
+
+    def run
+      super do
+        logger.debug "COIN !"
+        p @muc.roster.collect{|k, v| [k, v.show] }
+        #sleep 3
+        Thread.stop
+        p "pompompom"
+        p @muc.roster.collect{|k, v| [k, v.show] }
+      end
+    end
+
+    private
+
+    def on_missing_room
+      logger.info "CyborgHood HeadQuarters meeting room does not exist yet; creating..."
+
+      logger.debug "Fetching and checking room config form"
+      room_config_form = @muc.get_room_configuration
+      missing_params = ROOM_PARAMS.keys - room_config_form
+      unless missing_params.empty?
+        logger.fatal "CyborgHood HeadQuarters do not provide the following meeting room facilities: " + missing_params.join(", ")
+        quit(true)
+      end
+
+      logger.debug "Setting room configuration"
+      @muc.submit_room_configuration(ROOM_PARAMS)
+    end
+
+    def on_existing_room
+      logger.debug "Checking ownership"
+      unless @muc.owner?
+        logger.fatal "CyborgHood HeadQuarters meeting room has been taken over !!!"
+        quit(true)
+      end
+    end
+  end
+end
+
+#Jabber::debug = true
+
+bot = CyborgHood::Guard.new
+
+trap('INT') do
+  bot.ask_to_stop
+end
+trap('TERM') do
+  bot.ask_to_stop
+end
+
+bot.run
+
diff --git a/bin/postman b/bin/postman
new file mode 100755
index 0000000..3068a02
--- /dev/null
+++ b/bin/postman
@@ -0,0 +1,397 @@
+#!/usr/bin/ruby -Ku
+
+#--
+# CyborgHood, a distributed system management software.
+# Copyright (c) 2009 Marc Dequènes (Duck) <Duck@DuckCorp.org>
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+#++
+
+# to allow in-place run for test
+$: << File.join(File.dirname(__FILE__), "..", "lib")
+
+#require 'socket'
+require 'tempfile'
+require 'shellwords'
+require 'cyborghood/imap'
+require 'cyborghood/mail'
+require 'cyborghood/objects'
+require 'cyborghood/services/dns'
+require 'fileutils'
+
+#Socket.gethostname
+
+
+module CyborgHood
+  module PostmanHome
+    include GetText
+    bindtextdomain("cyborghood_postman", {:path => Config::L10N_DIR, :charset => "UTF-8"})
+
+    # not yet ready to be a real Cyborg
+    class Postman #< Cyborg
+      include GetText
+
+      def initialize
+        # load config
+        Config.load(self.human_name.downcase)
+        @config = Config.instance
+
+        ldap_config = @config.ldap
+        ldap_config.logger = logger
+        ActiveLdap::Base.establish_connection(ldap_config.marshal_dump)
+
+        # setup logs
+        unless @config.log.nil?
+          logger.output_level(@config.log.console_level) unless @config.log.console_level.nil?
+          logger.log_to_file(@config.log.file) unless @config.log.file.nil?
+        end
+
+        @current_thread = Thread.current
+        @stop_asap = false
+        @waiting = false
+
+        logger.info "Bot '#{self.human_name}' loaded"
+      end
+
+      def run
+        imap = IMAP.new(@config.imap)
+        until @stop_asap
+          t = Time.now.to_i
+          logger.debug "Starting mail check"
+          check_mails(imap)
+          logger.debug "Mail check finished"
+          t2 = Time.now.to_i
+          sleep_time = @config.imap.min_check_interval - (t2 - t)
+          if sleep_time > 0
+            logger.debug "Having a break before new check..."
+            @waiting = true
+            begin
+              sleep(sleep_time)
+            rescue
+            end
+            @waiting = false
+          end
+        end
+        logger.info "Bot was asked to stop..." if @stop_asap
+        logger.info "Bot terminating"
+      end
+
+      def ask_to_stop
+        @stop_asap = true
+        Thread.critical = true
+        @current_thread.raise if @waiting
+        Thread.critical = false
+      end
+
+      private
+
+      def check_mails(imap)
+        imap.check_mail do |msg|
+          if @stop_asap
+            logger.info "Bot was asked to stop..."
+            break
+          end
+
+          mail = Mail.new(msg.content)
+          logger.info "Received mail with ID '#{mail.message_id}': #{mail.from_addrs} -> #{mail.to_addrs} (#{mail.subject})"
+
+          # ignore mails not signed or encrypted
+          unless mail.is_pgp_signed? or mail.is_pgp_encrypted?
+            logger.info "Mail not signed/encrypted or not RFC3156 compliant, ignoring..."
+            msg.delete
+            next
+          end
+
+          logger.debug "RFC3156 content detected"
+          begin
+            order = mail.parse
+          rescue CyberError => e
+            case e.severity
+            when :dangerous
+              logger.fatal " (#{e.message})"
+              exit 2
+            when :unrecoverable
+              logger.error "Internal processing error, skipping mail (#{e.message})"
+              next
+            when :ignorable
+            end
+          end
+          result_tag = order.ok ? "SUCCESS" : "FAILURE"
+          logger.info "Processing result: #{result_tag} (#{order.message})"
+          logger.info "Extra processing information: " + order.system_message if order.system_message
+
+          if order.user
+            if order.user.preferredLanguage
+              logger.debug "User preference for langage: " + order.user.preferredLanguage
+              set_locale(order.user.preferredLanguage)
+            else
+              logger.debug "No user preference for langage, using english"
+              set_locale("en")
+            end
+          else
+            set_locale("en")
+          end
+
+          unless order.ok
+            if order.warn_sender
+              logger.info "Sending reply for rejected message"
+              mail_reply = mail.create_simple_reject_reply(_("Hello,") + "\n\n" + sprintf(
+                           _("A message (ID: %s), apparently from you, was rejected for the following reason:"),
+                           mail.message_id) + "\n  " + _(order.message) + "\n" + mail_signature())
+              mail_reply.deliver
+            end
+            msg.delete
+            next
+          end
+
+          logger.debug "Message accepted, processing orders..."
+          result_list = CommandParser.run(order)
+
+          # create transcript
+          logger.debug "Preparing reply"
+          reply_txt = sprintf(_("Hello %s,"), order.user.cn) + "\n\n"
+          reply_txt += _(order.message) + "\n\n" if order.message
+          reply_txt += _("Follows the transcript of your commands:") + "\n"
+          reply_attachments = []
+          result_list.each do |result|
+            reply_txt << "> #{result.cmd}\n"
+            reply_txt << "#{result.message}\n"
+            reply_attachments += result.refs unless result.refs.nil?
+          end
+          reply_txt << mail_signature()
+
+          # create mail
+          logger.debug "Preparing mail"
+          mail_reply = mail.create_reply
+          if reply_attachments.empty?
+            transcript_part = mail_reply
+          else
+            mail_reply.set_content_type("multipart", "mixed", {'boundary' => TMail.new_boundary})
+            parts = []
+
+            p = CyborgHood::Mail.new
+            transcript_part = p
+            mail_reply.parts << p
+
+            reply_attachments.each do |attachment|
+              p = CyborgHood::Mail.new
+              p.set_content_type("text", "plain", {'charset' => "utf-8"})
+              p.set_disposition("attachment", {'filename' => attachment.filename})
+              p.quoted_printable_body = attachment.content
+              mail_reply.parts << p
+            end
+          end
+          # insert transcript
+          transcript_part.set_content_type("text", "plain", {'charset' => 'utf-8', 'format' => 'flowed'})
+          transcript_part.set_disposition("inline")
+          transcript_part.quoted_printable_body = reply_txt
+
+          # send reply
+          logger.debug "Sending mail"
+          mail_reply.sign_and_crypt(order.user.keyFingerPrint)
+          mail_reply.deliver
+
+          logger.info "Message processed completely, deleting"
+          msg.delete
+        end
+      end
+
+      def mail_signature
+        s = "\n" +
+          "-- \n" +
+          "#{CyborgHood::PRODUCT} v#{CyborgHood::VERSION}\n"
+        s += _("Contact eMail:") + " \"#{@config.contact.name}\" <#{@config.contact.email}>\n" if @config.contact.email
+        s += _("Contact URL:") + " #{@config.contact.url}\n" if @config.contact.url
+        s
+      end
+    end
+
+    class CommandParser
+      include GetText
+
+      def self.run(order)
+        result_list = []
+        order.commands.each do |cmdstr|
+          logger.info "Executing command: #{cmdstr}"
+          begin
+            result = execute_cmd(order.user, cmdstr, order.references)
+            if result.nil?
+              result = OpenStruct.new
+              result.cmd = cmdstr
+              result.ok = false
+              result.message = _("Command not recognized.")
+              result.refs = nil
+            end
+          rescue CyberError => e
+            result = OpenStruct.new
+            result.cmd = cmdstr
+            result.ok = false
+            result.message = e.message.capitalize + "."
+            result.refs = nil
+          rescue
+            logger.warn "Command crashed: " + $!
+            result = OpenStruct.new
+            result.cmd = cmdstr
+            result.ok = false
+            result.message = _("Internal error. Administrator is warned.")
+            result.refs = nil
+          end
+
+          tag = result.ok ? "SUCCESS" :"FAILURE"
+          logger.debug "Command result: [#{tag}] #{result.message}"
+          result_list << result
+        end
+        result_list
+      end
+
+      private
+
+      def self.execute_cmd(user, cmdstr, refs)
+        cmdline = Shellwords.shellwords(cmdstr)
+        subsys = cmdline.shift
+
+        result = OpenStruct.new
+        result.cmd = cmdstr
+        result.ok = false
+        ok = true
+        case subsys.upcase
+        when "DNS"
+          return if cmdline.empty?
+          case cmdline.shift.upcase
+          when "INFO"
+            return unless cmdline.empty?
+            list = CyborgHood::DnsDomain.find_by_manager(user)
+            txt_list = list.collect{|z| z.cn }.sort.join(", ")
+            result.ok = true
+            result.message = sprintf(_("You are manager of the following zones: %s."), txt_list)
+          when "GET"
+            return if cmdline.empty?
+            case cmdline.shift.upcase
+            when "ZONE"
+              return if cmdline.empty?
+              zone = cmdline.shift.downcase
+
+              dom = CyborgHood::DnsDomain.new(zone)
+              unless dom.hosted?
+                result.message = ("This zone is not hosted here.")
+                return result
+              end
+              unless dom.managed_by? user
+                result.message = _("You are not allowed to manage this zone.")
+                return result
+              end
+
+              srv_dns = CyborgHood::Services::DNS.new(zone)
+              result.ok = true
+              result.message = _("Requested zone content attached.")
+              zone_ref = {:content => srv_dns.read_zone, :filename => "dnszone_#{zone}.txt"}.to_ostruct
+              result.refs = [zone_ref]
+            end
+          when "SET"
+            return if cmdline.empty?
+            case cmdline.shift.upcase
+            when "ZONE"
+            return if cmdline.empty?
+              zone = cmdline.shift.downcase
+              dom = CyborgHood::DnsDomain.new(zone)
+              unless dom.hosted?
+                result.message = _("This zone is not hosted here.")
+                return result
+              end
+              unless dom.managed_by? user
+                result.message = _("You are not allowed to manage this zone.")
+                return result
+              end
+              srv_dns = CyborgHood::Services::DNS.new(zone)
+
+              return if cmdline.empty?
+              content_ref = cmdline.shift.downcase
+              return unless content_ref =~ /^@(\d+)$/
+              part_ref = $1.to_i
+              unless (1..refs.size).include? part_ref
+                result.message = _("Attachment number not found.")
+                return result
+              end
+              part = refs[part_ref]
+              unless part.content_type == "text/plain"
+                result.message = _("Attachment has wrong content-type.")
+                return result
+              end
+
+              f = Tempfile.new(zone)
+              f.write(part.body)
+              f.close
+              logger.debug "Created temporary zone file '#{f.path}'"
+
+              srv_dns = CyborgHood::Services::DNS.new(zone)
+              current_serial = srv_dns.serial
+              logger.debug "Current serial: #{current_serial}"
+
+              dns_result = srv_dns.check_zone_file(f.path)
+              unless dns_result.ok
+                result.message = _("Invalid zone data.")
+                f.close!
+                return result
+              end
+              logger.debug "New serial: #{dns_result.serial}"
+              # allow new serial or missing serial (to allow creating a new zone or replacing a broken zone)
+              unless current_serial.nil? or dns_result.serial > current_serial
+                result.message = _("Zone serial is not superior to current serial.")
+                f.close!
+                return result
+              end
+
+              begin
+                srv_dns.write_zone_from_file(f.path)
+                logger.debug "zone changed"
+                if srv_dns.reload_zone
+                  logger.debug "zone reloaded"
+                  result.ok = true
+                  result.message = _("Zone updated.")
+                else
+                  logger.warn "zone reload failed, replacing old content"
+                  srv_dns.replace_zone_with_backup
+                  result.message = _("Internal error. Administrator is warned.")
+                end
+              rescue
+                logger.warn "Writing zone file failed"
+                raise
+              ensure
+                f.close!
+              end
+            end
+          end
+        end
+
+        if result.message.nil?
+          # here fall lost souls
+          nil
+        else
+          result
+        end
+      end
+    end
+  end
+end
+
+bot = CyborgHood::PostmanHome::Postman.new
+
+trap('INT') do
+  bot.ask_to_stop
+end
+trap('TERM') do
+  bot.ask_to_stop
+end
+
+bot.run
diff --git a/bin/postman_daemon b/bin/postman_daemon
new file mode 100755
index 0000000..99bd277
--- /dev/null
+++ b/bin/postman_daemon
@@ -0,0 +1,37 @@
+#!/usr/bin/ruby
+
+#--
+# CyborgHood, a distributed system management software.
+# Copyright (c) 2009 Marc Dequènes (Duck) <Duck@DuckCorp.org>
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+#++
+
+# to allow in-place run for test
+$: << File.join(File.dirname(__FILE__), "..", "lib")
+
+require 'daemons'
+require 'cyborghood/config'
+
+options = {
+  :app_name     => "CyborgHood_Postman",
+  :dir_mode     => :normal,
+  :dir          => CyborgHood::Config::RUN_DIR,
+  :multiple     => false,
+  :mode         => :exec,
+  :monitor      => true
+}
+# deactivated: monitor process not stopped when program is asked to stop
+#  :backtrace   => true,
+Daemons.run(File.join(CyborgHood::Config::BIN_DIR, 'postman'), options)
diff --git a/guard b/guard
deleted file mode 100755
index 254a015..0000000
--- a/guard
+++ /dev/null
@@ -1,92 +0,0 @@
-#!/usr/bin/ruby -Ku
-
-#--
-# CyborgHood, a distributed system management software.
-# Copyright (c) 2009 Marc Dequènes (Duck) <Duck@DuckCorp.org>
-#
-# This program is free software: you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation, either version 3 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program.  If not, see <http://www.gnu.org/licenses/>.
-#++
-
-$: << "./lib"
-
-require 'cyborghood/cyborg'
-
-module CyborgHood
-  class Guard < Cyborg
-    ROOM_PARAMS = {
-      'muc#roomconfig_allowinvites'	=> 0,
-      'muc#roomconfig_changesubject'	=> 0,
-      'muc#roomconfig_membersonly'	=> 1,
-      'muc#roomconfig_publicroom'	=> 1,
-      'muc#roomconfig_persistentroom'	=> 1,
-      'muc#roomconfig_roomsecret'	=> 'moderators',
-    }
-
-    def initialize
-      super {
-        @in_room = true
-      }
-    end
-
-    def run
-      super do
-        logger.debug "COIN !"
-        p @muc.roster.collect{|k, v| [k, v.show] }
-        #sleep 3
-        Thread.stop
-        p "pompompom"
-        p @muc.roster.collect{|k, v| [k, v.show] }
-      end
-    end
-
-    private
-
-    def on_missing_room
-      logger.info "CyborgHood HeadQuarters meeting room does not exist yet; creating..."
-
-      logger.debug "Fetching and checking room config form"
-      room_config_form = @muc.get_room_configuration
-      missing_params = ROOM_PARAMS.keys - room_config_form
-      unless missing_params.empty?
-        logger.fatal "CyborgHood HeadQuarters do not provide the following meeting room facilities: " + missing_params.join(", ")
-        quit(true)
-      end
-
-      logger.debug "Setting room configuration"
-      @muc.submit_room_configuration(ROOM_PARAMS)
-    end
-
-    def on_existing_room
-      logger.debug "Checking ownership"
-      unless @muc.owner?
-        logger.fatal "CyborgHood HeadQuarters meeting room has been taken over !!!"
-        quit(true)
-      end
-    end
-  end
-end
-
-#Jabber::debug = true
-
-bot = CyborgHood::Guard.new
-
-trap('INT') do
-  bot.ask_to_stop
-end
-trap('TERM') do
-  bot.ask_to_stop
-end
-
-bot.run
-
diff --git a/lib/cyborghood/base.rb b/lib/cyborghood/base.rb
index 9b85803..a516239 100644
--- a/lib/cyborghood/base.rb
+++ b/lib/cyborghood/base.rb
@@ -21,15 +21,14 @@ require 'jcode'
 require 'singleton'
 require 'yaml'
 require 'log4r'
-require "cyborghood/lang_additions"
 require 'gettext'
+require "cyborghood/config"
+require "cyborghood/info"
+require "cyborghood/lang_additions"
 
 module CyborgHood
   include GetText
-  bindtextdomain("cyborghood", {:path => File.join(APP_ROOT, "locale"), :charset => "UTF-8"})
-
-  PRODUCT = "CyborgHood"
-  VERSION = "0.2.0~dev"
+  bindtextdomain("cyborghood", {:path => Config::L10N_DIR, :charset => "UTF-8"})
 
   # severities: # :dangerous :unrecoverable :ignorable
   # categories:
@@ -99,9 +98,6 @@ module CyborgHood
   class Config
     include Singleton
 
-    CFG_DIR = './config/'
-    WORK_DIR = './var/lib/cyborghood/'
-
     CONFFILE_GLOBAL = "cyborghood.conf"
     CONFFILE_BOT = "cyborghood_%s.conf"
 
@@ -125,11 +121,6 @@ module CyborgHood
       end
     end
 
-    # temporary
-    def work_dir
-      WORK_DIR
-    end
-
     private
 
     def self.fetch_config(name = nil)
diff --git a/lib/cyborghood/info.rb b/lib/cyborghood/info.rb
new file mode 100644
index 0000000..45d53df
--- /dev/null
+++ b/lib/cyborghood/info.rb
@@ -0,0 +1,4 @@
+module CyborgHood
+  PRODUCT = "CyborgHood"
+  VERSION = "0.2.0~dev"
+end
diff --git a/lib/cyborghood/mail.rb b/lib/cyborghood/mail.rb
index 57d7136..dbe7a1e 100644
--- a/lib/cyborghood/mail.rb
+++ b/lib/cyborghood/mail.rb
@@ -279,7 +279,7 @@ module CyborgHood
     end
 
     def mark_dir
-      File.join(@config.work_dir, "marks")
+      File.join(Config::VAR_DIR, "marks")
     end
 
     def mark_filename
diff --git a/po/cyborghood.pot b/po/cyborghood.pot
index 306f6b5..23f98c7 100644
--- a/po/cyborghood.pot
+++ b/po/cyborghood.pot
@@ -7,7 +7,7 @@
 msgid ""
 msgstr ""
 "Project-Id-Version: CyborgHood 0.2.0~dev\n"
-"POT-Creation-Date: 2009-03-08 12:52+0100\n"
+"POT-Creation-Date: 2009-03-08 19:14+0100\n"
 "PO-Revision-Date: 2009-03-07 21:38+0100\n"
 "Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
 "Language-Team: LANGUAGE <LL@li.org>\n"
diff --git a/po/cyborghood_postman.pot b/po/cyborghood_postman.pot
index 3139c12..1dea500 100644
--- a/po/cyborghood_postman.pot
+++ b/po/cyborghood_postman.pot
@@ -7,7 +7,7 @@
 msgid ""
 msgstr ""
 "Project-Id-Version: CyborgHood 0.2.0~dev\n"
-"POT-Creation-Date: 2009-03-08 12:52+0100\n"
+"POT-Creation-Date: 2009-03-08 19:14+0100\n"
 "PO-Revision-Date: 2009-03-07 21:38+0100\n"
 "Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
 "Language-Team: LANGUAGE <LL@li.org>\n"
@@ -16,72 +16,72 @@ msgstr ""
 "Content-Transfer-Encoding: 8bit\n"
 "Plural-Forms: nplurals=INTEGER; plural=EXPRESSION;\n"
 
-#: postman:152
+#: /opt/cyborghood-dev/bin/postman:149
 msgid "Hello,"
 msgstr ""
 
-#: postman:153
+#: /opt/cyborghood-dev/bin/postman:150
 msgid ""
 "A message (ID: %s), apparently from you, was rejected for the following "
 "reason:"
 msgstr ""
 
-#: postman:166
+#: /opt/cyborghood-dev/bin/postman:163
 msgid "Hello %s,"
 msgstr ""
 
-#: postman:168
+#: /opt/cyborghood-dev/bin/postman:165
 msgid "Follows the transcript of your commands:"
 msgstr ""
 
-#: postman:217
+#: /opt/cyborghood-dev/bin/postman:214
 msgid "Contact eMail:"
 msgstr ""
 
-#: postman:218
+#: /opt/cyborghood-dev/bin/postman:215
 msgid "Contact URL:"
 msgstr ""
 
-#: postman:236
+#: /opt/cyborghood-dev/bin/postman:233
 msgid "Command not recognized."
 msgstr ""
 
-#: postman:250 postman:368
+#: /opt/cyborghood-dev/bin/postman:247 /opt/cyborghood-dev/bin/postman:365
 msgid "Internal error. Administrator is warned."
 msgstr ""
 
-#: postman:280
+#: /opt/cyborghood-dev/bin/postman:277
 msgid "You are manager of the following zones: %s."
 msgstr ""
 
-#: postman:294 postman:316
+#: /opt/cyborghood-dev/bin/postman:291 /opt/cyborghood-dev/bin/postman:313
 msgid "You are not allowed to manage this zone."
 msgstr ""
 
-#: postman:300
+#: /opt/cyborghood-dev/bin/postman:297
 msgid "Requested zone content attached."
 msgstr ""
 
-#: postman:312
+#: /opt/cyborghood-dev/bin/postman:309
 msgid "This zone is not hosted here."
 msgstr ""
 
-#: postman:326
+#: /opt/cyborghood-dev/bin/postman:323
 msgid "Attachment number not found."
 msgstr ""
 
-#: postman:331
+#: /opt/cyborghood-dev/bin/postman:328
 msgid "Attachment has wrong content-type."
 msgstr ""
 
-#: postman:346
+#: /opt/cyborghood-dev/bin/postman:343
 msgid "Invalid zone data."
 msgstr ""
 
-#: postman:353
+#: /opt/cyborghood-dev/bin/postman:350
 msgid "Zone serial is not superior to current serial."
 msgstr ""
 
-#: postman:364
+#: /opt/cyborghood-dev/bin/postman:361
 msgid "Zone updated."
 msgstr ""
diff --git a/po/fr/cyborghood.po b/po/fr/cyborghood.po
index 05f61be..4359831 100644
--- a/po/fr/cyborghood.po
+++ b/po/fr/cyborghood.po
@@ -7,7 +7,7 @@
 msgid ""
 msgstr ""
 "Project-Id-Version: CyborgHood 0.2.0~dev\n"
-"POT-Creation-Date: 2009-03-08 12:52+0100\n"
+"POT-Creation-Date: 2009-03-08 19:14+0100\n"
 "PO-Revision-Date: 2009-03-07 20:59+0100\n"
 "Last-Translator: Marc Dequènes (Duck) <Duck@DuckCorp.org>\n"
 "MIME-Version: 1.0\n"
diff --git a/po/fr/cyborghood_postman.po b/po/fr/cyborghood_postman.po
index 82aa26d..daa8314 100644
--- a/po/fr/cyborghood_postman.po
+++ b/po/fr/cyborghood_postman.po
@@ -7,7 +7,7 @@
 msgid ""
 msgstr ""
 "Project-Id-Version: CyborgHood 0.2.0~dev\n"
-"POT-Creation-Date: 2009-03-08 12:52+0100\n"
+"POT-Creation-Date: 2009-03-08 19:14+0100\n"
 "PO-Revision-Date: 2009-03-07 21:27+0100\n"
 "Last-Translator: Marc Dequènes (Duck) <Duck@DuckCorp.org>\n"
 "MIME-Version: 1.0\n"
@@ -15,11 +15,11 @@ msgstr ""
 "Content-Transfer-Encoding: 8bit\n"
 "Plural-Forms: nplurals=1; plural=(n != 1);\n"
 
-#: postman:152
+#: /opt/cyborghood-dev/bin/postman:149
 msgid "Hello,"
 msgstr "Bonjour,"
 
-#: postman:153
+#: /opt/cyborghood-dev/bin/postman:150
 msgid ""
 "A message (ID: %s), apparently from you, was rejected for the following "
 "reason:"
@@ -27,62 +27,62 @@ msgstr ""
 "Un message (ID: %s), provenant apparemment de vous, a été rejeté pour la "
 "raison suivante :"
 
-#: postman:166
+#: /opt/cyborghood-dev/bin/postman:163
 msgid "Hello %s,"
 msgstr "Bonjour %s,"
 
-#: postman:168
+#: /opt/cyborghood-dev/bin/postman:165
 msgid "Follows the transcript of your commands:"
 msgstr "La retranscription des commandes suit :"
 
-#: postman:217
+#: /opt/cyborghood-dev/bin/postman:214
 msgid "Contact eMail:"
 msgstr "eMail de Contact :"
 
-#: postman:218
+#: /opt/cyborghood-dev/bin/postman:215
 msgid "Contact URL:"
 msgstr "URL de Contact :"
 
-#: postman:236
+#: /opt/cyborghood-dev/bin/postman:233
 msgid "Command not recognized."
 msgstr "Commande non reconnue"
 
-#: postman:250 postman:368
+#: /opt/cyborghood-dev/bin/postman:247 /opt/cyborghood-dev/bin/postman:365
 msgid "Internal error. Administrator is warned."
 msgstr "Erreur interne. L'administrateur a été prévenu."
 
-#: postman:280
+#: /opt/cyborghood-dev/bin/postman:277
 msgid "You are manager of the following zones: %s."
 msgstr "Vous gérez les zones suivantes : %s."
 
-#: postman:294 postman:316
+#: /opt/cyborghood-dev/bin/postman:291 /opt/cyborghood-dev/bin/postman:313
 msgid "You are not allowed to manage this zone."
 msgstr "Vous n'êtes pas autorisé à gérer cette zone."
 
-#: postman:300
+#: /opt/cyborghood-dev/bin/postman:297
 msgid "Requested zone content attached."
 msgstr "Le contenu de la zone demandée est en pièce jointe."
 
-#: postman:312
+#: /opt/cyborghood-dev/bin/postman:309
 msgid "This zone is not hosted here."
 msgstr "Cette zone n'est pas hébergée ici."
 
-#: postman:326
+#: /opt/cyborghood-dev/bin/postman:323
 msgid "Attachment number not found."
 msgstr "Numéro de pièce jointe non trouvé."
 
-#: postman:331
+#: /opt/cyborghood-dev/bin/postman:328
 msgid "Attachment has wrong content-type."
 msgstr "La pièce jointe a un mauvais type de contenu (content-type)."
 
-#: postman:346
+#: /opt/cyborghood-dev/bin/postman:343
 msgid "Invalid zone data."
 msgstr "Données pour la zone invalides."
 
-#: postman:353
+#: /opt/cyborghood-dev/bin/postman:350
 msgid "Zone serial is not superior to current serial."
 msgstr "Le numéro de série de la zone n'est pas supèrieur à celui actuel."
 
-#: postman:364
+#: /opt/cyborghood-dev/bin/postman:361
 msgid "Zone updated."
 msgstr "Zone mise à jour."
diff --git a/post-clean.rb b/post-clean.rb
new file mode 100644
index 0000000..c4991c8
--- /dev/null
+++ b/post-clean.rb
@@ -0,0 +1,22 @@
+# post-clean.rb - setup config generation cleanup
+
+#--
+# CyborgHood, a distributed system management software.
+# Copyright (c) 2009 Marc Dequènes (Duck) <Duck@DuckCorp.org>
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+#++
+
+conffile = "lib/cyborghood/config.rb"
+File.unlink(conffile) if FileTest.exists?(conffile)
diff --git a/post-config.rb b/post-config.rb
new file mode 100644
index 0000000..6a35b94
--- /dev/null
+++ b/post-config.rb
@@ -0,0 +1,68 @@
+# post-config.rb - setup config generation
+
+#--
+# CyborgHood, a distributed system management software.
+# Copyright (c) 2009 Marc Dequènes (Duck) <Duck@DuckCorp.org>
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+#++
+
+# General header.
+header = <<HEADER
+# config.rb - Coin-diff setup configuration
+
+#--
+# CyborgHood, a distributed system management software.
+# Copyright (c) 2009 Marc Dequènes (Duck) <Duck@DuckCorp.org>
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+#++
+
+# This file is automatically generated by the installer.
+# Do not edit by hand.
+
+HEADER
+
+# Generate config.rb containing general compile/setup time configuration
+# information (in the CoinDiff::Config module).
+File.open('lib/cyborghood/config.rb', 'w') do |file|
+
+  file.print header
+  file.print <<-CONFIG
+module CyborgHood
+  class Config
+    BIN_DIR   = '#{config('bindir')}'
+    CFG_DIR   = '#{File.join(config('sysconfdir'), 'cyborghood')}'
+    DATA_DIR  = '#{File.join(config('datadir'), 'cyborghood')}'
+    LIB_DIR   = '#{config('rbdir')}'
+    LOG_DIR   = '#{File.join(config('localstatedir'), 'log', 'cyborghood')}'
+    RUN_DIR   = '#{File.join(config('localstatedir'), 'run', 'cyborghood')}'
+    VAR_DIR   = '#{File.join(config('localstatedir'), 'lib', 'cyborghood')}'
+    L10N_DIR  = '#{File.join(config('datadir'), 'locale')}'
+  end
+end
+  CONFIG
+
+end # File.open
diff --git a/post-setup.rb b/post-setup.rb
new file mode 100644
index 0000000..ed3db8a
--- /dev/null
+++ b/post-setup.rb
@@ -0,0 +1,23 @@
+# post-setup.rb - build extra files
+
+#--
+# CyborgHood, a distributed system management software.
+# Copyright (c) 2009 Marc Dequènes (Duck) <Duck@DuckCorp.org>
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+#++
+
+# build gettext locale files
+system("rake i18n:makemo")
+
diff --git a/postman b/postman
deleted file mode 100755
index 05dfdc7..0000000
--- a/postman
+++ /dev/null
@@ -1,400 +0,0 @@
-#!/usr/bin/ruby -Ku
-
-#--
-# CyborgHood, a distributed system management software.
-# Copyright (c) 2009 Marc Dequènes (Duck) <Duck@DuckCorp.org>
-#
-# This program is free software: you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation, either version 3 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program.  If not, see <http://www.gnu.org/licenses/>.
-#++
-
-# http://www.ruby-doc.org/stdlib/libdoc/net/imap/rdoc/index.html
-
-APP_ROOT = File.dirname(File.expand_path(__FILE__))
-Dir.chdir(APP_ROOT)
-$: << "./lib"
-
-#require 'socket'
-require 'tempfile'
-require 'shellwords'
-require 'cyborghood/imap'
-require 'cyborghood/mail'
-require 'cyborghood/objects'
-require 'cyborghood/services/dns'
-require 'fileutils'
-
-#Socket.gethostname
-
-
-module CyborgHood
-  module PostmanHome
-    include GetText
-    bindtextdomain("cyborghood_postman", {:path => File.join(APP_ROOT, "locale"), :charset => "UTF-8"})
-
-    # not yet ready to be a real Cyborg
-    class Postman #< Cyborg
-      include GetText
-
-      def initialize
-        # load config
-        Config.load(self.human_name.downcase)
-        @config = Config.instance
-
-        ldap_config = @config.ldap
-        ldap_config.logger = logger
-        ActiveLdap::Base.establish_connection(ldap_config.marshal_dump)
-
-        # setup logs
-        unless @config.log.nil?
-          logger.output_level(@config.log.console_level) unless @config.log.console_level.nil?
-          logger.log_to_file(@config.log.file) unless @config.log.file.nil?
-        end
-
-        @current_thread = Thread.current
-        @stop_asap = false
-        @waiting = false
-
-        logger.info "Bot '#{self.human_name}' loaded"
-      end
-
-      def run
-        imap = IMAP.new(@config.imap)
-        until @stop_asap
-          t = Time.now.to_i
-          logger.debug "Starting mail check"
-          check_mails(imap)
-          logger.debug "Mail check finished"
-          t2 = Time.now.to_i
-          sleep_time = @config.imap.min_check_interval - (t2 - t)
-          if sleep_time > 0
-            logger.debug "Having a break before new check..."
-            @waiting = true
-            begin
-              sleep(sleep_time)
-            rescue
-            end
-            @waiting = false
-          end
-        end
-        logger.info "Bot was asked to stop..." if @stop_asap
-        logger.info "Bot terminating"
-      end
-
-      def ask_to_stop
-        @stop_asap = true
-        Thread.critical = true
-        @current_thread.raise if @waiting
-        Thread.critical = false
-      end
-
-      private
-
-      def check_mails(imap)
-        imap.check_mail do |msg|
-          if @stop_asap
-            logger.info "Bot was asked to stop..."
-            break
-          end
-
-          mail = Mail.new(msg.content)
-          logger.info "Received mail with ID '#{mail.message_id}': #{mail.from_addrs} -> #{mail.to_addrs} (#{mail.subject})"
-
-          # ignore mails not signed or encrypted
-          unless mail.is_pgp_signed? or mail.is_pgp_encrypted?
-            logger.info "Mail not signed/encrypted or not RFC3156 compliant, ignoring..."
-            msg.delete
-            next
-          end
-
-          logger.debug "RFC3156 content detected"
-          begin
-            order = mail.parse
-          rescue CyberError => e
-            case e.severity
-            when :dangerous
-              logger.fatal " (#{e.message})"
-              exit 2
-            when :unrecoverable
-              logger.error "Internal processing error, skipping mail (#{e.message})"
-              next
-            when :ignorable
-            end
-          end
-          result_tag = order.ok ? "SUCCESS" : "FAILURE"
-          logger.info "Processing result: #{result_tag} (#{order.message})"
-          logger.info "Extra processing information: " + order.system_message if order.system_message
-
-          if order.user
-            if order.user.preferredLanguage
-              logger.debug "User preference for langage: " + order.user.preferredLanguage
-              set_locale(order.user.preferredLanguage)
-            else
-              logger.debug "No user preference for langage, using english"
-              set_locale("en")
-            end
-          else
-            set_locale("en")
-          end
-
-          unless order.ok
-            if order.warn_sender
-              logger.info "Sending reply for rejected message"
-              mail_reply = mail.create_simple_reject_reply(_("Hello,") + "\n\n" + sprintf(
-                           _("A message (ID: %s), apparently from you, was rejected for the following reason:"),
-                           mail.message_id) + "\n  " + _(order.message) + "\n" + mail_signature())
-              mail_reply.deliver
-            end
-            msg.delete
-            next
-          end
-
-          logger.debug "Message accepted, processing orders..."
-          result_list = CommandParser.run(order)
-
-          # create transcript
-          logger.debug "Preparing reply"
-          reply_txt = sprintf(_("Hello %s,"), order.user.cn) + "\n\n"
-          reply_txt += _(order.message) + "\n\n" if order.message
-          reply_txt += _("Follows the transcript of your commands:") + "\n"
-          reply_attachments = []
-          result_list.each do |result|
-            reply_txt << "> #{result.cmd}\n"
-            reply_txt << "#{result.message}\n"
-            reply_attachments += result.refs unless result.refs.nil?
-          end
-          reply_txt << mail_signature()
-
-          # create mail
-          logger.debug "Preparing mail"
-          mail_reply = mail.create_reply
-          if reply_attachments.empty?
-            transcript_part = mail_reply
-          else
-            mail_reply.set_content_type("multipart", "mixed", {'boundary' => TMail.new_boundary})
-            parts = []
-
-            p = CyborgHood::Mail.new
-            transcript_part = p
-            mail_reply.parts << p
-
-            reply_attachments.each do |attachment|
-              p = CyborgHood::Mail.new
-              p.set_content_type("text", "plain", {'charset' => "utf-8"})
-              p.set_disposition("attachment", {'filename' => attachment.filename})
-              p.quoted_printable_body = attachment.content
-              mail_reply.parts << p
-            end
-          end
-          # insert transcript
-          transcript_part.set_content_type("text", "plain", {'charset' => 'utf-8', 'format' => 'flowed'})
-          transcript_part.set_disposition("inline")
-          transcript_part.quoted_printable_body = reply_txt
-
-          # send reply
-          logger.debug "Sending mail"
-          mail_reply.sign_and_crypt(order.user.keyFingerPrint)
-          mail_reply.deliver
-
-          logger.info "Message processed completely, deleting"
-          msg.delete
-        end
-      end
-
-      def mail_signature
-        s = "\n" +
-          "-- \n" +
-          "#{CyborgHood::PRODUCT} v#{CyborgHood::VERSION}\n"
-        s += _("Contact eMail:") + " \"#{@config.contact.name}\" <#{@config.contact.email}>\n" if @config.contact.email
-        s += _("Contact URL:") + " #{@config.contact.url}\n" if @config.contact.url
-        s
-      end
-    end
-
-    class CommandParser
-      include GetText
-
-      def self.run(order)
-        result_list = []
-        order.commands.each do |cmdstr|
-          logger.info "Executing command: #{cmdstr}"
-          begin
-            result = execute_cmd(order.user, cmdstr, order.references)
-            if result.nil?
-              result = OpenStruct.new
-              result.cmd = cmdstr
-              result.ok = false
-              result.message = _("Command not recognized.")
-              result.refs = nil
-            end
-          rescue CyberError => e
-            result = OpenStruct.new
-            result.cmd = cmdstr
-            result.ok = false
-            result.message = e.message.capitalize + "."
-            result.refs = nil
-          rescue
-            logger.warn "Command crashed: " + $!
-            result = OpenStruct.new
-            result.cmd = cmdstr
-            result.ok = false
-            result.message = _("Internal error. Administrator is warned.")
-            result.refs = nil
-          end
-
-          tag = result.ok ? "SUCCESS" :"FAILURE"
-          logger.debug "Command result: [#{tag}] #{result.message}"
-          result_list << result
-        end
-        result_list
-      end
-
-      private
-
-      def self.execute_cmd(user, cmdstr, refs)
-        cmdline = Shellwords.shellwords(cmdstr)
-        subsys = cmdline.shift
-
-        result = OpenStruct.new
-        result.cmd = cmdstr
-        result.ok = false
-        ok = true
-        case subsys.upcase
-        when "DNS"
-          return if cmdline.empty?
-          case cmdline.shift.upcase
-          when "INFO"
-            return unless cmdline.empty?
-            list = CyborgHood::DnsDomain.find_by_manager(user)
-            txt_list = list.collect{|z| z.cn }.sort.join(", ")
-            result.ok = true
-            result.message = sprintf(_("You are manager of the following zones: %s."), txt_list)
-          when "GET"
-            return if cmdline.empty?
-            case cmdline.shift.upcase
-            when "ZONE"
-              return if cmdline.empty?
-              zone = cmdline.shift.downcase
-
-              dom = CyborgHood::DnsDomain.new(zone)
-              unless dom.hosted?
-                result.message = ("This zone is not hosted here.")
-                return result
-              end
-              unless dom.managed_by? user
-                result.message = _("You are not allowed to manage this zone.")
-                return result
-              end
-
-              srv_dns = CyborgHood::Services::DNS.new(zone)
-              result.ok = true
-              result.message = _("Requested zone content attached.")
-              zone_ref = {:content => srv_dns.read_zone, :filename => "dnszone_#{zone}.txt"}.to_ostruct
-              result.refs = [zone_ref]
-            end
-          when "SET"
-            return if cmdline.empty?
-            case cmdline.shift.upcase
-            when "ZONE"
-            return if cmdline.empty?
-              zone = cmdline.shift.downcase
-              dom = CyborgHood::DnsDomain.new(zone)
-              unless dom.hosted?
-                result.message = _("This zone is not hosted here.")
-                return result
-              end
-              unless dom.managed_by? user
-                result.message = _("You are not allowed to manage this zone.")
-                return result
-              end
-              srv_dns = CyborgHood::Services::DNS.new(zone)
-
-              return if cmdline.empty?
-              content_ref = cmdline.shift.downcase
-              return unless content_ref =~ /^@(\d+)$/
-              part_ref = $1.to_i
-              unless (1..refs.size).include? part_ref
-                result.message = _("Attachment number not found.")
-                return result
-              end
-              part = refs[part_ref]
-              unless part.content_type == "text/plain"
-                result.message = _("Attachment has wrong content-type.")
-                return result
-              end
-
-              f = Tempfile.new(zone)
-              f.write(part.body)
-              f.close
-              logger.debug "Created temporary zone file '#{f.path}'"
-
-              srv_dns = CyborgHood::Services::DNS.new(zone)
-              current_serial = srv_dns.serial
-              logger.debug "Current serial: #{current_serial}"
-
-              dns_result = srv_dns.check_zone_file(f.path)
-              unless dns_result.ok
-                result.message = _("Invalid zone data.")
-                f.close!
-                return result
-              end
-              logger.debug "New serial: #{dns_result.serial}"
-              # allow new serial or missing serial (to allow creating a new zone or replacing a broken zone)
-              unless current_serial.nil? or dns_result.serial > current_serial
-                result.message = _("Zone serial is not superior to current serial.")
-                f.close!
-                return result
-              end
-
-              begin
-                srv_dns.write_zone_from_file(f.path)
-                logger.debug "zone changed"
-                if srv_dns.reload_zone
-                  logger.debug "zone reloaded"
-                  result.ok = true
-                  result.message = _("Zone updated.")
-                else
-                  logger.warn "zone reload failed, replacing old content"
-                  srv_dns.replace_zone_with_backup
-                  result.message = _("Internal error. Administrator is warned.")
-                end
-              rescue
-                logger.warn "Writing zone file failed"
-                raise
-              ensure
-                f.close!
-              end
-            end
-          end
-        end
-
-        if result.message.nil?
-          # here fall lost souls
-          nil
-        else
-          result
-        end
-      end
-    end
-  end
-end
-
-bot = CyborgHood::PostmanHome::Postman.new
-
-trap('INT') do
-  bot.ask_to_stop
-end
-trap('TERM') do
-  bot.ask_to_stop
-end
-
-bot.run
diff --git a/postman_daemon b/postman_daemon
deleted file mode 100755
index 918307e..0000000
--- a/postman_daemon
+++ /dev/null
@@ -1,33 +0,0 @@
-#!/usr/bin/ruby
-
-#--
-# CyborgHood, a distributed system management software.
-# Copyright (c) 2009 Marc Dequènes (Duck) <Duck@DuckCorp.org>
-#
-# This program is free software: you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation, either version 3 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program.  If not, see <http://www.gnu.org/licenses/>.
-#++
-
-require 'daemons'
-
-options = {
-  :app_name     => "CyborgHood_Postman",
-  :dir_mode     => :normal,
-  :dir          => "/opt/cyborghood/var/run",
-  :multiple     => false,
-  :mode         => :exec,
-  :monitor      => true
-}
-# deactivated: monitor process not stopped when program is asked to stop
-#  :backtrace   => true,
-Daemons.run(File.join(File.dirname(__FILE__), 'postman'), options)
diff --git a/setup.rb b/setup.rb
new file mode 100644
index 0000000..f9dd758
--- /dev/null
+++ b/setup.rb
@@ -0,0 +1,1586 @@
+#
+# setup.rb
+#
+# Copyright (c) 2000-2005 Minero Aoki
+#
+# This program is free software.
+# You can distribute/modify this program under the terms of
+# the GNU LGPL, Lesser General Public License version 2.1.
+#
+
+unless Enumerable.method_defined?(:map)   # Ruby 1.4.6
+  module Enumerable
+    alias map collect
+  end
+end
+
+unless File.respond_to?(:read)   # Ruby 1.6
+  def File.read(fname)
+    open(fname) {|f|
+      return f.read
+    }
+  end
+end
+
+unless Errno.const_defined?(:ENOTEMPTY)   # Windows?
+  module Errno
+    class ENOTEMPTY
+      # We do not raise this exception, implementation is not needed.
+    end
+  end
+end
+
+def File.binread(fname)
+  open(fname, 'rb') {|f|
+    return f.read
+  }
+end
+
+# for corrupted Windows' stat(2)
+def File.dir?(path)
+  File.directory?((path[-1,1] == '/') ? path : path + '/')
+end
+
+
+class ConfigTable
+
+  include Enumerable
+
+  def initialize(rbconfig)
+    @rbconfig = rbconfig
+    @items = []
+    @table = {}
+    # options
+    @install_prefix = nil
+    @config_opt = nil
+    @verbose = true
+    @no_harm = false
+  end
+
+  attr_accessor :install_prefix
+  attr_accessor :config_opt
+
+  attr_writer :verbose
+
+  def verbose?
+    @verbose
+  end
+
+  attr_writer :no_harm
+
+  def no_harm?
+    @no_harm
+  end
+
+  def [](key)
+    lookup(key).resolve(self)
+  end
+
+  def []=(key, val)
+    lookup(key).set val
+  end
+
+  def names
+    @items.map {|i| i.name }
+  end
+
+  def each(&block)
+    @items.each(&block)
+  end
+
+  def key?(name)
+    @table.key?(name)
+  end
+
+  def lookup(name)
+    @table[name] or setup_rb_error "no such config item: #{name}"
+  end
+
+  def add(item)
+    @items.push item
+    @table[item.name] = item
+  end
+
+  def remove(name)
+    item = lookup(name)
+    @items.delete_if {|i| i.name == name }
+    @table.delete_if {|name, i| i.name == name }
+    item
+  end
+
+  def load_script(path, inst = nil)
+    if File.file?(path)
+      MetaConfigEnvironment.new(self, inst).instance_eval File.read(path), path
+    end
+  end
+
+  def savefile
+    '.config'
+  end
+
+  def load_savefile
+    begin
+      File.foreach(savefile()) do |line|
+        k, v = *line.split(/=/, 2)
+        self[k] = v.strip
+      end
+    rescue Errno::ENOENT
+      setup_rb_error $!.message + "\n#{File.basename($0)} config first"
+    end
+  end
+
+  def save
+    @items.each {|i| i.value }
+    File.open(savefile(), 'w') {|f|
+      @items.each do |i|
+        f.printf "%s=%s\n", i.name, i.value if i.value? and i.value
+      end
+    }
+  end
+
+  def load_standard_entries
+    standard_entries(@rbconfig).each do |ent|
+      add ent
+    end
+  end
+
+  def standard_entries(rbconfig)
+    c = rbconfig
+
+    rubypath = File.join(c['bindir'], c['ruby_install_name'] + c['EXEEXT'])
+
+    major = c['MAJOR'].to_i
+    minor = c['MINOR'].to_i
+    teeny = c['TEENY'].to_i
+    version = "#{major}.#{minor}"
+
+    # ruby ver. >= 1.4.4?
+    newpath_p = ((major >= 2) or
+                 ((major == 1) and
+                  ((minor >= 5) or
+                   ((minor == 4) and (teeny >= 4)))))
+
+    if c['rubylibdir']
+      # V > 1.6.3
+      libruby         = "#{c['prefix']}/lib/ruby"
+      librubyver      = c['rubylibdir']
+      librubyverarch  = c['archdir']
+      siteruby        = c['sitedir']
+      siterubyver     = c['sitelibdir']
+      siterubyverarch = c['sitearchdir']
+    elsif newpath_p
+      # 1.4.4 <= V <= 1.6.3
+      libruby         = "#{c['prefix']}/lib/ruby"
+      librubyver      = "#{c['prefix']}/lib/ruby/#{version}"
+      librubyverarch  = "#{c['prefix']}/lib/ruby/#{version}/#{c['arch']}"
+      siteruby        = c['sitedir']
+      siterubyver     = "$siteruby/#{version}"
+      siterubyverarch = "$siterubyver/#{c['arch']}"
+    else
+      # V < 1.4.4
+      libruby         = "#{c['prefix']}/lib/ruby"
+      librubyver      = "#{c['prefix']}/lib/ruby/#{version}"
+      librubyverarch  = "#{c['prefix']}/lib/ruby/#{version}/#{c['arch']}"
+      siteruby        = "#{c['prefix']}/lib/ruby/#{version}/site_ruby"
+      siterubyver     = siteruby
+      siterubyverarch = "$siterubyver/#{c['arch']}"
+    end
+    parameterize = lambda {|path|
+      path.sub(/\A#{Regexp.quote(c['prefix'])}/, '$prefix')
+    }
+
+    if arg = c['configure_args'].split.detect {|arg| /--with-make-prog=/ =~ arg }
+      makeprog = arg.sub(/'/, '').split(/=/, 2)[1]
+    else
+      makeprog = 'make'
+    end
+
+    [
+      ExecItem.new('installdirs', 'std/site/home',
+                   'std: install under libruby; site: install under site_ruby; home: install under $HOME')\
+          {|val, table|
+            case val
+            when 'std'
+              table['rbdir'] = '$librubyver'
+              table['sodir'] = '$librubyverarch'
+            when 'site'
+              table['rbdir'] = '$siterubyver'
+              table['sodir'] = '$siterubyverarch'
+            when 'home'
+              setup_rb_error '$HOME was not set' unless ENV['HOME']
+              table['prefix'] = ENV['HOME']
+              table['rbdir'] = '$libdir/ruby'
+              table['sodir'] = '$libdir/ruby'
+            end
+          },
+      PathItem.new('prefix', 'path', c['prefix'],
+                   'path prefix of target environment'),
+      PathItem.new('bindir', 'path', parameterize.call(c['bindir']),
+                   'the directory for commands'),
+      PathItem.new('libdir', 'path', parameterize.call(c['libdir']),
+                   'the directory for libraries'),
+      PathItem.new('datadir', 'path', parameterize.call(c['datadir']),
+                   'the directory for shared data'),
+      PathItem.new('mandir', 'path', parameterize.call(c['mandir']),
+                   'the directory for man pages'),
+      PathItem.new('sysconfdir', 'path', parameterize.call(c['sysconfdir']),
+                   'the directory for system configuration files'),
+      PathItem.new('localstatedir', 'path', parameterize.call(c['localstatedir']),
+                   'the directory for local state data'),
+      PathItem.new('libruby', 'path', libruby,
+                   'the directory for ruby libraries'),
+      PathItem.new('librubyver', 'path', librubyver,
+                   'the directory for standard ruby libraries'),
+      PathItem.new('librubyverarch', 'path', librubyverarch,
+                   'the directory for standard ruby extensions'),
+      PathItem.new('siteruby', 'path', siteruby,
+          'the directory for version-independent aux ruby libraries'),
+      PathItem.new('siterubyver', 'path', siterubyver,
+                   'the directory for aux ruby libraries'),
+      PathItem.new('siterubyverarch', 'path', siterubyverarch,
+                   'the directory for aux ruby binaries'),
+      PathItem.new('rbdir', 'path', '$siterubyver',
+                   'the directory for ruby scripts'),
+      PathItem.new('sodir', 'path', '$siterubyverarch',
+                   'the directory for ruby extentions'),
+      PathItem.new('rubypath', 'path', rubypath,
+                   'the path to set to #! line'),
+      ProgramItem.new('rubyprog', 'name', rubypath,
+                      'the ruby program using for installation'),
+      ProgramItem.new('makeprog', 'name', makeprog,
+                      'the make program to compile ruby extentions'),
+      SelectItem.new('shebang', 'all/ruby/never', 'ruby',
+                     'shebang line (#!) editing mode'),
+      BoolItem.new('without-ext', 'yes/no', 'no',
+                   'does not compile/install ruby extentions')
+    ]
+  end
+  private :standard_entries
+
+  def load_multipackage_entries
+    multipackage_entries().each do |ent|
+      add ent
+    end
+  end
+
+  def multipackage_entries
+    [
+      PackageSelectionItem.new('with', 'name,name...', '', 'ALL',
+                               'package names that you want to install'),
+      PackageSelectionItem.new('without', 'name,name...', '', 'NONE',
+                               'package names that you do not want to install')
+    ]
+  end
+  private :multipackage_entries
+
+  ALIASES = {
+    'std-ruby'         => 'librubyver',
+    'stdruby'          => 'librubyver',
+    'rubylibdir'       => 'librubyver',
+    'archdir'          => 'librubyverarch',
+    'site-ruby-common' => 'siteruby',     # For backward compatibility
+    'site-ruby'        => 'siterubyver',  # For backward compatibility
+    'bin-dir'          => 'bindir',
+    'bin-dir'          => 'bindir',
+    'rb-dir'           => 'rbdir',
+    'so-dir'           => 'sodir',
+    'data-dir'         => 'datadir',
+    'ruby-path'        => 'rubypath',
+    'ruby-prog'        => 'rubyprog',
+    'ruby'             => 'rubyprog',
+    'make-prog'        => 'makeprog',
+    'make'             => 'makeprog'
+  }
+
+  def fixup
+    ALIASES.each do |ali, name|
+      @table[ali] = @table[name]
+    end
+  end
+
+  def options_re
+    /\A--(#{@table.keys.join('|')})(?:=(.*))?\z/
+  end
+
+  def parse_opt(opt)
+    m = options_re().match(opt) or setup_rb_error "config: unknown option #{opt}"
+    m.to_a[1,2]
+  end
+
+  def dllext
+    @rbconfig['DLEXT']
+  end
+
+  def value_config?(name)
+    lookup(name).value?
+  end
+
+  class Item
+    def initialize(name, template, default, desc)
+      @name = name.freeze
+      @template = template
+      @value = default
+      @default = default
+      @description = desc
+    end
+
+    attr_reader :name
+    attr_reader :description
+
+    attr_accessor :default
+    alias help_default default
+
+    def help_opt
+      "--#{@name}=#{@template}"
+    end
+
+    def value?
+      true
+    end
+
+    def value
+      @value
+    end
+
+    def resolve(table)
+      @value.gsub(%r<\$([^/]+)>) { table[$1] }
+    end
+
+    def set(val)
+      @value = check(val)
+    end
+
+    private
+
+    def check(val)
+      setup_rb_error "config: --#{name} requires argument" unless val
+      val
+    end
+  end
+
+  class BoolItem < Item
+    def config_type
+      'bool'
+    end
+
+    def help_opt
+      "--#{@name}"
+    end
+
+    private
+
+    def check(val)
+      return 'yes' unless val
+      case val
+      when /\Ay(es)?\z/i, /\At(rue)?\z/i then 'yes'
+      when /\An(o)?\z/i, /\Af(alse)\z/i  then 'no'
+      else
+        setup_rb_error "config: --#{@name} accepts only yes/no for argument"
+      end
+    end
+  end
+
+  class PathItem < Item
+    def config_type
+      'path'
+    end
+
+    private
+
+    def check(path)
+      setup_rb_error "config: --#{@name} requires argument"  unless path
+      path[0,1] == '$' ? path : File.expand_path(path)
+    end
+  end
+
+  class ProgramItem < Item
+    def config_type
+      'program'
+    end
+  end
+
+  class SelectItem < Item
+    def initialize(name, selection, default, desc)
+      super
+      @ok = selection.split('/')
+    end
+
+    def config_type
+      'select'
+    end
+
+    private
+
+    def check(val)
+      unless @ok.include?(val.strip)
+        setup_rb_error "config: use --#{@name}=#{@template} (#{val})"
+      end
+      val.strip
+    end
+  end
+
+  class ExecItem < Item
+    def initialize(name, selection, desc, &block)
+      super name, selection, nil, desc
+      @ok = selection.split('/')
+      @action = block
+    end
+
+    def config_type
+      'exec'
+    end
+
+    def value?
+      false
+    end
+
+    def resolve(table)
+      setup_rb_error "$#{name()} wrongly used as option value"
+    end
+
+    undef set
+
+    def evaluate(val, table)
+      v = val.strip.downcase
+      unless @ok.include?(v)
+        setup_rb_error "invalid option --#{@name}=#{val} (use #{@template})"
+      end
+      @action.call v, table
+    end
+  end
+
+  class PackageSelectionItem < Item
+    def initialize(name, template, default, help_default, desc)
+      super name, template, default, desc
+      @help_default = help_default
+    end
+
+    attr_reader :help_default
+
+    def config_type
+      'package'
+    end
+
+    private
+
+    def check(val)
+      unless File.dir?("packages/#{val}")
+        setup_rb_error "config: no such package: #{val}"
+      end
+      val
+    end
+  end
+
+  class MetaConfigEnvironment
+    def initialize(config, installer)
+      @config = config
+      @installer = installer
+    end
+
+    def config_names
+      @config.names
+    end
+
+    def config?(name)
+      @config.key?(name)
+    end
+
+    def bool_config?(name)
+      @config.lookup(name).config_type == 'bool'
+    end
+
+    def path_config?(name)
+      @config.lookup(name).config_type == 'path'
+    end
+
+    def value_config?(name)
+      @config.lookup(name).config_type != 'exec'
+    end
+
+    def add_config(item)
+      @config.add item
+    end
+
+    def add_bool_config(name, default, desc)
+      @config.add BoolItem.new(name, 'yes/no', default ? 'yes' : 'no', desc)
+    end
+
+    def add_path_config(name, default, desc)
+      @config.add PathItem.new(name, 'path', default, desc)
+    end
+
+    def set_config_default(name, default)
+      @config.lookup(name).default = default
+    end
+
+    def remove_config(name)
+      @config.remove(name)
+    end
+
+    # For only multipackage
+    def packages
+      raise '[setup.rb fatal] multi-package metaconfig API packages() called for single-package; contact application package vendor' unless @installer
+      @installer.packages
+    end
+
+    # For only multipackage
+    def declare_packages(list)
+      raise '[setup.rb fatal] multi-package metaconfig API declare_packages() called for single-package; contact application package vendor' unless @installer
+      @installer.packages = list
+    end
+  end
+
+end   # class ConfigTable
+
+
+# This module requires: #verbose?, #no_harm?
+module FileOperations
+
+  def mkdir_p(dirname, prefix = nil)
+    dirname = prefix + File.expand_path(dirname) if prefix
+    $stderr.puts "mkdir -p #{dirname}" if verbose?
+    return if no_harm?
+
+    # Does not check '/', it's too abnormal.
+    dirs = File.expand_path(dirname).split(%r<(?=/)>)
+    if /\A[a-z]:\z/i =~ dirs[0]
+      disk = dirs.shift
+      dirs[0] = disk + dirs[0]
+    end
+    dirs.each_index do |idx|
+      path = dirs[0..idx].join('')
+      Dir.mkdir path unless File.dir?(path)
+    end
+  end
+
+  def rm_f(path)
+    $stderr.puts "rm -f #{path}" if verbose?
+    return if no_harm?
+    force_remove_file path
+  end
+
+  def rm_rf(path)
+    $stderr.puts "rm -rf #{path}" if verbose?
+    return if no_harm?
+    remove_tree path
+  end
+
+  def remove_tree(path)
+    if File.symlink?(path)
+      remove_file path
+    elsif File.dir?(path)
+      remove_tree0 path
+    else
+      force_remove_file path
+    end
+  end
+
+  def remove_tree0(path)
+    Dir.foreach(path) do |ent|
+      next if ent == '.'
+      next if ent == '..'
+      entpath = "#{path}/#{ent}"
+      if File.symlink?(entpath)
+        remove_file entpath
+      elsif File.dir?(entpath)
+        remove_tree0 entpath
+      else
+        force_remove_file entpath
+      end
+    end
+    begin
+      Dir.rmdir path
+    rescue Errno::ENOTEMPTY
+      # directory may not be empty
+    end
+  end
+
+  def move_file(src, dest)
+    force_remove_file dest
+    begin
+      File.rename src, dest
+    rescue
+      File.open(dest, 'wb') {|f|
+        f.write File.binread(src)
+      }
+      File.chmod File.stat(src).mode, dest
+      File.unlink src
+    end
+  end
+
+  def force_remove_file(path)
+    begin
+      remove_file path
+    rescue
+    end
+  end
+
+  def remove_file(path)
+    File.chmod 0777, path
+    File.unlink path
+  end
+
+  def install(from, dest, mode, prefix = nil)
+    $stderr.puts "install #{from} #{dest}" if verbose?
+    return if no_harm?
+
+    realdest = prefix ? prefix + File.expand_path(dest) : dest
+    realdest = File.join(realdest, File.basename(from)) if File.dir?(realdest)
+    str = File.binread(from)
+    if diff?(str, realdest)
+      verbose_off {
+        rm_f realdest if File.exist?(realdest)
+      }
+      File.open(realdest, 'wb') {|f|
+        f.write str
+      }
+      File.chmod mode, realdest
+
+      File.open("#{objdir_root()}/InstalledFiles", 'a') {|f|
+        if prefix
+          f.puts realdest.sub(prefix, '')
+        else
+          f.puts realdest
+        end
+      }
+    end
+  end
+
+  def diff?(new_content, path)
+    return true unless File.exist?(path)
+    new_content != File.binread(path)
+  end
+
+  def command(*args)
+    $stderr.puts args.join(' ') if verbose?
+    system(*args) or raise RuntimeError,
+        "system(#{args.map{|a| a.inspect }.join(' ')}) failed"
+  end
+
+  def ruby(*args)
+    command config('rubyprog'), *args
+  end
+  
+  def make(task = nil)
+    command(*[config('makeprog'), task].compact)
+  end
+
+  def extdir?(dir)
+    File.exist?("#{dir}/MANIFEST") or File.exist?("#{dir}/extconf.rb")
+  end
+
+  def files_of(dir)
+    Dir.open(dir) {|d|
+      return d.select {|ent| File.file?("#{dir}/#{ent}") }
+    }
+  end
+
+  DIR_REJECT = %w( . .. CVS SCCS RCS CVS.adm .svn )
+
+  def directories_of(dir)
+    Dir.open(dir) {|d|
+      return d.select {|ent| File.dir?("#{dir}/#{ent}") } - DIR_REJECT
+    }
+  end
+
+end
+
+
+# This module requires: #srcdir_root, #objdir_root, #relpath
+module HookScriptAPI
+
+  def get_config(key)
+    @config[key]
+  end
+
+  alias config get_config
+
+  # obsolete: use metaconfig to change configuration
+  def set_config(key, val)
+    @config[key] = val
+  end
+
+  #
+  # srcdir/objdir (works only in the package directory)
+  #
+
+  def curr_srcdir
+    "#{srcdir_root()}/#{relpath()}"
+  end
+
+  def curr_objdir
+    "#{objdir_root()}/#{relpath()}"
+  end
+
+  def srcfile(path)
+    "#{curr_srcdir()}/#{path}"
+  end
+
+  def srcexist?(path)
+    File.exist?(srcfile(path))
+  end
+
+  def srcdirectory?(path)
+    File.dir?(srcfile(path))
+  end
+  
+  def srcfile?(path)
+    File.file?(srcfile(path))
+  end
+
+  def srcentries(path = '.')
+    Dir.open("#{curr_srcdir()}/#{path}") {|d|
+      return d.to_a - %w(. ..)
+    }
+  end
+
+  def srcfiles(path = '.')
+    srcentries(path).select {|fname|
+      File.file?(File.join(curr_srcdir(), path, fname))
+    }
+  end
+
+  def srcdirectories(path = '.')
+    srcentries(path).select {|fname|
+      File.dir?(File.join(curr_srcdir(), path, fname))
+    }
+  end
+
+end
+
+
+class ToplevelInstaller
+
+  Version   = '3.4.1'
+  Copyright = 'Copyright (c) 2000-2005 Minero Aoki'
+
+  TASKS = [
+    [ 'all',      'do config, setup, then install' ],
+    [ 'config',   'saves your configurations' ],
+    [ 'show',     'shows current configuration' ],
+    [ 'setup',    'compiles ruby extentions and others' ],
+    [ 'install',  'installs files' ],
+    [ 'test',     'run all tests in test/' ],
+    [ 'clean',    "does `make clean' for each extention" ],
+    [ 'distclean',"does `make distclean' for each extention" ]
+  ]
+
+  def ToplevelInstaller.invoke
+    config = ConfigTable.new(load_rbconfig())
+    config.load_standard_entries
+    config.load_multipackage_entries if multipackage?
+    config.fixup
+    klass = (multipackage?() ? ToplevelInstallerMulti : ToplevelInstaller)
+    klass.new(File.dirname($0), config).invoke
+  end
+
+  def ToplevelInstaller.multipackage?
+    File.dir?(File.dirname($0) + '/packages')
+  end
+
+  def ToplevelInstaller.load_rbconfig
+    if arg = ARGV.detect {|arg| /\A--rbconfig=/ =~ arg }
+      ARGV.delete(arg)
+      load File.expand_path(arg.split(/=/, 2)[1])
+      $".push 'rbconfig.rb'
+    else
+      require 'rbconfig'
+    end
+    ::Config::CONFIG
+  end
+
+  def initialize(ardir_root, config)
+    @ardir = File.expand_path(ardir_root)
+    @config = config
+    # cache
+    @valid_task_re = nil
+  end
+
+  def config(key)
+    @config[key]
+  end
+
+  def inspect
+    "#<#{self.class} #{__id__()}>"
+  end
+
+  def invoke
+    run_metaconfigs
+    case task = parsearg_global()
+    when nil, 'all'
+      parsearg_config
+      init_installers
+      exec_config
+      exec_setup
+      exec_install
+    else
+      case task
+      when 'config', 'test'
+        ;
+      when 'clean', 'distclean'
+        @config.load_savefile if File.exist?(@config.savefile)
+      else
+        @config.load_savefile
+      end
+      __send__ "parsearg_#{task}"
+      init_installers
+      __send__ "exec_#{task}"
+    end
+  end
+  
+  def run_metaconfigs
+    @config.load_script "#{@ardir}/metaconfig"
+  end
+
+  def init_installers
+    @installer = Installer.new(@config, @ardir, File.expand_path('.'))
+  end
+
+  #
+  # Hook Script API bases
+  #
+
+  def srcdir_root
+    @ardir
+  end
+
+  def objdir_root
+    '.'
+  end
+
+  def relpath
+    '.'
+  end
+
+  #
+  # Option Parsing
+  #
+
+  def parsearg_global
+    while arg = ARGV.shift
+      case arg
+      when /\A\w+\z/
+        setup_rb_error "invalid task: #{arg}" unless valid_task?(arg)
+        return arg
+      when '-q', '--quiet'
+        @config.verbose = false
+      when '--verbose'
+        @config.verbose = true
+      when '--help'
+        print_usage $stdout
+        exit 0
+      when '--version'
+        puts "#{File.basename($0)} version #{Version}"
+        exit 0
+      when '--copyright'
+        puts Copyright
+        exit 0
+      else
+        setup_rb_error "unknown global option '#{arg}'"
+      end
+    end
+    nil
+  end
+
+  def valid_task?(t)
+    valid_task_re() =~ t
+  end
+
+  def valid_task_re
+    @valid_task_re ||= /\A(?:#{TASKS.map {|task,desc| task }.join('|')})\z/
+  end
+
+  def parsearg_no_options
+    unless ARGV.empty?
+      task = caller(0).first.slice(%r<`parsearg_(\w+)'>, 1)
+      setup_rb_error "#{task}: unknown options: #{ARGV.join(' ')}"
+    end
+  end
+
+  alias parsearg_show       parsearg_no_options
+  alias parsearg_setup      parsearg_no_options
+  alias parsearg_test       parsearg_no_options
+  alias parsearg_clean      parsearg_no_options
+  alias parsearg_distclean  parsearg_no_options
+
+  def parsearg_config
+    evalopt = []
+    set = []
+    @config.config_opt = []
+    while i = ARGV.shift
+      if /\A--?\z/ =~ i
+        @config.config_opt = ARGV.dup
+        break
+      end
+      name, value = *@config.parse_opt(i)
+      if @config.value_config?(name)
+        @config[name] = value
+      else
+        evalopt.push [name, value]
+      end
+      set.push name
+    end
+    evalopt.each do |name, value|
+      @config.lookup(name).evaluate value, @config
+    end
+    # Check if configuration is valid
+    set.each do |n|
+      @config[n] if @config.value_config?(n)
+    end
+  end
+
+  def parsearg_install
+    @config.no_harm = false
+    @config.install_prefix = ''
+    while a = ARGV.shift
+      case a
+      when '--no-harm'
+        @config.no_harm = true
+      when /\A--prefix=/
+        path = a.split(/=/, 2)[1]
+        path = File.expand_path(path) unless path[0,1] == '/'
+        @config.install_prefix = path
+      else
+        setup_rb_error "install: unknown option #{a}"
+      end
+    end
+  end
+
+  def print_usage(out)
+    out.puts 'Typical Installation Procedure:'
+    out.puts "  $ ruby #{File.basename $0} config"
+    out.puts "  $ ruby #{File.basename $0} setup"
+    out.puts "  # ruby #{File.basename $0} install (may require root privilege)"
+    out.puts
+    out.puts 'Detailed Usage:'
+    out.puts "  ruby #{File.basename $0} <global option>"
+    out.puts "  ruby #{File.basename $0} [<global options>] <task> [<task options>]"
+
+    fmt = "  %-24s %s\n"
+    out.puts
+    out.puts 'Global options:'
+    out.printf fmt, '-q,--quiet',   'suppress message outputs'
+    out.printf fmt, '   --verbose', 'output messages verbosely'
+    out.printf fmt, '   --help',    'print this message'
+    out.printf fmt, '   --version', 'print version and quit'
+    out.printf fmt, '   --copyright',  'print copyright and quit'
+    out.puts
+    out.puts 'Tasks:'
+    TASKS.each do |name, desc|
+      out.printf fmt, name, desc
+    end
+
+    fmt = "  %-24s %s [%s]\n"
+    out.puts
+    out.puts 'Options for CONFIG or ALL:'
+    @config.each do |item|
+      out.printf fmt, item.help_opt, item.description, item.help_default
+    end
+    out.printf fmt, '--rbconfig=path', 'rbconfig.rb to load',"running ruby's"
+    out.puts
+    out.puts 'Options for INSTALL:'
+    out.printf fmt, '--no-harm', 'only display what to do if given', 'off'
+    out.printf fmt, '--prefix=path',  'install path prefix', ''
+    out.puts
+  end
+
+  #
+  # Task Handlers
+  #
+
+  def exec_config
+    @installer.exec_config
+    @config.save   # must be final
+  end
+
+  def exec_setup
+    @installer.exec_setup
+  end
+
+  def exec_install
+    @installer.exec_install
+  end
+
+  def exec_test
+    @installer.exec_test
+  end
+
+  def exec_show
+    @config.each do |i|
+      printf "%-20s %s\n", i.name, i.value if i.value?
+    end
+  end
+
+  def exec_clean
+    @installer.exec_clean
+  end
+
+  def exec_distclean
+    @installer.exec_distclean
+  end
+
+end   # class ToplevelInstaller
+
+
+class ToplevelInstallerMulti < ToplevelInstaller
+
+  include FileOperations
+
+  def initialize(ardir_root, config)
+    super
+    @packages = directories_of("#{@ardir}/packages")
+    raise 'no package exists' if @packages.empty?
+    @root_installer = Installer.new(@config, @ardir, File.expand_path('.'))
+  end
+
+  def run_metaconfigs
+    @config.load_script "#{@ardir}/metaconfig", self
+    @packages.each do |name|
+      @config.load_script "#{@ardir}/packages/#{name}/metaconfig"
+    end
+  end
+
+  attr_reader :packages
+
+  def packages=(list)
+    raise 'package list is empty' if list.empty?
+    list.each do |name|
+      raise "directory packages/#{name} does not exist"\
+              unless File.dir?("#{@ardir}/packages/#{name}")
+    end
+    @packages = list
+  end
+
+  def init_installers
+    @installers = {}
+    @packages.each do |pack|
+      @installers[pack] = Installer.new(@config,
+                                       "#{@ardir}/packages/#{pack}",
+                                       "packages/#{pack}")
+    end
+    with    = extract_selection(config('with'))
+    without = extract_selection(config('without'))
+    @selected = @installers.keys.select {|name|
+                  (with.empty? or with.include?(name)) \
+                      and not without.include?(name)
+                }
+  end
+
+  def extract_selection(list)
+    a = list.split(/,/)
+    a.each do |name|
+      setup_rb_error "no such package: #{name}"  unless @installers.key?(name)
+    end
+    a
+  end
+
+  def print_usage(f)
+    super
+    f.puts 'Inluded packages:'
+    f.puts '  ' + @packages.sort.join(' ')
+    f.puts
+  end
+
+  #
+  # Task Handlers
+  #
+
+  def exec_config
+    run_hook 'pre-config'
+    each_selected_installers {|inst| inst.exec_config }
+    run_hook 'post-config'
+    @config.save   # must be final
+  end
+
+  def exec_setup
+    run_hook 'pre-setup'
+    each_selected_installers {|inst| inst.exec_setup }
+    run_hook 'post-setup'
+  end
+
+  def exec_install
+    run_hook 'pre-install'
+    each_selected_installers {|inst| inst.exec_install }
+    run_hook 'post-install'
+  end
+
+  def exec_test
+    run_hook 'pre-test'
+    each_selected_installers {|inst| inst.exec_test }
+    run_hook 'post-test'
+  end
+
+  def exec_clean
+    rm_f @config.savefile
+    run_hook 'pre-clean'
+    each_selected_installers {|inst| inst.exec_clean }
+    run_hook 'post-clean'
+  end
+
+  def exec_distclean
+    rm_f @config.savefile
+    run_hook 'pre-distclean'
+    each_selected_installers {|inst| inst.exec_distclean }
+    run_hook 'post-distclean'
+  end
+
+  #
+  # lib
+  #
+
+  def each_selected_installers
+    Dir.mkdir 'packages' unless File.dir?('packages')
+    @selected.each do |pack|
+      $stderr.puts "Processing the package `#{pack}' ..." if verbose?
+      Dir.mkdir "packages/#{pack}" unless File.dir?("packages/#{pack}")
+      Dir.chdir "packages/#{pack}"
+      yield @installers[pack]
+      Dir.chdir '../..'
+    end
+  end
+
+  def run_hook(id)
+    @root_installer.run_hook id
+  end
+
+  # module FileOperations requires this
+  def verbose?
+    @config.verbose?
+  end
+
+  # module FileOperations requires this
+  def no_harm?
+    @config.no_harm?
+  end
+
+end   # class ToplevelInstallerMulti
+
+
+class Installer
+
+  FILETYPES = %w( bin lib ext data conf man )
+
+  include FileOperations
+  include HookScriptAPI
+
+  def initialize(config, srcroot, objroot)
+    @config = config
+    @srcdir = File.expand_path(srcroot)
+    @objdir = File.expand_path(objroot)
+    @currdir = '.'
+  end
+
+  def inspect
+    "#<#{self.class} #{File.basename(@srcdir)}>"
+  end
+
+  def noop(rel)
+  end
+
+  #
+  # Hook Script API base methods
+  #
+
+  def srcdir_root
+    @srcdir
+  end
+
+  def objdir_root
+    @objdir
+  end
+
+  def relpath
+    @currdir
+  end
+
+  #
+  # Config Access
+  #
+
+  # module FileOperations requires this
+  def verbose?
+    @config.verbose?
+  end
+
+  # module FileOperations requires this
+  def no_harm?
+    @config.no_harm?
+  end
+
+  def verbose_off
+    begin
+      save, @config.verbose = @config.verbose?, false
+      yield
+    ensure
+      @config.verbose = save
+    end
+  end
+
+  #
+  # TASK config
+  #
+
+  def exec_config
+    exec_task_traverse 'config'
+  end
+
+  alias config_dir_bin noop
+  alias config_dir_lib noop
+
+  def config_dir_ext(rel)
+    extconf if extdir?(curr_srcdir())
+  end
+
+  alias config_dir_data noop
+  alias config_dir_conf noop
+  alias config_dir_man noop
+
+  def extconf
+    ruby "#{curr_srcdir()}/extconf.rb", *@config.config_opt
+  end
+
+  #
+  # TASK setup
+  #
+
+  def exec_setup
+    exec_task_traverse 'setup'
+  end
+
+  def setup_dir_bin(rel)
+    files_of(curr_srcdir()).each do |fname|
+      update_shebang_line "#{curr_srcdir()}/#{fname}"
+    end
+  end
+
+  alias setup_dir_lib noop
+
+  def setup_dir_ext(rel)
+    make if extdir?(curr_srcdir())
+  end
+
+  alias setup_dir_data noop
+  alias setup_dir_conf noop
+  alias setup_dir_man noop
+
+  def update_shebang_line(path)
+    return if no_harm?
+    return if config('shebang') == 'never'
+    old = Shebang.load(path)
+    if old
+      $stderr.puts "warning: #{path}: Shebang line includes too many args.  It is not portable and your program may not work." if old.args.size > 1
+      new = new_shebang(old)
+      return if new.to_s == old.to_s
+    else
+      return unless config('shebang') == 'all'
+      new = Shebang.new(config('rubypath'))
+    end
+    $stderr.puts "updating shebang: #{File.basename(path)}" if verbose?
+    open_atomic_writer(path) {|output|
+      File.open(path, 'rb') {|f|
+        f.gets if old   # discard
+        output.puts new.to_s
+        output.print f.read
+      }
+    }
+  end
+
+  def new_shebang(old)
+    if /\Aruby/ =~ File.basename(old.cmd)
+      Shebang.new(config('rubypath'), old.args)
+    elsif File.basename(old.cmd) == 'env' and old.args.first == 'ruby'
+      Shebang.new(config('rubypath'), old.args[1..-1])
+    else
+      return old unless config('shebang') == 'all'
+      Shebang.new(config('rubypath'))
+    end
+  end
+
+  def open_atomic_writer(path, &block)
+    tmpfile = File.basename(path) + '.tmp'
+    begin
+      File.open(tmpfile, 'wb', &block)
+      File.rename tmpfile, File.basename(path)
+    ensure
+      File.unlink tmpfile if File.exist?(tmpfile)
+    end
+  end
+
+  class Shebang
+    def Shebang.load(path)
+      line = nil
+      File.open(path) {|f|
+        line = f.gets
+      }
+      return nil unless /\A#!/ =~ line
+      parse(line)
+    end
+
+    def Shebang.parse(line)
+      cmd, *args = *line.strip.sub(/\A\#!/, '').split(' ')
+      new(cmd, args)
+    end
+
+    def initialize(cmd, args = [])
+      @cmd = cmd
+      @args = args
+    end
+
+    attr_reader :cmd
+    attr_reader :args
+
+    def to_s
+      "#! #{@cmd}" + (@args.empty? ? '' : " #{@args.join(' ')}")
+    end
+  end
+
+  #
+  # TASK install
+  #
+
+  def exec_install
+    rm_f 'InstalledFiles'
+    exec_task_traverse 'install'
+  end
+
+  def install_dir_bin(rel)
+    install_files targetfiles(), "#{config('bindir')}/#{rel}", 0755
+  end
+
+  def install_dir_lib(rel)
+    install_files libfiles(), "#{config('rbdir')}/#{rel}", 0644
+  end
+
+  def install_dir_ext(rel)
+    return unless extdir?(curr_srcdir())
+    install_files rubyextentions('.'),
+                  "#{config('sodir')}/#{File.dirname(rel)}",
+                  0555
+  end
+
+  def install_dir_data(rel)
+    install_files targetfiles(), "#{config('datadir')}/#{rel}", 0644
+  end
+
+  def install_dir_conf(rel)
+    # FIXME: should not remove current config files
+    # (rename previous file to .old/.org)
+    install_files targetfiles(), "#{config('sysconfdir')}/#{rel}", 0644
+  end
+
+  def install_dir_man(rel)
+    install_files targetfiles(), "#{config('mandir')}/#{rel}", 0644
+  end
+
+  def install_files(list, dest, mode)
+    mkdir_p dest, @config.install_prefix
+    list.each do |fname|
+      install fname, dest, mode, @config.install_prefix
+    end
+  end
+
+  def libfiles
+    glob_reject(%w(*.y *.output), targetfiles())
+  end
+
+  def rubyextentions(dir)
+    ents = glob_select("*.#{@config.dllext}", targetfiles())
+    if ents.empty?
+      setup_rb_error "no ruby extention exists: 'ruby #{$0} setup' first"
+    end
+    ents
+  end
+
+  def targetfiles
+    mapdir(existfiles() - hookfiles())
+  end
+
+  def mapdir(ents)
+    ents.map {|ent|
+      if File.exist?(ent)
+      then ent                         # objdir
+      else "#{curr_srcdir()}/#{ent}"   # srcdir
+      end
+    }
+  end
+
+  # picked up many entries from cvs-1.11.1/src/ignore.c
+  JUNK_FILES = %w( 
+    core RCSLOG tags TAGS .make.state
+    .nse_depinfo #* .#* cvslog.* ,* .del-* *.olb
+    *~ *.old *.bak *.BAK *.orig *.rej _$* *$
+
+    *.org *.in .*
+  )
+
+  def existfiles
+    glob_reject(JUNK_FILES, (files_of(curr_srcdir()) | files_of('.')))
+  end
+
+  def hookfiles
+    %w( pre-%s post-%s pre-%s.rb post-%s.rb ).map {|fmt|
+      %w( config setup install clean ).map {|t| sprintf(fmt, t) }
+    }.flatten
+  end
+
+  def glob_select(pat, ents)
+    re = globs2re([pat])
+    ents.select {|ent| re =~ ent }
+  end
+
+  def glob_reject(pats, ents)
+    re = globs2re(pats)
+    ents.reject {|ent| re =~ ent }
+  end
+
+  GLOB2REGEX = {
+    '.' => '\.',
+    '$' => '\$',
+    '#' => '\#',
+    '*' => '.*'
+  }
+
+  def globs2re(pats)
+    /\A(?:#{
+      pats.map {|pat| pat.gsub(/[\.\$\#\*]/) {|ch| GLOB2REGEX[ch] } }.join('|')
+    })\z/
+  end
+
+  #
+  # TASK test
+  #
+
+  TESTDIR = 'test'
+
+  def exec_test
+    unless File.directory?('test')
+      $stderr.puts 'no test in this package' if verbose?
+      return
+    end
+    $stderr.puts 'Running tests...' if verbose?
+    begin
+      require 'test/unit'
+    rescue LoadError
+      setup_rb_error 'test/unit cannot loaded.  You need Ruby 1.8 or later to invoke this task.'
+    end
+    runner = Test::Unit::AutoRunner.new(true)
+    runner.to_run << TESTDIR
+    runner.run
+  end
+
+  #
+  # TASK clean
+  #
+
+  def exec_clean
+    exec_task_traverse 'clean'
+    rm_f @config.savefile
+    rm_f 'InstalledFiles'
+  end
+
+  alias clean_dir_bin noop
+  alias clean_dir_lib noop
+  alias clean_dir_data noop
+  alias clean_dir_conf noop
+  alias clean_dir_man noop
+
+  def clean_dir_ext(rel)
+    return unless extdir?(curr_srcdir())
+    make 'clean' if File.file?('Makefile')
+  end
+
+  #
+  # TASK distclean
+  #
+
+  def exec_distclean
+    exec_task_traverse 'distclean'
+    rm_f @config.savefile
+    rm_f 'InstalledFiles'
+  end
+
+  alias distclean_dir_bin noop
+  alias distclean_dir_lib noop
+
+  def distclean_dir_ext(rel)
+    return unless extdir?(curr_srcdir())
+    make 'distclean' if File.file?('Makefile')
+  end
+
+  alias distclean_dir_data noop
+  alias distclean_dir_conf noop
+  alias distclean_dir_man noop
+
+  #
+  # Traversing
+  #
+
+  def exec_task_traverse(task)
+    run_hook "pre-#{task}"
+    FILETYPES.each do |type|
+      if type == 'ext' and config('without-ext') == 'yes'
+        $stderr.puts 'skipping ext/* by user option' if verbose?
+        next
+      end
+      traverse task, type, "#{task}_dir_#{type}"
+    end
+    run_hook "post-#{task}"
+  end
+
+  def traverse(task, rel, mid)
+    dive_into(rel) {
+      run_hook "pre-#{task}"
+      __send__ mid, rel.sub(%r[\A.*?(?:/|\z)], '')
+      directories_of(curr_srcdir()).each do |d|
+        traverse task, "#{rel}/#{d}", mid
+      end
+      run_hook "post-#{task}"
+    }
+  end
+
+  def dive_into(rel)
+    return unless File.dir?("#{@srcdir}/#{rel}")
+
+    dir = File.basename(rel)
+    Dir.mkdir dir unless File.dir?(dir)
+    prevdir = Dir.pwd
+    Dir.chdir dir
+    $stderr.puts '---> ' + rel if verbose?
+    @currdir = rel
+    yield
+    Dir.chdir prevdir
+    $stderr.puts '<--- ' + rel if verbose?
+    @currdir = File.dirname(rel)
+  end
+
+  def run_hook(id)
+    path = [ "#{curr_srcdir()}/#{id}",
+             "#{curr_srcdir()}/#{id}.rb" ].detect {|cand| File.file?(cand) }
+    return unless path
+    begin
+      instance_eval File.read(path), path, 1
+    rescue
+      raise if $DEBUG
+      setup_rb_error "hook #{path} failed:\n" + $!.message
+    end
+  end
+
+end   # class Installer
+
+
+class SetupError < StandardError; end
+
+def setup_rb_error(msg)
+  raise SetupError, msg
+end
+
+if $0 == __FILE__
+  begin
+    ToplevelInstaller.invoke
+  rescue SetupError
+    raise if $DEBUG
+    $stderr.puts $!.message
+    $stderr.puts "Try 'ruby #{$0} --help' for detailed usage."
+    exit 1
+  end
+end
