gepetto 0.0.8

data/app_generators/gepetto/templates/script/puppetca

@@ -0,0 +1,3 @@
+#!/bin/sh
+
+/usr/sbin/puppetca --ssldir $PWD/tmp/ssl $*

data/app_generators/gepetto/templates/script/puppetmasterd

@@ -0,0 +1,13 @@
+#!/bin/sh
+
+# create tmp if needed, other directories are created by puppetmasterd
+[ -d tmp ] || mkdir tmp
+
+# change working directories
+OPTIONS="--logdir=$PWD/log --vardir=$PWD/tmp/lib --rundir=$PWD/tmp/run --ssldir=$PWD/tmp/ssl"
+# use local files
+OPTIONS="$OPTIONS --templatedir=$PWD/templates --manifestdir=$PWD/manifests --modulepath=$PWD/modules --confdir=$PWD/config"
+
+OPTIONS="$OPTIONS --certname=puppet --logdest=console"
+
+/usr/sbin/puppetmasterd --no-daemonize $OPTIONS $*

data/app_generators/gepetto/templates/script/puppetrun

@@ -0,0 +1,2 @@
+#!/bin/sh
+/usr/sbin/puppetrun --ssldir=$PWD/tmp/ssl --confdir=$PWD/config --certname=puppet $*

data/bin/gepetto

@@ -0,0 +1,18 @@
+#!/usr/bin/env ruby
+
+require 'rubygems'
+require 'rubigen'
+
+if %w(-v --version).include? ARGV.first
+  require 'gepetto/version'
+  puts "#{File.basename($0)} #{Gepetto::VERSION}"
+  exit(0)
+end
+
+require 'rubigen/scripts/generate'
+RubiGen::Base.use_application_sources!
+
+RubiGen::Base.prepend_sources(
+  RubiGen::PathSource.new(:app, File.join(File.dirname(__FILE__), "..", "app_generators"))
+)
+RubiGen::Scripts::Generate.new.run(ARGV, :generator => 'gepetto')

data/gepetto.gemspec

@@ -0,0 +1,37 @@
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{gepetto}
+  s.version = "0.0.7"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Alban Peignier"]
+  s.date = %q{2009-08-20}
+  s.default_executable = %q{gepetto}
+  s.description = %q{A helper suite for Puppet projects to create, manage and help daily development
+
+More information about Puppet: http://reductivelabs.com/trac/puppet/}
+  s.email = ["alban.peignier@free.fr"]
+  s.executables = ["gepetto"]
+  s.extra_rdoc_files = ["History.txt", "Manifest.txt"]
+  s.files = ["History.txt", "Manifest.txt", "README.rdoc", "Rakefile", "app_generators/gepetto/USAGE", "app_generators/gepetto/gepetto_generator.rb", "app_generators/gepetto/templates/Rakefile", "app_generators/gepetto/templates/config/fileserver.conf", "app_generators/gepetto/templates/config/puppet.conf", "app_generators/gepetto/templates/manifests/classes/empty.pp", "app_generators/gepetto/templates/manifests/defaults.pp", "app_generators/gepetto/templates/manifests/nodes.pp", "app_generators/gepetto/templates/manifests/site.pp", "app_generators/gepetto/templates/manifests/templates.pp", "app_generators/gepetto/templates/script/module", "app_generators/gepetto/templates/script/puppetca", "app_generators/gepetto/templates/script/puppetmasterd", "app_generators/gepetto/templates/script/puppetrun", "bin/gepetto", "gepetto.gemspec", "lib/gepetto.rb", "lib/gepetto/tasks.rb", "puppet_generators/module/USAGE", "puppet_generators/module/module_generator.rb", "puppet_generators/module/templates/README", "puppet_generators/module/templates/manifests/init.pp", "script/destroy", "script/generate", "tasks/host.pp", "tasks/log.rake", "tasks/puppet.rake", "tasks/sandbox.pp", "tasks/sandbox.rake", "tasks/tmp.rake", "tasks/utils.rake"]
+  s.homepage = %q{http://github.com/albanpeignier/gepetto/}
+  s.rdoc_options = ["--main", "README.rdoc"]
+  s.require_paths = ["lib"]
+  s.rubyforge_project = %q{gepetto}
+  s.rubygems_version = %q{1.3.4}
+  s.summary = %q{A helper suite for Puppet projects to create, manage and help daily development  More information about Puppet: http://reductivelabs.com/trac/puppet/}
+
+  if s.respond_to? :specification_version then
+    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
+    s.specification_version = 3
+
+    if Gem::Version.new(Gem::RubyGemsVersion) >= Gem::Version.new('1.2.0') then
+      s.add_development_dependency(%q<hoe>, [">= 2.3.3"])
+    else
+      s.add_dependency(%q<hoe>, [">= 2.3.3"])
+    end
+  else
+    s.add_dependency(%q<hoe>, [">= 2.3.3"])
+  end
+end

data/lib/gepetto.rb

@@ -0,0 +1,6 @@
+$:.unshift(File.dirname(__FILE__)) unless
+  $:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
+
+module Gepetto
+  VERSION = '0.0.8'
+end

data/lib/gepetto/tasks.rb

@@ -0,0 +1 @@
+Dir[File.join(File.dirname(__FILE__), %w[.. .. tasks], '**/*.rake')].each { |rake| load rake }

data/puppet_generators/module/USAGE

@@ -0,0 +1,18 @@
+Description:
+    Create an empty module organisation as specified by
+    http://reductivelabs.com/trac/puppet/wiki/ModuleOrganisation
+
+    This generates a module directories and files into modules/<modulename>.
+
+Example:
+    ./script/generate module passenger
+
+    creates directories :
+      modules/passenger/templates
+      modules/passenger/files
+      modules/passenger/depends
+
+    creates files :
+      modules/passenger/README
+      modules/passenger/manifests/init.pp
+      modules/passenger/manifests/defaults.pp

data/puppet_generators/module/module_generator.rb

@@ -0,0 +1,24 @@
+require 'rbconfig'
+
+class ModuleGenerator < RubiGen::Base
+
+  attr_reader :module_name
+
+  def initialize(runtime_args, runtime_options = {})
+    super
+    usage if args.empty?
+    @module_name = args.shift
+    @destination_root = "modules/#{module_name}"
+  end
+
+  def manifest
+    record do |m|
+      # Root directory and all subdirectories.
+      m.directory ''
+      %w{manifests files templates}.each { |path| m.directory path }
+      m.template_copy_each %w( README )
+      m.template_copy_each %w( init.pp ), 'manifests'
+    end
+  end
+
+end

data/script/destroy

@@ -0,0 +1,14 @@
+#!/usr/bin/env ruby
+APP_ROOT = File.expand_path(File.join(File.dirname(__FILE__), '..'))
+
+begin
+  require 'rubigen'
+rescue LoadError
+  require 'rubygems'
+  require 'rubigen'
+end
+require 'rubigen/scripts/destroy'
+
+ARGV.shift if ['--help', '-h'].include?(ARGV[0])
+RubiGen::Base.use_component_sources! [:rubygems, :newgem, :newgem_theme, :test_unit]
+RubiGen::Scripts::Destroy.new.run(ARGV)

data/script/generate

@@ -0,0 +1,14 @@
+#!/usr/bin/env ruby
+APP_ROOT = File.expand_path(File.join(File.dirname(__FILE__), '..'))
+
+begin
+  require 'rubigen'
+rescue LoadError
+  require 'rubygems'
+  require 'rubigen'
+end
+require 'rubigen/scripts/generate'
+
+ARGV.shift if ['--help', '-h'].include?(ARGV[0])
+RubiGen::Base.use_component_sources! [:rubygems, :newgem, :newgem_theme, :test_unit]
+RubiGen::Scripts::Generate.new.run(ARGV)

data/tasks/host.pp

@@ -0,0 +1,75 @@
+Exec { path => "/usr/bin:/usr/sbin/:/bin:/sbin" }
+
+# install qemu
+
+package { qemu: 
+  ensure => "latest"
+}
+
+# compile kqemu module 
+
+package { kqemu-source:
+  ensure => "latest",
+  require => Package[qemu]
+}
+
+exec { "modass-kqemu":
+  # modass returns 249 with non-inter ...
+  command => 'module-assistant --non-inter a-i kqemu || dpkg -l "kqemu-modules-`uname -r`" | grep ^ii',
+  unless => 'dpkg -l "kqemu-modules-`uname -r`" | grep ^ii',
+  require => Package[kqemu-source]
+}
+
+exec { "add kqemu in /etc/modules":
+  command => "echo kqemu >> /etc/modules",
+  unless => "grep kqemu /etc/modules",
+  require => Exec["modass-kqemu"]
+}
+
+exec { "modprobe-kqemu":
+  command => "modprobe kqemu",
+  unless => "lsmod | grep kqemu",
+  require => Exec["modass-kqemu"]
+}
+
+file { "/dev/kqemu":
+  # default permissions on debian, but not on ubuntu
+  mode => 666,
+  require => Exec["modprobe-kqemu"]
+}
+
+# install uml-utilities for tunctl 
+
+package { uml-utilities: }
+
+exec { "add tun in /etc/modules":
+  command => "echo tun >> /etc/modules",
+  unless => "grep tun /etc/modules"
+}
+
+exec { "modprobe tun":
+  unless => "lsmod | grep tun"
+}
+
+file { "/dev/net/tun":
+  mode => 666
+}
+
+# provide a basic qemu-ifup
+
+file { "/etc/qemu-ifup":
+  mode => 755,
+  content => '#!/bin/sh -x
+
+if [ "$USER" != "root" -o "$1" != "sudo" ]; then
+  exec sudo -p "Password for $0:" $0 sudo $1
+fi
+
+[ "$1" = "sudo" ] && shift
+
+/sbin/ifconfig $1 172.20.0.1
+iptables -t nat -A POSTROUTING -s 172.20.0.1/24 -o eth0 -j MASQUERADE
+sysctl -w net.ipv4.ip_forward=1
+',
+  require => Package[qemu]
+}

data/tasks/log.rake

@@ -0,0 +1,9 @@
+namespace :log do
+  desc "Truncates all *.log files in log/ to zero bytes"
+  task :clear do
+    FileList["log/*.log"].each do |log_file|
+      f = File.open(log_file, "w")
+      f.close
+    end
+  end
+end

data/tasks/puppet.rake

@@ -0,0 +1,8 @@
+namespace :puppet do
+  desc "Check syntax of puppet manifests"
+  task :check_syntax do
+    FileList['manifests/**/*.pp'].each do |manifest|
+      sh "puppet --color=false --confdir=/tmp --vardir=/tmp --parseonly --ignoreimport #{manifest}"
+    end
+  end
+end

data/tasks/sandbox.pp

@@ -0,0 +1,101 @@
+# Minimal settings to boot sandbox image with qemu
+
+# These variables are defined by rake task
+#$host_ip='172.20.0.1'
+#$sandbox_ip='172.20.0.2'
+
+Exec { path => "/usr/bin:/usr/sbin/:/bin:/sbin" }
+
+file { "/etc/fstab":
+  content => "/dev/hda1 / ext3 errors=remount-ro 0 1
+proc /proc proc defaults 0 0
+"
+}
+
+# Console on ttyS0 not tty1
+exec { "inittab-ttyS0-getty":
+  command => "sed -i '/getty 38400 tty1/ s/tty1/ttyS0/' /etc/inittab",
+  unless => "grep 'getty 38400 ttyS0' /etc/inittab"
+}
+
+# and no other gettys
+exec { "inittab-no-tty-gettys":
+  command => "sed -i '/getty 38400 tty[23456]/ d' /etc/inittab",
+  onlyif => "grep 'getty 38400 tty[23456]' /etc/inittab"
+}
+
+file { "/etc/hostname":
+  content => "sandbox"
+}
+
+# an host object doesn't find a provider
+file { "/etc/hosts":
+  content => "127.0.0.1 localhost
+127.0.1.1 sandbox
+$host_ip	puppet
+"
+}
+
+# root's password is 'root'
+user { root:
+  password => '$1$aybpiIGf$cB7iFDNZvViQtQjEZ5HFQ0'
+}
+
+package { [console-common,console-tools,console-data,base-config,man-db,manpages]:
+  ensure => absent
+}
+
+# if network configuration changes, eth0 is renamed by udev :-/
+file { "/etc/udev/rules.d/70-persistent-net.rules":
+  ensure => absent
+}
+
+file { "/etc/network/interfaces":
+  content => "auto lo
+iface lo inet loopback
+
+auto eth0
+iface eth0 inet static
+        address $sandbox_ip
+        netmask 255.255.255.0
+        gateway $host_ip
+        dns-nameservers $host_ip
+"
+}
+
+# puppet configuration
+
+file { "/etc/default/puppet":
+  content => 'START=no
+DAEMON_OPTS="-w 5"
+'
+}
+
+file { "/etc/puppet/namespaceauth.conf":
+  content => "[puppetrunner]
+  allow $host_ip
+"
+}
+
+file { "/etc/puppet/puppet.conf":
+  content => '[main]
+logdir=/var/log/puppet
+vardir=/var/lib/puppet
+ssldir=/var/lib/puppet/ssl
+rundir=/var/run/puppet
+factpath=$vardir/lib/facter
+pluginsync=false
+color=false
+
+[puppetd]
+report=true
+# run puppetd .. every day
+runinterval = 86400
+listen=true
+'
+}
+
+exec { "syslog-to-ttyS0":
+  command => "echo '*.*		-/dev/ttyS0' >> /etc/rsyslog.conf",
+  unless => 'grep /dev/ttyS0 /etc/rsyslog.conf'
+}

data/tasks/sandbox.rake

@@ -0,0 +1,437 @@
+require 'rake/tasklib'
+require 'ping'
+require 'tempfile'
+
+class Sandbox < Rake::TaskLib
+
+  def self.default_architecture
+    case PLATFORM
+    when /x86_64/
+      "amd64"
+    else
+      "i386"
+    end
+  end
+
+  @@images_directory = "/var/tmp"
+
+  def self.images_directory
+    @@images_directory
+  end
+
+  def self.images_directory=(directory)
+    @@images_directory = directory
+  end
+
+  def puppet_file(name)
+    File.dirname(__FILE__) + "/#{name}.pp"
+  end
+
+  attr_reader :name
+  attr_accessor :bootstraper, :ip_address, :host_ip_address, :tap_device
+  attr_accessor :disk_size, :memory_size, :mount_point
+  attr_accessor :architecture
+
+  def initialize(name = "sandbox")
+    @name = name
+
+    init
+    yield self if block_given?
+    define
+  end
+
+  def define
+    @architecture = Sandbox.default_architecture
+    bootstraper = DebianBoostraper.new
+
+    @ip_address ||= '172.20.0.2'
+    @host_ip_address ||= @ip_address.gsub(/\.[0-9]+$/,'.1')
+
+    @disk_size ||= '512M'
+    @memory_size ||= '128M'
+
+    @mount_point ||= "/mnt/#{name}"
+    @tap_device ||= 'tap0'
+  end
+
+  def bootstraper=(bootstraper)
+    @bootstraper = bootstraper
+    sync_architecture
+  end
+
+  def architecture=(architecture)
+    @architecture = architecture
+    sync_architecture
+  end
+
+  def sync_architecture
+    if self.bootstraper and self.architecture 
+      self.bootstraper.architecture = self.architecture 
+    end
+  end
+
+  def kernel_architecture
+    case self.architecture
+    when 'i386'
+      '686'
+    else 
+      self.architecture
+    end
+  end
+
+  def init
+    namespace @name do
+
+      desc "Setup local machine to host sandbox"
+      task :setup => 'tmp:create' do
+        sudo "puppet #{puppet_file(:host)}"
+      end
+
+      # Mix between these ways :
+      # - http://www.mail-archive.com/qemu-devel@nongnu.org/msg01208.html
+      # - http://www.geocities.com/gtalon51/Articles/Minimal_Linux_system/Minimal_Linux_system.html
+      # - qemu-make-debian-root
+      namespace :create do
+        task :image do
+          sh "qemu-img create -f raw #{disk_image} #{disk_size}"
+          # create the partition table
+          sh "echo '63,' | /sbin/sfdisk --no-reread -uS -H16 -S63 #{disk_image}"
+        end
+
+        task :fs do 
+          # format the filesystem
+          begin
+            sudo "losetup -o #{fs_offset} /dev/loop0 #{disk_image}"
+            
+            # because '/sbin/sfdisk -s /dev/loop0' returns a wrong value :
+            extract_fs_block_size = "/sbin/sfdisk -l #{disk_image} 2> /dev/null | awk '/img1/ { gsub(\"\\+\", \"\", $5); print $5 }'"
+            
+            sudo "/sbin/mke2fs -jqF /dev/loop0 `#{extract_fs_block_size}`"
+          ensure
+            sudo "losetup -d /dev/loop0"
+          end
+        end
+        
+        task :system do
+          # install a debian base system
+          mount do 
+            bootstraper.bootstrap mount_point
+          end
+        end
+
+        task :kernel do
+          mount do
+            chroot_sh "echo 'do_initrd = Yes' >> /etc/kernel-img.conf"
+
+            kernel_package =
+              case self.bootstraper.version
+              when 'etch', 'lenny'
+                "linux-image-2.6-#{kernel_architecture}"
+              when 'hardy'    
+                'linux-image-2.6.24-16-generic'
+              when 'intrepid'
+                'linux-image-generic'
+              end
+
+            chroot_sh "DEBIAN_FRONTEND=noninteractive apt-get install -y --force-yes #{kernel_package}"
+          end
+        end
+
+        task :grub do
+          mount do
+            chroot_sh "DEBIAN_FRONTEND=noninteractive apt-get install -y --force-yes grub"
+
+            grub_dir = "#{mount_point}/boot/grub"
+            chroot_sh "mkdir /boot/grub" unless File.exists?(grub_dir)
+
+            stage_files = Dir["#{mount_point}/usr/lib/grub/**/stage?", "#{mount_point}/usr/lib/grub/**/e2fs_stage1_5"]
+            sudo "cp #{stage_files.join(' ')} #{grub_dir}"
+
+            Tempfile.open('menu_lst') do |f|
+              f.write(['default 0',
+                       'timeout 0',
+                       'title Linux',
+                       'root (hd0,0)',
+                       'kernel /vmlinuz root=/dev/hda1 ro',
+                       'initrd /initrd.img'].join("\n"))
+              f.close
+              sudo "cp #{f.path} #{grub_dir}/menu.lst"
+            end
+          end
+
+          Tempfile.open('grub_input') do |f| 
+            f.write(["device (hd0) #{disk_image}",
+                     "root (hd0,0)",
+                     "setup (hd0)",
+                     "quit"].join("\n"))
+            f.close
+            sudo "grub --device-map=/dev/null < #{f.path}"
+          end
+        end
+
+        task :config do
+          Tempfile.open('sandbox_puppet_file') do |sandbox_puppet_file|
+            sandbox_puppet_file.puts "$host_ip='#{host_ip_address}'"            
+            sandbox_puppet_file.puts "$sandbox_ip='#{ip_address}'"            
+            sandbox_puppet_file.puts IO.read(puppet_file(:sandbox))
+
+            sandbox_puppet_file.close
+
+            # finalize configuration with puppet
+            mount do
+              sudo "cp #{sandbox_puppet_file.path} #{mount_point}/etc/sandbox.pp"
+              sudo "chroot #{mount_point} puppet /etc/sandbox.pp"
+            end
+          end
+        end
+
+        task :tap_device do
+          unless tap_device_exists?
+            sudo "tunctl -u #{ENV['USER']} -t #{tap_device}"
+          end
+        end
+
+        task :snapshot do
+          snapshot(:initial)
+        end
+      end
+
+      desc "Create a fresh image for sandbox"
+      task :create => [ 'clean', 'create:image', 'create:fs', 'create:system', 'create:kernel', 'create:grub', 'create:config', 'create:snapshot' ]
+
+      desc "Destroy sandbox images"
+      task :destroy => 'clean' do
+        rm_f disk_image
+        rm_f disk_image(:initial)
+      end
+
+      desc "Start sandbox"
+      task :start => ['create:tap_device', 'tmp:create'] do
+        start
+      end
+
+      desc "Start sandbox from initial image in snapshot"
+      task :start_from_initial do
+        start :hda => disk_image(:initial), :snapshot => true
+      end
+
+      task :wait do 
+        wait
+      end
+
+      desc "Stop sandbox"
+      task :stop do
+        sh "kill -9 `cat tmp/run/#{name}.pid`"
+      end
+
+      task :revert do
+        sh "qemu-img convert -O raw #{disk_image(:initial)} #{disk_image}"
+      end
+
+      task :mount do
+        mount_image
+      end
+
+      task :umount do
+        umount_image
+      end
+
+      task :clean => 'puppet:clean' do
+        # clean known_hosts
+        known_hosts_file="#{ENV['HOME']}/.ssh/known_hosts"
+        sh "sed -i '/#{hostname},#{ip_address}/ d' #{known_hosts_file}" if File.exists?(known_hosts_file)
+      end
+
+      task :status do
+        status
+      end
+
+      namespace :puppet do
+
+        desc "Run puppetd in sandbox"
+        task :run do
+          sh "./script/puppetrun --host #{hostname}"
+        end
+
+        desc "Sign a request from sandbox"
+        task :sign do
+          sh "./script/puppetca --sign #{hostname}"
+        end
+
+        task :clean do 
+          # remove pending request
+          sh "rm -f ssl/ca/requests/#{hostname}*.pem"
+          # remove signed certificat
+          sh "./script/puppetca --clean #{hostname} || true"
+        end
+      end
+    end
+  end
+
+  def start(options = {})
+    options = {
+      :daemonize => true,
+      :snapshot => ENV['SNAPSHOT'],
+      :hda => disk_image,
+      :nographic => false,
+      :m => memory_size,
+      :net => ["nic", "tap,ifname=#{tap_device}"]
+    }.update(options)
+
+    if options[:daemonize]
+      options = {
+        :pidfile => File.expand_path("tmp/run/#{name}.pid"), :serial => "file:" + File.expand_path("log/#{name}.log")
+      }.update(options)
+    end
+
+    options_as_string = options.collect do |name,value| 
+      argument = "-#{name}"  
+
+      case value
+      when Array
+        value.collect { |v| "#{argument} '#{v}'" }
+      when true
+        argument
+      when false
+      when nil
+      when ''
+        nil
+      else
+        "#{argument} '#{value}'"
+      end
+    end.compact.join(' ')
+
+    qemu_command = 
+      case PLATFORM
+      when /x86_64/
+        "qemu-system-x86_64"
+      else
+        "qemu"
+      end
+
+    sh "#{qemu_command} #{options_as_string}"
+  end
+
+  def snapshot(name)
+    sh "qemu-img convert -O qcow2 #{disk_image} #{disk_image(name)}"
+  end
+
+  def wait(timeout = 30, max_try_count = 5)
+    try_count = 5
+    try_timeout = timeout / try_count
+
+    5.times do
+      if Ping.pingecho(ip_address, try_timeout)
+        return
+      else
+        sleep try_timeout
+      end
+    end
+
+    raise "no response from #{hostname} after #{timeout} seconds"
+  end
+
+  def mount(&block)
+    begin
+      mount_image
+      yield mount_point
+    ensure
+      umount_image
+    end
+  end
+
+  def mount_image
+    sudo "mkdir #{mount_point}" unless File.exists? mount_point
+    sudo "mount -o loop,offset=#{fs_offset} #{disk_image} #{mount_point}"
+    
+    sudo "mount proc #{mount_point}/proc -t proc" if File.exists? "#{mount_point}/proc"
+  end
+
+  def umount_image
+    [ "#{mount_point}/proc", mount_point ].each do |mount|
+      sudo "umount #{mount} || true"
+    end
+  end
+
+  # TODO to be customizable
+
+  def disk_image(suffix = nil)
+    suffix = "-#{suffix}" if suffix
+    File.join Sandbox.images_directory, "#{name}#{suffix}.img"    
+  end
+
+  def fs_offset
+    32256
+  end
+
+  def hostname
+    if name =~ /^sandbox/
+      name
+    else
+      "sandbox-#{name}"
+    end
+  end
+
+  def tap_device_exists?
+    IO.readlines('/proc/net/dev').any? { |l| l =~ /\s+#{tap_device}/ }
+  end
+
+  def status
+    puts "#{hostname} status:"
+    puts self.inspect
+  end
+
+  def chroot_sh(cmd)
+    sudo "chroot #{mount_point} sh -c \"#{cmd}\""
+  end
+
+end
+
+class DebianBoostraper
+
+  attr_accessor :version, :mirror, :include, :exclude, :architecture
+
+  def initialize(&block)
+    default_attributes
+
+    @include = %w{puppet ssh udev resolvconf}
+    @exclude = %w{syslinux at exim mailx libstdc++2.10-glibc2.2 mbr setserial fdutils info ipchains iptables lilo pcmcia-cs ppp pppoe pppoeconf pppconfig telnet exim4 exim4-base exim4-config exim4-daemon-light pciutils modconf tasksel console-common console-tools console-data base-config man-db manpages}
+
+    yield self if block_given?
+  end
+
+  def default_attributes
+    @version = 'lenny'
+    @mirror = 'http://ftp.debian.org/debian'
+    @architecture = Sandbox.default_architecture
+  end
+
+  def bootstrap(root)
+    options_as_string = options.collect{|k,v| "--#{k} #{Array(v).join(',')}"}.join(' ')
+    sudo "debootstrap #{options_as_string} #{version} #{root} #{mirror}"
+  end
+
+  def options
+    {
+      :arch => architecture,  
+      :exclude => @exclude,
+      :include => @include
+    }
+  end
+
+end
+
+class UbuntuBoostraper < DebianBoostraper
+
+  def default_attributes
+    super
+
+    @version = 'intrepid'
+    @mirror = 'http://archive.ubuntu.com/ubuntu/'
+  end
+
+  def options
+    super.update :components => 'main,universe'
+  end
+
+end