pi-bake 0.1.0

data/lib/deb/scripts/wheezy

@@ -0,0 +1,191 @@
+mirror_style release
+download_style apt
+finddebs_style from-indices
+variants - buildd fakechroot minbase scratchbox
+keyring /usr/share/keyrings/debian-archive-keyring.gpg
+
+if doing_variant fakechroot; then
+	test "$FAKECHROOT" = "true" || error 1 FAKECHROOTREQ "This variant requires fakechroot environment to be started"
+fi
+
+case $ARCH in
+	alpha|ia64) LIBC="libc6.1" ;;
+	kfreebsd-*) LIBC="libc0.1" ;;
+	hurd-*)     LIBC="libc0.3" ;;
+	*)          LIBC="libc6" ;;
+esac
+
+work_out_debs () {
+	required="$(get_debs Priority: required)"
+
+	if doing_variant - || doing_variant fakechroot; then
+		#required="$required $(get_debs Priority: important)"
+		#  ^^ should be getting debconf here somehow maybe
+		base="$(get_debs Priority: important)"
+	elif doing_variant buildd || doing_variant scratchbox; then
+		base="apt build-essential"
+	elif doing_variant minbase; then
+		base="apt"
+	fi
+
+	if doing_variant fakechroot; then
+		# ldd.fake needs binutils
+		required="$required binutils"
+	fi
+}
+
+first_stage_install () {
+	extract $required
+
+	mkdir -p "$TARGET/var/lib/dpkg"
+	: >"$TARGET/var/lib/dpkg/status"
+	: >"$TARGET/var/lib/dpkg/available"
+
+	setup_etc
+	if [ ! -e "$TARGET/etc/fstab" ]; then
+		echo '# UNCONFIGURED FSTAB FOR BASE SYSTEM' > "$TARGET/etc/fstab"
+		chown 0:0 "$TARGET/etc/fstab"; chmod 644 "$TARGET/etc/fstab"
+	fi
+
+	x_feign_install () {
+		local pkg="$1"
+		local deb="$(debfor $pkg)"
+		local ver="$(extract_deb_field "$TARGET/$deb" Version)"
+
+		mkdir -p "$TARGET/var/lib/dpkg/info"
+
+		echo \
+"Package: $pkg
+Version: $ver
+Maintainer: unknown
+Status: install ok installed" >> "$TARGET/var/lib/dpkg/status"
+
+		touch "$TARGET/var/lib/dpkg/info/${pkg}.list"
+	}
+
+	x_feign_install dpkg
+}
+
+second_stage_install () {
+	setup_devices
+
+	x_core_install () {
+		smallyes '' | in_target dpkg --force-depends --install $(debfor "$@")
+	}
+
+	p () {
+		baseprog="$(($baseprog + ${1:-1}))"
+	}
+
+	if doing_variant fakechroot; then
+		setup_proc_fakechroot
+	elif doing_variant scratchbox; then
+		true
+	else
+		setup_proc
+		in_target /sbin/ldconfig
+	fi
+
+	DEBIAN_FRONTEND=noninteractive
+	DEBCONF_NONINTERACTIVE_SEEN=true
+	export DEBIAN_FRONTEND DEBCONF_NONINTERACTIVE_SEEN
+
+	baseprog=0
+	bases=7
+
+	p; progress $baseprog $bases INSTCORE "Installing core packages" #1
+	info INSTCORE "Installing core packages..."
+
+	p; progress $baseprog $bases INSTCORE "Installing core packages" #2
+	ln -sf mawk "$TARGET/usr/bin/awk"
+	x_core_install base-files base-passwd
+	p; progress $baseprog $bases INSTCORE "Installing core packages" #3
+	x_core_install dpkg
+
+	if [ ! -e "$TARGET/etc/localtime" ]; then
+		ln -sf /usr/share/zoneinfo/UTC "$TARGET/etc/localtime"
+	fi
+
+	if doing_variant fakechroot; then
+		install_fakechroot_tools
+	fi
+
+	p; progress $baseprog $bases INSTCORE "Installing core packages" #4
+	x_core_install $LIBC
+
+	p; progress $baseprog $bases INSTCORE "Installing core packages" #5
+	x_core_install perl-base
+
+	p; progress $baseprog $bases INSTCORE "Installing core packages" #6
+	rm "$TARGET/usr/bin/awk"
+	x_core_install mawk
+
+	p; progress $baseprog $bases INSTCORE "Installing core packages" #7
+	if doing_variant -; then
+		x_core_install debconf
+	fi
+
+	baseprog=0
+	bases=$(set -- $required; echo $#)
+
+	info UNPACKREQ "Unpacking required packages..."
+
+	exec 7>&1
+
+	smallyes '' |
+		(repeatn 5 in_target_failmsg UNPACK_REQ_FAIL_FIVE "Failure while unpacking required packages.  This will be attempted up to five times." "" \
+		dpkg --status-fd 8 --force-depends --unpack $(debfor $required) 8>&1 1>&7 || echo EXITCODE $?) |
+		dpkg_progress $baseprog $bases UNPACKREQ "Unpacking required packages" UNPACKING
+
+	info CONFREQ "Configuring required packages..."
+
+	mv "$TARGET/sbin/start-stop-daemon" "$TARGET/sbin/start-stop-daemon.REAL"
+	echo \
+"#!/bin/sh
+echo
+echo \"Warning: Fake start-stop-daemon called, doing nothing\"" > "$TARGET/sbin/start-stop-daemon"
+	chmod 755 "$TARGET/sbin/start-stop-daemon"
+
+	setup_dselect_method apt
+
+	smallyes '' |
+		(in_target_failmsg CONF_REQ_FAIL "Failure while configuring required packages." "" \
+		dpkg --status-fd 8 --configure --pending --force-configure-any --force-depends 8>&1 1>&7 || echo EXITCODE $?) |
+		dpkg_progress $baseprog $bases CONFREQ "Configuring required packages" CONFIGURING
+
+	baseprog=0
+	bases="$(set -- $base; echo $#)"
+
+	info UNPACKBASE "Unpacking the base system..."
+
+	setup_available $required $base
+	done_predeps=
+	while predep=$(get_next_predep); do
+		# We have to resolve dependencies of pre-dependencies manually because
+		# dpkg --predep-package doesn't handle this.
+		predep=$(without "$(without "$(resolve_deps $predep)" "$required")" "$done_predeps")
+		# XXX: progress is tricky due to how dpkg_progress works
+		# -- cjwatson 2009-07-29
+		p; smallyes '' |
+		in_target dpkg --force-overwrite --force-confold --skip-same-version --install $(debfor $predep)
+		base=$(without "$base" "$predep")
+		done_predeps="$done_predeps $predep"
+	done
+
+	smallyes '' |
+		(repeatn 5 in_target_failmsg INST_BASE_FAIL_FIVE "Failure while installing base packages.  This will be re-attempted up to five times." "" \
+		dpkg --status-fd 8 --force-overwrite --force-confold --skip-same-version --unpack $(debfor $base) 8>&1 1>&7 || echo EXITCODE $?) |
+		dpkg_progress $baseprog $bases UNPACKBASE "Unpacking base system" UNPACKING
+
+	info CONFBASE "Configuring the base system..."
+
+	smallyes '' |
+		(repeatn 5 in_target_failmsg CONF_BASE_FAIL_FIVE "Failure while configuring base packages.  This will be re-attempted up to five times." "" \
+		dpkg --status-fd 8 --force-confold --skip-same-version --configure -a 8>&1 1>&7 || echo EXITCODE $?) |
+		dpkg_progress $baseprog $bases CONFBASE "Configuring base system" CONFIGURING
+
+	mv "$TARGET/sbin/start-stop-daemon.REAL" "$TARGET/sbin/start-stop-daemon"
+
+	progress $bases $bases CONFBASE "Configuring base system"
+	info BASESUCCESS "Base system installed successfully."
+}

data/lib/fs/geom.rb

@@ -0,0 +1,232 @@
+### Copyright (c) 2012 David Love <david@homeunix.org.uk>
+###
+### Permission to use, copy, modify, and/or distribute this software for 
+### any purpose with or without fee is hereby granted, provided that the 
+### above copyright notice and this permission notice appear in all copies.
+###
+### THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES 
+### WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF 
+### MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR 
+### ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES 
+### WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN 
+### ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF 
+### OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+###
+
+### @author David Love
+###
+### FreeBSD GEOM Interface. Packages the FreeBSD GEOM interfaces and utilities into
+### a single class.
+###
+
+# Sub-process handling library
+require "open4"
+
+class Geom
+
+  # Attach a disk image
+  def self.attach_image(image_name)
+
+    # Sanity check the FreeBSD environment, making sure the
+    # geom_gate kernel module is loaded (or can be loaded) before
+    # we do anything else
+
+    unless system("kldstat -q -m ggate") then
+      
+      # The kernel module isn't loaded, so lets try to
+      # load it
+      unless system("sudo kldload geom_gate") then
+        # OK now we are really stuck. The correct module 
+        # isn't available, and we can't load it either.
+        # Not much else we can do now.
+        return nil
+      end
+
+      # Did that work?
+      unless system("kldstat -q -m ggate") then
+        # No, so tell the caller
+        return nil
+      end
+    end 
+
+    # Attach the image
+    #
+    # NOTE: There appears to be a bug in the output of ggatel, which
+    # fails to report the newly created device name. Instead we have
+    # to reconstruct the new name, and report it to the caller.
+    
+    current_devices = `ggatel list`.split
+    `sudo ggatel create #{image_name}`
+    updated_devices = `ggatel list`.split
+
+    device_name = updated_devices - current_devices
+
+    return device_name[0].to_s
+  end
+  
+  # Detach a disk image
+  def self.detach_image(device_name)
+    device_number = device_name[-1]
+    system("sudo ggatel destroy -u #{device_number}")
+  end
+  
+  # Create a blank disk image, backed by the named file
+  def self.make_image(image_name, image_size)
+    # Work out how many 512 bit blocks we need
+    blocks = image_size / 512
+ 
+    # Create a spare image of the required size
+    puts "Image size: #{image_size} bytes"
+    `dd of=#{image_name} bs=512 count=0 seek=#{blocks}`
+  end
+  
+  # Mount the image slices in known locations
+  def self.mount_image(device_name)
+    
+    # Sanity check the FreeBSD environment, making sure the
+    # ext2fs kernel module is loaded (or can be loaded) before
+    # we do anything else
+
+    unless system("kldstat -q -m ext2fs") then
+      
+      # The kernel module isn't loaded, so lets try to
+      # load it
+      unless system("sudo kldload ext2fs") then
+        # OK now we are really stuck. The correct module 
+        # isn't available, and we can't load it either.
+        # Not much else we can do now.
+        return false
+      end
+
+      # Did that work?
+      unless system("kldstat -q -m ext2fs") then
+        # No, so tell the caller
+        return false
+      end
+    end
+    
+    # Mount the boot slice
+    unless File.exists?("/mnt/pi-boot") then
+      # Use sudo to assume root powers, instead of the
+      # native ruby method
+      `sudo mkdir -p /mnt/pi-boot`
+    end
+    
+    unless system("sudo mount_msdosfs /dev/#{device_name}s1 /mnt/pi-boot") then
+      return false
+    end
+
+    # Mount the boot slice
+    unless File.exists?("/mnt/pi-system1") then
+    # Use sudo to assume root powers, instead of the
+    # native ruby method
+    `sudo mkdir -p /mnt/pi-system1`
+    end
+
+    unless system("sudo mount -t ext2fs /dev/#{device_name}s2 /mnt/pi-system1")
+      return false
+    end
+
+    # Mount the boot slice
+    unless File.exists?("/mnt/pi-system2") then
+    # Use sudo to assume root powers, instead of the
+    # native ruby method
+    `sudo mkdir -p /mnt/pi-system2`
+    end
+
+    unless system("sudo mount -t ext2fs /dev/#{device_name}s3 /mnt/pi-system2")
+      return false
+    end
+
+    # Mount the boot slice
+    unless File.exists?("/mnt/pi-data") then
+     # Use sudo to assume root powers, instead of the
+     # native ruby method
+     `sudo mkdir -p /mnt/pi-data`
+    end
+
+    unless system("sudo mount -t ext2fs /dev/#{device_name}s4 /mnt/pi-data")
+      return false
+    end
+    
+    return true
+    
+  end
+
+  # Set-up the basic disk partition table, and file systems
+  def self.prepare_image(device_name, image_size)
+    
+    ##
+    ## Partition the disk image
+    ##
+
+    # Calculate the size of a block that is 1% of the total
+    # disk space
+    block_size = image_size.to_f / 100.0
+    
+    # Calculate the number of cylinders based on 512 sector
+    # size, 255 heads and 63 sectors per track
+    cylinders = (image_size.to_f / 255.0 / 63.0 / 512.0).floor
+
+    # Tell the user what we have done
+    puts "Heads:         255"
+    puts "Sectors/Track: 63"
+    puts "Cylinder:      #{cylinders}" 
+    puts
+    puts "Block size:    #{(block_size / 1024.0 / 1024.0).floor}MB"
+    puts 
+    puts "Layout"
+    puts "------------------------------------------"
+    puts "P1: #{((block_size * 10) / 1024.0 / 1024.0).floor}MB"
+    puts "P2: #{((block_size * 25) / 1024.0 / 1024.0).floor}MB"
+    puts "P3: #{((block_size * 25) / 1024.0 / 1024.0).floor}MB"
+    puts "P4: #{((block_size * 40) / 1024.0 / 1024.0).floor}MB"
+    puts 
+     
+    config_file = String.new 
+    config_file << "g s63 h255 c" + cylinders.floor.to_s + "\n"
+    config_file << "p \t 1 \t 0x0C \t 63 \t #{((block_size * 10) / 1024.0 / 1024.0).floor}M\n" 
+    config_file << "p \t 2 \t 0x83 \t *  \t #{((block_size * 25) / 1024.0 / 1024.0).floor}M\n" 
+    config_file << "p \t 3 \t 0x83 \t *  \t #{((block_size * 25) / 1024.0 / 1024.0).floor}M\n" 
+    config_file << "p \t 4 \t 0x83 \t *  \t *\n"
+    config_file << "a 1\n"
+
+    cmd = "sudo fdisk -f - -i " + device_name
+    status = open4.spawn(cmd, :stdin => config_file)
+
+    ##
+    ## Format the partitions
+    ##
+
+    # Create a FAT-32 file system in the boot partition
+    puts "Formatting #{device_name}s1 as FAT-32..."
+    `sudo newfs_msdos -F 32 -L PI-BOOT /dev/#{device_name}s1`
+
+    # Everything else is EXT2
+    puts "Formatting #{device_name}s2 as ext2..."
+    `sudo mkfs.ext2 -I 128 /dev/#{device_name}s2`
+    puts "Formatting #{device_name}s3 as ext2..."
+    `sudo mkfs.ext2 -I 128 /dev/#{device_name}s3`
+    puts "Formatting #{device_name}s4 as ext2..."
+    `sudo mkfs.ext2 -I 128 /dev/#{device_name}s4`
+
+  end
+  
+  def self.umount_image_dirs
+    unless system("sudo umount /mnt/pi-boot") then
+      return false
+    end
+    unless system("sudo umount /mnt/pi-system1") then
+      return false
+    end
+    unless system("sudo umount /mnt/pi-system2") then
+      return false
+    end
+    unless system("sudo umount /mnt/pi-data") then
+      return false
+    end
+    
+    return true
+  end
+
+end

metadata

@@ -0,0 +1,68 @@
+--- !ruby/object:Gem::Specification
+name: pi-bake
+version: !ruby/object:Gem::Version
+  version: 0.1.0
+  prerelease: 
+platform: ruby
+authors:
+- David Love
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2012-07-04 00:00:00.000000000 Z
+dependencies: []
+description: 
+email: d.love@shu.ac.uk
+executables:
+- bake
+extensions: []
+extra_rdoc_files:
+- README.markdown
+files:
+- Gemfile
+- Gemfile.lock
+- README.markdown
+- bin/bake
+- lib/actions/update.rb
+- lib/actions/image.rb
+- lib/actions/attach.rb
+- lib/actions/detach.rb
+- lib/actions/info.rb
+- lib/actions/unmount.rb
+- lib/actions/mount.rb
+- lib/actions/all.rb
+- lib/fs/geom.rb
+- lib/deb/scripts/wheezy
+- lib/deb/functions
+- lib/deb/debootstrap
+- lib/pi-bake.rb
+homepage: http://yoursite.example.com
+licenses: []
+post_install_message: 
+rdoc_options:
+- --main
+- README.markdown
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+      segments:
+      - 0
+      hash: -468393075
+required_rubygems_version: !ruby/object:Gem::Requirement
+  none: false
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 1.8.24
+signing_key: 
+specification_version: 3
+summary: FreeBSD Image Builder for Raspbery Pi
+test_files: []