Merge branch 'schulung'

updates from current linutronix schulung.git

Conflicts:
	Makefile
	configpres.tex
	flash-memory/ubi/handout_ubi_de.tex
	handout.tex
	index.txt
	pres_master.tex
	vorl.tex
	vorl1.tex
	vorl2.tex
	vorl3.tex
	vorl4.tex
	vorl5.tex

Signed-off-by: Manuel Traut <manut@mecka.net>

54 files changed, 0 insertions, 3027 deletions

diff --git a/beagle/debian-rfs/usr/sbin/add-shell b/beagle/debian-rfs/usr/sbin/add-shell
deleted file mode 100755
index f7a4a55..0000000
--- a/beagle/debian-rfs/usr/sbin/add-shell
+++ /dev/null
@@ -1,40 +0,0 @@
-#!/bin/sh -e
-
-if test $# -eq 0
-then
-	echo usage: $0 shellname [shellname ...]
-	exit 1
-fi
-
-file=/etc/shells
-# I want this to be GUARANTEED to be on the same filesystem as $file
-tmpfile=${file}.tmp
-
-set -o noclobber
-
-trap "rm -f $tmpfile" EXIT
-        
-if ! cat $file > $tmpfile
-then
-        cat 1>&2 <<EOF
-Either another instance of $0 is running, or it was previously interrupted.
-Please examine ${tmpfile} to see if it should be moved onto ${file}.
-EOF
-        exit 1
-fi
-
-for i
-do
-        if ! grep -q "^${i}$" $tmpfile
-        then
-                echo $i >> $tmpfile
-        fi
-done
-
-chmod --reference=$file $tmpfile
-chown --reference=$file $tmpfile
-
-mv $tmpfile $file
-
-trap "" EXIT
-exit 0
diff --git a/beagle/debian-rfs/usr/sbin/chgpasswd b/beagle/debian-rfs/usr/sbin/chgpasswd
deleted file mode 100755
index d261758..0000000
--- a/beagle/debian-rfs/usr/sbin/chgpasswd
+++ /dev/null
diff --git a/beagle/debian-rfs/usr/sbin/chpasswd b/beagle/debian-rfs/usr/sbin/chpasswd
deleted file mode 100755
index cf9ca2d..0000000
--- a/beagle/debian-rfs/usr/sbin/chpasswd
+++ /dev/null
diff --git a/beagle/debian-rfs/usr/sbin/chroot b/beagle/debian-rfs/usr/sbin/chroot
deleted file mode 100755
index 8e51cd4..0000000
--- a/beagle/debian-rfs/usr/sbin/chroot
+++ /dev/null
diff --git a/beagle/debian-rfs/usr/sbin/cpgr b/beagle/debian-rfs/usr/sbin/cpgr
deleted file mode 120000
index d41955f..0000000
--- a/beagle/debian-rfs/usr/sbin/cpgr
+++ /dev/null
@@ -1 +0,0 @@
-cppw
\ No newline at end of file
diff --git a/beagle/debian-rfs/usr/sbin/cppw b/beagle/debian-rfs/usr/sbin/cppw
deleted file mode 100755
index 27d81e0..0000000
--- a/beagle/debian-rfs/usr/sbin/cppw
+++ /dev/null
diff --git a/beagle/debian-rfs/usr/sbin/cytune b/beagle/debian-rfs/usr/sbin/cytune
deleted file mode 100755
index ff5d99a..0000000
--- a/beagle/debian-rfs/usr/sbin/cytune
+++ /dev/null
diff --git a/beagle/debian-rfs/usr/sbin/dpkg-divert b/beagle/debian-rfs/usr/sbin/dpkg-divert
deleted file mode 120000
index 7668cac..0000000
--- a/beagle/debian-rfs/usr/sbin/dpkg-divert
+++ /dev/null
@@ -1 +0,0 @@
-../bin/dpkg-divert
\ No newline at end of file
diff --git a/beagle/debian-rfs/usr/sbin/dpkg-preconfigure b/beagle/debian-rfs/usr/sbin/dpkg-preconfigure
deleted file mode 100755
index 0a86b9a..0000000
--- a/beagle/debian-rfs/usr/sbin/dpkg-preconfigure
+++ /dev/null
@@ -1,147 +0,0 @@
-#!/usr/bin/perl -w
-# This file was preprocessed, do not edit!
-
-
-
-BEGIN {
-	eval qq{
-		use strict;
-		use FileHandle;
-		use Debconf::Log qw(:all);
-		use Debconf::Db;
-		use Debconf::Template;
-		use Debconf::Config;
-		use Debconf::AutoSelect qw(:all);
-		use Debconf::Gettext;
-	};
-	if ($@) {
-		print STDERR "debconf: Perl may be unconfigured ($@) -- aborting\n";
-		exit 0;
-	}
-}
-
-Debconf::Db->load;
-
-my $apt=0;
-Debconf::Config->getopt(
-qq{Usage: dpkg-preconfigure [options] [debs]
-       --apt			Apt mode.},
-	"apt"			=> \$apt,
-);
-
-$|=1;
-
-my @debs=@ARGV;
-@ARGV=();
-
-my $have_tty=1;
-
-if ($apt) {
-	while (<>) {
-		chomp;
-		push @debs, $_ if length $_;
-	}
-	
-	exit unless @debs;
-	
-	$have_tty=0 unless open (STDIN, "/dev/tty");
-}
-elsif (! @debs) {
-	print STDERR sprintf("dpkg-preconfigure: ".gettext("must specify some debs to preconfigure")), "\n";
-	exit(1);
-}
-
-if (! -x "/usr/bin/apt-extracttemplates") {
-	warn gettext("delaying package configuration, since apt-utils is not installed");
-	exit;
-}
-
-my $frontend=make_frontend();
-
-if (! $have_tty && $frontend->need_tty) {
-	print STDERR sprintf("dpkg-preconfigure: ".gettext("unable to re-open stdin: %s"), $!)."\n";
-	exit 0;
-}
-
-my ($package, $version, $template, $config);
-unless (open(INFO, "-|")) {
-	my $command_max=20000; # LINUX SPECIFIC!!
-	my $static_len=length("apt-extracttemplates");
-	my $len=$static_len;
-	my @collect;
-	if ($apt && @debs > 30) {
-		STDERR->autoflush(1);
-	}
-	foreach my $deb (@debs) {
-		$len += length($deb) + 1;
-		if ($len < $command_max && @collect < 30) {
-			push @collect, $deb;
-		}
-		else {
-			if (system("apt-extracttemplates", @collect) != 0) {
-				print STDERR sprintf("debconf: ".gettext("apt-extracttemplates failed: %s")."\n",$!);
-			}
-			if ($apt && @debs > 30) {
-				$progress += @collect;
-				printf STDERR "\r".gettext("Extracting templates from packages: %d%%"), $progress * 100 / @debs;
-			}
-				
-			@collect=($deb);
-			$len=$static_len + length($deb) + 1;
-		}
-	}
-	if (system("apt-extracttemplates", @collect) != 0) {
-		print STDERR sprintf("debconf: ".gettext("apt-extracttemplates failed: %s")."\n",$!);
-	}
-	if ($apt && @debs > 30) {
-		$progress += @collect;
-		printf STDERR "\r".gettext("Extracting templates from packages: %d%%")."\n", $progress * 100 / @debs;
-	}
-	exit;
-}
-my @buffer=<INFO>;
-if ($apt && @buffer) {
-	print gettext("Preconfiguring packages ...\n");
-}
-foreach my $line (@buffer) {
-	($package, $version, $template, $config)=split /\s/, $line;
-	
-	if (defined $template && length $template) {
-		eval q{
-			Debconf::Template->load($template, $package)
-		};
-		unlink $template;
-		if ($@) {
-			print STDERR "$package ".sprintf(gettext("template parse error: %s"), $@)."\n";
-			unlink $config;
-			next;
-		}
-	}
-}
-
-foreach my $line (@buffer) {
-	($package, $version, $template, $config)=split /\s/, $line;
-
-	if (defined $config && length $config && -e $config) {
-		debug user => sprintf("preconfiguring %s (%s)",$package,$version);
-		chmod(0755, $config) or
-			die sprintf(gettext("debconf: can't chmod: %s"), $!);
-		$frontend->default_title($package);
-		$frontend->info(undef);
-		my $confmodule=make_confmodule($config, 'configure', $version);
-		$confmodule->owner($package);
-		1 while ($confmodule->communicate);
-		if ($confmodule->exitcode > 0) {
-			print STDERR sprintf(
-				gettext("%s failed to preconfigure, with exit status %s"),
-				$package, $confmodule->exitcode)."\n";
-		}
-		unlink $config;
-	}
-}
-
-$frontend->shutdown;
-
-Debconf::Db->save;
-
-
diff --git a/beagle/debian-rfs/usr/sbin/dpkg-reconfigure b/beagle/debian-rfs/usr/sbin/dpkg-reconfigure
deleted file mode 100755
index e63684f..0000000
--- a/beagle/debian-rfs/usr/sbin/dpkg-reconfigure
+++ /dev/null
@@ -1,159 +0,0 @@
-#!/usr/bin/perl -w
-# This file was preprocessed, do not edit!
-
-
-
-my $infodir="/var/lib/dpkg/info";
-
-use strict;
-use Debconf::Db;
-use Debconf::Gettext;
-use Debconf::Template;
-use Debconf::Config;
-use Debconf::AutoSelect qw(:all);
-use Debconf::Log qw(:all);
-
-Debconf::Config->priority('low');
-
-my $unseen_only=0;
-my $all=0;
-my $force=0;
-my $default_priority=0;
-my $reload=1;
-Debconf::Config->getopt(
-gettext(qq{Usage: dpkg-reconfigure [options] packages
-  -a,  --all			Reconfigure all packages.
-  -u,  --unseen-only		Show only not yet seen questions.
-       --default-priority	Use default priority instead of low.
-       --force			Force reconfiguration of broken packages.
-       --no-reload		Do not reload templates. (Use with caution.)}),
-	"all|a"			=> \$all,
-	"unseen-only|u"		=> \$unseen_only,
-	"default-priority"	=> \$default_priority,
-	"force"			=> \$force,
-	"reload!"		=> \$reload,
-);
-
-if ($> != 0) {
-	print STDERR sprintf(gettext("%s must be run as root"), $0)."\n";
-	exit 1;
-}
-
-Debconf::Db->load;
-
-if ($default_priority) {
-	Debconf::Config->priority(Debconf::Question->get('debconf/priority')->value);
-}
-
-if (lc Debconf::Config->frontend eq 'noninteractive' &&
-    ! Debconf::Config->frontend_forced) {
-	Debconf::Config->frontend('dialog');
-}
-
-my $frontend=make_frontend();
-
-unless ($unseen_only) {
-	Debconf::Config->reshow(1);
-}
-
-my @packages;
-if ($all) {
-	@packages=allpackages();
-	exit unless @packages;
-}
-else {
-	@packages=@ARGV;
-	if (! @packages) {
-		print STDERR "$0: ".gettext("please specify a package to reconfigure")."\n";
-		exit 1;
-	}
-}
-
-$ENV{DEBCONF_RECONFIGURE}=1;
-
-foreach my $pkg (@packages) {
-	$frontend->default_title($pkg);
-	$frontend->info(undef);
-
-	$_=`dpkg --status $pkg`;
-	my ($version)=m/Version: (.*)\n/;
-	my ($status)=m/Status: (.*)\n/;
-	if (! $force) {
-		if (! defined $status || $status =~ m/not-installed$/) {
-			print STDERR "$0: ".sprintf(gettext("%s is not installed"), $pkg)."\n";
-			exit 1;
-		}
-		if ($status !~ m/ ok installed$/) {
-			print STDERR "$0: ".sprintf(gettext("%s is broken or not fully installed"), $pkg)."\n";
-			exit 1;
-		}
-	}
-	
-	if ($reload) {
-		Debconf::Template->load("$infodir/$pkg.templates", $pkg)
-			if -e "$infodir/$pkg.templates";
-	}
-
-	foreach my $info (['prerm',    'upgrade',     $version],
-		          ['config',   'reconfigure', $version],
-			  ['postinst', 'configure',   $version]) {
-		my $script=shift @$info;
-		next unless -x "$infodir/$pkg.$script";
-
-		my $is_confmodule='';
-
-		if ($script ne 'config') {
-			open (IN, "<$infodir/$pkg.$script");
-			while (<IN>) {
-				if (/confmodule/i) {
-					$is_confmodule=1;
-					last;
-				}
-			}
-			close IN;
-		}
-		
-		if ($script eq 'config' || $is_confmodule) {
-			my $confmodule=make_confmodule(
-				"$infodir/$pkg.$script", @$info);
-	
-			$confmodule->owner($pkg);
-		
-			1 while ($confmodule->communicate);
-	
-			exit $confmodule->exitcode if $confmodule->exitcode > 0;
-		}
-		else {
-			Debconf::Db->save;
-			
-			delete $ENV{DEBIAN_HAS_FRONTEND};
-			my $ret=system("$infodir/$pkg.$script", @$info);
-			if (int($ret / 256) != 0) {
-				exit int($ret / 256);
-			}
-			$ENV{DEBIAN_HAS_FRONTEND}=1;
-			
-			Debconf::Db->load;
-		}
-	}
-}
-
-$frontend->shutdown;
-
-Debconf::Db->save;
-
-sub allpackages {
-	my @ret;
-	local $/="\n\n";
-	
-	open (STATUS, "</var/lib/dpkg/status")
-		|| die sprintf(gettext("Cannot read status file: %s"), $!);
-	while (<STATUS>) {
-		push @ret, $1
-			if m/Status:\s*.*\sinstalled\n/ && m/Package:\s*(.*)\n/;
-	}
-	close STATUS;
-
-	return sort @ret;
-}
-
diff --git a/beagle/debian-rfs/usr/sbin/dpkg-statoverride b/beagle/debian-rfs/usr/sbin/dpkg-statoverride
deleted file mode 120000
index d1bbaa0..0000000
--- a/beagle/debian-rfs/usr/sbin/dpkg-statoverride
+++ /dev/null
@@ -1 +0,0 @@
-../bin/dpkg-statoverride
\ No newline at end of file
diff --git a/beagle/debian-rfs/usr/sbin/e2freefrag b/beagle/debian-rfs/usr/sbin/e2freefrag
deleted file mode 100755
index 112cbd2..0000000
--- a/beagle/debian-rfs/usr/sbin/e2freefrag
+++ /dev/null
diff --git a/beagle/debian-rfs/usr/sbin/fdformat b/beagle/debian-rfs/usr/sbin/fdformat
deleted file mode 100755
index 9bf81ce..0000000
--- a/beagle/debian-rfs/usr/sbin/fdformat
+++ /dev/null
diff --git a/beagle/debian-rfs/usr/sbin/filefrag b/beagle/debian-rfs/usr/sbin/filefrag
deleted file mode 100755
index 7224cc1..0000000
--- a/beagle/debian-rfs/usr/sbin/filefrag
+++ /dev/null
diff --git a/beagle/debian-rfs/usr/sbin/groupadd b/beagle/debian-rfs/usr/sbin/groupadd
deleted file mode 100755
index 9783a89..0000000
--- a/beagle/debian-rfs/usr/sbin/groupadd
+++ /dev/null
diff --git a/beagle/debian-rfs/usr/sbin/groupdel b/beagle/debian-rfs/usr/sbin/groupdel
deleted file mode 100755
index e71f295..0000000
--- a/beagle/debian-rfs/usr/sbin/groupdel
+++ /dev/null
diff --git a/beagle/debian-rfs/usr/sbin/groupmod b/beagle/debian-rfs/usr/sbin/groupmod
deleted file mode 100755
index 7699b63..0000000
--- a/beagle/debian-rfs/usr/sbin/groupmod
+++ /dev/null
diff --git a/beagle/debian-rfs/usr/sbin/grpck b/beagle/debian-rfs/usr/sbin/grpck
deleted file mode 100755
index 9c2930d..0000000
--- a/beagle/debian-rfs/usr/sbin/grpck
+++ /dev/null
diff --git a/beagle/debian-rfs/usr/sbin/grpconv b/beagle/debian-rfs/usr/sbin/grpconv
deleted file mode 100755
index e037b30..0000000
--- a/beagle/debian-rfs/usr/sbin/grpconv
+++ /dev/null
diff --git a/beagle/debian-rfs/usr/sbin/grpunconv b/beagle/debian-rfs/usr/sbin/grpunconv
deleted file mode 100755
index f2e020c..0000000
--- a/beagle/debian-rfs/usr/sbin/grpunconv
+++ /dev/null
diff --git a/beagle/debian-rfs/usr/sbin/iconvconfig b/beagle/debian-rfs/usr/sbin/iconvconfig
deleted file mode 100755
index fd20548..0000000
--- a/beagle/debian-rfs/usr/sbin/iconvconfig
+++ /dev/null
diff --git a/beagle/debian-rfs/usr/sbin/install-info b/beagle/debian-rfs/usr/sbin/install-info
deleted file mode 100755
index 6f13a86..0000000
--- a/beagle/debian-rfs/usr/sbin/install-info
+++ /dev/null
diff --git a/beagle/debian-rfs/usr/sbin/invoke-rc.d b/beagle/debian-rfs/usr/sbin/invoke-rc.d
deleted file mode 100755
index e5887ee..0000000
--- a/beagle/debian-rfs/usr/sbin/invoke-rc.d
+++ /dev/null
@@ -1,464 +0,0 @@
-#!/bin/sh  
-#
-# invoke-rc.d.sysvinit - Executes initscript actions
-#
-# SysVinit /etc/rc?.d version for Debian's sysvinit package
-#
-# Copyright (C) 2000,2001 Henrique de Moraes Holschuh <hmh@debian.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 2 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, write to the Free Software Foundation, Inc.,
-# 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
-
-# Constants
-RUNLEVEL=/sbin/runlevel
-POLICYHELPER=/usr/sbin/policy-rc.d
-INITDPREFIX=/etc/init.d/
-RCDPREFIX=/etc/rc
-
-# Options
-BEQUIET=
-MODE=
-ACTION=
-FALLBACK=
-NOFALLBACK=
-FORCE=
-RETRY=
-RETURNFAILURE=
-RC=
-
-# Shell options
-set +e
-
-dohelp () {
- # 
- # outputs help and usage
- #
-cat <<EOF
-
-invoke-rc.d, Debian/SysVinit (/etc/rc?.d) initscript subsystem.
-Copyright (c) 2000,2001 Henrique de Moraes Holschuh <hmh@debian.org>
-
-Usage:
-  invoke-rc.d [options] <basename> <action> [extra parameters]
-
-  basename - Initscript ID, as per update-rc.d(8)
-  action   - Initscript action. Known actions are:
-                start, [force-]stop, restart,
-                [force-]reload, status
-  WARNING: not all initscripts implement all of the above actions.
-
-  extra parameters are passed as is to the initscript, following 
-  the action (first initscript parameter).
-
-Options:
-  --quiet
-     Quiet mode, no error messages are generated.
-  --force
-     Try to run the initscript regardless of policy and subsystem
-     non-fatal errors.
-  --try-anyway
-     Try to run init script even if a non-fatal error is found.
-  --disclose-deny
-     Return status code 101 instead of status code 0 if
-     initscript action is denied by local policy rules or
-     runlevel constrains.
-  --query
-     Returns one of status codes 100-106, does not run
-     the initscript. Implies --disclose-deny and --no-fallback.
-  --no-fallback
-     Ignores any fallback action requests by the policy layer.
-     Warning: this is usually a very *bad* idea for any actions
-     other than "start".
-  --help
-     Outputs help message to stdout
-
-EOF
-}
-
-printerror () {
- #
- # prints an error message
- #  $* - error message
- #
-if test x${BEQUIET} = x ; then
-    echo `basename $0`: "$*" >&2
-fi
-}
-
-formataction () {
- #
- # formats a list in $* into $printaction
- # for human-friendly printing to stderr
- # and sets $naction to action or actions
- #
-printaction=`echo $* | sed 's/ /, /g'`
-if test $# -eq 1 ; then
-    naction=action
-else
-    naction=actions
-fi
-}
-
-querypolicy () {
- #
- # queries policy database
- # returns: $RC = 104 - ok, run
- #          $RC = 101 - ok, do not run
- #        other - exit with status $RC, maybe run if $RETRY
- #          initial status of $RC is taken into account.
- #
-
-policyaction="${ACTION}"
-if test x${RC} = "x101" ; then
-    if test "${ACTION}" = "start" || test "${ACTION}" = "restart" ; then
-	policyaction="(${ACTION})"
-    fi
-fi
-
-if test "x${POLICYHELPER}" != x && test -x "${POLICYHELPER}" ; then
-    FALLBACK=`${POLICYHELPER} ${BEQUIET} ${INITSCRIPTID} "${policyaction}" ${RL}`
-    RC=$?
-    formataction ${ACTION}
-    case ${RC} in
-	0)   RC=104
-	     ;;
-	1)   RC=105
-	     ;;
-	101) if test x${FORCE} != x ; then
-		printerror Overriding policy-rc.d denied execution of ${printaction}.
-		RC=104
-	     else
-		printerror policy-rc.d denied execution of ${printaction}.
-	     fi
-	     ;;
-    esac
-    if test x${MODE} != xquery ; then
-      case ${RC} in
-	105) printerror policy-rc.d query returned \"behaviour undefined\",
-	     printerror assuming \"${printaction}\" is allowed.
-	     RC=104
-	     ;;
-	106) formataction ${FALLBACK}
-	     if test x${FORCE} = x ; then
-		 if test x${NOFALLBACK} = x ; then
-		     ACTION="${FALLBACK}"
-		     printerror executing ${naction} \"${printaction}\" instead due to policy-rc.d request.
-		     RC=104
-		 else
-		     printerror ignoring policy-rc.d fallback request: ${printaction}.
-		     RC=101
-		 fi
-	     else
-		 printerror ignoring policy-rc.d fallback request: ${printaction}.
-		 RC=104
-	     fi
-	     ;;
-      esac
-    fi
-    case ${RC} in
-      100|101|102|103|104|105|106) ;;
-      *) printerror WARNING: policy-rc.d returned unexpected error status ${RC}, 102 used instead.
-         RC=102
-	 ;;
-    esac
-else
-    if test x${RC} = x ; then 
-	RC=104
-    fi
-fi
-return
-}
-
-verifyparameter () {
- #
- # Verifies if $1 is not null, and $# = 1
- #
-if test $# -eq 0 ; then
-    printerror syntax error: invalid empty parameter
-    exit 103
-elif test $# -ne 1 ; then
-    printerror syntax error: embedded blanks are not allowed in \"$*\"
-    exit 103
-fi
-return
-}
-
-##
-##  main
-##
-
-## Verifies command line arguments
-
-if test $# -eq 0 ; then
-  printerror syntax error: missing required parameter, --help assumed
-  dohelp
-  exit 103
-fi
-
-state=I
-while test $# -gt 0 && test ${state} != III ; do
-    case "$1" in
-      --help)   dohelp 
-		exit 0
-		;;
-      --quiet)  BEQUIET=--quiet
-		;;
-      --force)  FORCE=yes
-		RETRY=yes
-		;;
-      --try-anyway)
-	        RETRY=yes
-		;;
-      --disclose-deny)
-		RETURNFAILURE=yes
-		;;
-      --query)  MODE=query
-		RETURNFAILURE=yes
-		;;
-      --no-fallback)
-		NOFALLBACK=yes
-		;;
-      --*)	printerror syntax error: unknown option \"$1\"
-		exit 103
-		;;
-	*)      case ${state} in
-		I)  verifyparameter $1
-		    INITSCRIPTID=$1
-		    ;;
-		II) verifyparameter $1
-		    ACTION=$1
-		    ;;
-		esac
-		state=${state}I
-		;;
-    esac
-    shift
-done
-
-if test ${state} != III ; then
-    printerror syntax error: missing required parameter
-    exit 103
-fi
-
-#NOTE: It may not be obvious, but "$@" from this point on must expand
-#to the extra initscript parameters, except inside functions.
-
-## sanity checks and just-in-case warnings.
-case ${ACTION} in
-    start|stop|force-stop|restart|reload|force-reload|status)
-	;;
-    *)
-	if test "x${POLICYHELPER}" != x && test -x "${POLICYHELPER}" ; then
-	    printerror action ${ACTION} is unknown, but proceeding anyway.
-	fi
-	;;
-esac
-
-## Verifies if the given initscript ID is known
-## For sysvinit, this error is critical
-if test ! -f "${INITDPREFIX}${INITSCRIPTID}" ; then
-    printerror unknown initscript, ${INITDPREFIX}${INITSCRIPTID} not found.
-    exit 100
-fi
-
-## Queries sysvinit for the current runlevel
-RL=`${RUNLEVEL} | sed 's/.*\ //'`
-if test ! $? ; then
-    printerror "could not determine current runlevel"
-    if test x${RETRY} = x ; then
-	exit 102
-    fi
-    RL=
-fi
-
-## Running ${RUNLEVEL} to get current runlevel do not work in the boot
-## runlevel (scripts in /etc/rcS.d/), as /var/run/utmp contain
-## runlevel 0 or 6 (written at shutdown) at that point.
-if test x${RL} = x0 || test x${RL} = x6 ; then
-    if ps -fp 1 | grep -q 'init boot' ; then
-       RL=S
-    fi
-fi
-
-## Handles shutdown sequences VERY safely
-## i.e.: forget about policy, and do all we can to run the script.
-## BTW, why the heck are we being run in a shutdown runlevel?!
-if test x${RL} = x0 || test x${RL} = x6 ; then
-    FORCE=yes
-    RETRY=yes
-    POLICYHELPER=
-    BEQUIET=
-    printerror "-----------------------------------------------------"
-    printerror "WARNING: 'invoke-rc.d ${INITSCRIPTID} ${ACTION}' called"
-    printerror "during shutdown sequence."
-    printerror "enabling safe mode: initscript policy layer disabled"
-    printerror "-----------------------------------------------------"
-fi
-
-## Verifies the existance of proper S??initscriptID and K??initscriptID 
-## *links* in the proper /etc/rc?.d/ directory
-verifyrclink () {
-  #
-  # verifies if parameters are non-dangling symlinks
-  # all parameters are verified
-  #
-  doexit=
-  while test $# -gt 0 ; do
-    if test ! -L "$1" ; then
-        printerror not a symlink: $1
-        doexit=102
-    fi
-    if test ! -f "$1" ; then
-        printerror dangling symlink: $1
-        doexit=102
-    fi
-    shift
-  done
-  if test x${doexit} != x && test x${RETRY} = x; then
-     exit ${doexit}
-  fi
-  return 0
-}
-
-# we do handle multiple links per runlevel
-# but we don't handle embedded blanks in link names :-(
-if test x${RL} != x ; then
-    SLINK=`ls -d -Q ${RCDPREFIX}${RL}.d/S[0-9][0-9]${INITSCRIPTID} 2>/dev/null | xargs`
-    KLINK=`ls -d -Q ${RCDPREFIX}${RL}.d/K[0-9][0-9]${INITSCRIPTID} 2>/dev/null | xargs`
-    SSLINK=`ls -d -Q ${RCDPREFIX}S.d/S[0-9][0-9]${INITSCRIPTID} 2>/dev/null | xargs`
-
-    verifyrclink ${SLINK} ${KLINK} ${SSLINK}
-fi
-
-testexec () {
-  #
-  # returns true if any of the parameters is
-  # executable (after following links)
-  #
-  while test $# -gt 0 ; do
-    if test -x "$1" ; then
-       return 0
-    fi
-    shift
-  done
-  return 1
-}
-
-RC=
-
-###
-### LOCAL INITSCRIPT POLICY: Enforce need of a start entry
-### in either runlevel S or current runlevel to allow start
-### or restart.
-###
-case ${ACTION} in
-  start|restart)
-    if testexec ${SLINK} ; then
-	RC=104
-    elif testexec ${KLINK} ; then
-	RC=101
-    elif testexec ${SSLINK} ; then
-	RC=104
-    fi
-  ;;
-esac
-
-# test if /etc/init.d/initscript is actually executable
-if testexec "${INITDPREFIX}${INITSCRIPTID}" ; then
-    if test x${RC} = x && test x${MODE} = xquery ; then
-        RC=105
-    fi
-
-    # call policy layer
-    querypolicy
-    case ${RC} in
-        101|104)
-           ;;
-        *) if test x${MODE} != xquery ; then
-	       printerror policy-rc.d returned error status ${RC}
-	       if test x${RETRY} = x ; then
-	           exit ${RC}
-               else
-    	           RC=102
-    	       fi
-           fi
-           ;;
-    esac
-else
-    ###
-    ### LOCAL INITSCRIPT POLICY: non-executable initscript; deny exec.
-    ### (this is common sense, actually :^P )
-    ###
-    RC=101
-fi
-
-## Handles --query
-if test x${MODE} = xquery ; then
-    exit ${RC}
-fi
-
-
-setechoactions () {
-    if test $# -gt 1 ; then
-	echoaction=true
-    else
-	echoaction=
-    fi
-}
-getnextaction () {
-    saction=$1
-    shift
-    ACTION="$@"
-}
-
-## Executes initscript
-## note that $ACTION is a space-separated list of actions
-## to be attempted in order until one suceeds.
-if test x${FORCE} != x || test ${RC} -eq 104 ; then
-    if testexec "${INITDPREFIX}${INITSCRIPTID}" ; then
-	RC=102
-	setechoactions ${ACTION}
-	while test ! -z "${ACTION}" ; do
-	    getnextaction ${ACTION}
-	    if test ! -z ${echoaction} ; then
-		printerror executing initscript action \"${saction}\"...
-	    fi
-
-	    "${INITDPREFIX}${INITSCRIPTID}" "${saction}" "$@" && exit 0
-	    RC=$?
-
-	    if test ! -z "${ACTION}" ; then
-		printerror action \"${saction}\" failed, trying next action...
-	    fi
-	done
-	printerror initscript ${INITSCRIPTID}, action \"${saction}\" failed.
-	exit ${RC}
-    fi
-    exit 102
-fi
-
-## Handles --disclose-deny and denied "status" action (bug #381497)
-if test ${RC} -eq 101 && test x${RETURNFAILURE} = x ; then
-    if test "x${ACTION%% *}" = "xstatus"; then
-	printerror emulating initscript action \"status\", returning \"unknown\"
-	RC=4
-    else
-        RC=0
-    fi
-else
-    formataction ${ACTION}
-    printerror initscript ${naction} \"${printaction}\" not executed.
-fi
-
-exit ${RC}
diff --git a/beagle/debian-rfs/usr/sbin/ldattach b/beagle/debian-rfs/usr/sbin/ldattach
deleted file mode 100755
index b676705..0000000
--- a/beagle/debian-rfs/usr/sbin/ldattach
+++ /dev/null
diff --git a/beagle/debian-rfs/usr/sbin/mklost+found b/beagle/debian-rfs/usr/sbin/mklost+found
deleted file mode 100755
index bbd671d..0000000
--- a/beagle/debian-rfs/usr/sbin/mklost+found
+++ /dev/null
diff --git a/beagle/debian-rfs/usr/sbin/newusers b/beagle/debian-rfs/usr/sbin/newusers
deleted file mode 100755
index a91875a..0000000
--- a/beagle/debian-rfs/usr/sbin/newusers
+++ /dev/null
diff --git a/beagle/debian-rfs/usr/sbin/nologin b/beagle/debian-rfs/usr/sbin/nologin
deleted file mode 100755
index 4abb9b9..0000000
--- a/beagle/debian-rfs/usr/sbin/nologin
+++ /dev/null
diff --git a/beagle/debian-rfs/usr/sbin/pam-auth-update b/beagle/debian-rfs/usr/sbin/pam-auth-update
deleted file mode 100755
index 7010cdc..0000000
--- a/beagle/debian-rfs/usr/sbin/pam-auth-update
+++ /dev/null
@@ -1,697 +0,0 @@
-#!/usr/bin/perl -w
-
-# pam-auth-update: update /etc/pam.d/common-* from /usr/share/pam-configs
-#
-# Update the /etc/pam.d/common-* files based on the per-package profiles
-# provided in /usr/share/pam-configs/ taking into consideration user's
-# preferences (as determined via debconf prompting).
-#
-# Written by Steve Langasek <steve.langasek@canonical.com>
-#
-# Copyright (C) 2008 Canonical Ltd.
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of version 3 of the GNU General Public License as
-# published by the Free Software Foundation.
-#
-# # 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, write to the Free Software
-# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301,
-# USA.
-
-use strict;
-use Debconf::Client::ConfModule ':all';
-use IPC::Open2 'open2';
-
-version('2.0');
-my $capb=capb('backup escape');
-
-my $inputdir = '/usr/share/pam-configs';
-my $template = 'libpam-runtime/profiles';
-my $errtemplate = 'libpam-runtime/conflicts';
-my $overridetemplate = 'libpam-runtime/override';
-my $blanktemplate = 'libpam-runtime/no_profiles_chosen';
-my $confdir = '/etc/pam.d';
-my $savedir = '/var/lib/pam';
-my (%profiles, @sorted, @enabled, @conflicts, @new, %removals);
-my $force = 0;
-my $package = 0;
-my $priority = 'high';
-my %md5sums = (
-	'auth' => ['8d4fe17e66ba25de16a117035d1396aa'],
-	'account' => ['3c0c362eaf3421848b679d63fd48c3fa'],
-	'password' => [
-		'50fce2113dfda83ac8bdd5a6e706caec',
-		'4bd7610f2e85f8ddaef79c7db7cb49eb',
-		'9ba753d0824276b44bcadfee1f87b6bc',
-	],
-	'session' => [
-		'240fb92986c885b327cdb21dd641da8c',
-		'4a25673e8b36f1805219027d3be02cd2',
-	],
-	'session-noninteractive' => [
-		'ad2b78ce1498dd637ef36469430b6ac6',
-	],
-);
-
-opendir(DIR, $inputdir) || die "could not open config directory: $!";
-while (my $profile = readdir(DIR)) {
-	next if ($profile eq '.' || $profile eq '..');
-	%{$profiles{$profile}} = parse_pam_profile($inputdir . '/' . $profile);
-}
-closedir DIR;
-
-# use a '--force' arg to specify that /etc/pam.d should be overwritten; 
-# used only on upgrades where the postinst has already determined that the
-# checksums match.  Module packages other than libpam-runtime itself must
-# NEVER use this option!  Document with big skullses and crossboneses!  It
-# needs to be exposed for libpam-runtime because that's the package that
-# decides whether we have a pristine config to be converted, and knows
-# whether the version being upgraded from is one for which the conversion
-# should be done.
-
-while ($#ARGV >= 0) {
-	my $opt = shift;
-	if ($opt eq '--force') {
-		$force = 1;
-	} elsif ($opt eq '--package') {
-		$package = 1;
-	} elsif ($opt eq '--remove') {
-		while ($#ARGV >= 0) {
-			last if ($ARGV[0] =~ /^--/);
-			$removals{shift @ARGV} = 1;
-		}
-		# --remove implies --package
-		$package = 1 if (keys(%removals));
-	}
-}
-
-$priority = 'medium' if ($package);
-
-x_loadtemplatefile('/var/lib/dpkg/info/libpam-runtime.templates','libpam-runtime');
-
-# always sort by priority, so we have consistency and don't have to
-# shuffle later
-@sorted = sort { $profiles{$b}->{'Priority'} <=> $profiles{$a}->{'Priority'}
-                 || $b cmp $a }
-               keys(%profiles);
-# If we're being called for package removal, filter out those options here
-@sorted = grep { !$removals{$_} } @sorted;
-
-subst($template, 'profile_names', join(', ',@sorted));
-subst($template, 'profiles',
-	join(', ', map { $profiles{$_}->{'Name'} } @sorted));
-
-my $diff = diff_profiles($confdir,$savedir);
-
-if ($diff) {
-	@enabled = grep { !$removals{$_} } @{$diff->{'mods'}};
-} else {
-	@enabled = split(/, /,get($template));
-}
-
-# find out what we've seen, so we can ignore those defaults
-my %seen;
-if (-e $savedir . '/seen') {
-	open(SEEN,$savedir . '/seen');
-	while (<SEEN>) {
-		chomp;
-		$seen{$_} = 1;
-	}
-	close(SEEN);
-}
-
-# filter out any options that are no longer available for any reason
-@enabled = grep { $profiles{$_} } @enabled;
-
-# an empty module set is an error, so in that case grab all the defaults
-if (!@enabled) {
-	%seen = ();
-	$priority = 'high' unless ($force);
-}
-
-# add any previously-unseen configs
-push(@enabled,
-     grep { $profiles{$_}->{'Default'} eq 'yes' && !$seen{$_} } @sorted);
-@enabled = sort { $profiles{$b}->{'Priority'} <=> $profiles{$a}->{'Priority'}
-                  || $b cmp $a }
-                @enabled;
-my $prev = '';
-@enabled = grep { $_ ne $prev && (($prev) = $_) } @enabled;
-
-# Do we have any new options to show?  If not, we shouldn't reprompt the
-# user, at any priority level, unless explicitly called.
-@new = grep { !$seen{$_} } @sorted;
-
-# if diff_profiles() fails, and we weren't passed a 'force' argument
-# (because this isn't an upgrade from an old version, or the checksum
-# didn't match, or we're being called by some other module package), prompt
-# the user whether to override.  If the user declines (the default), we
-# never again manage this config unless manually called with '--force'.
-if (!$diff && !$force) {
-	input('high',$overridetemplate);
-	go();
-	$force = 1 if (get($overridetemplate) eq 'true');
-}
-
-if (!$diff && !$force) {
-	print STDERR <<EOF;
-
-pam-auth-update: Local modifications to /etc/pam.d/common-*, not updating.
-pam-auth-update: Run pam-auth-update --force to override.
-
-EOF
-	exit;
-}
-
-umask(0022);
-
-do {
-	@conflicts = ();
-
-	if (@new || !$package) {
-		fset($template,'seen','false');
-	}
-	set($template,join(', ', @enabled));
-
-	input($priority,$template);
-	go();
-
-	@enabled = split(/, /, get($template));
-
-	# in case of conflicts, automatically unset the lower priority
-	# item of each pair
-	foreach my $elem (@enabled)
-	{
-		for (my $i=$#enabled; $i >= 0; $i--)
-		{
-			my $conflict = $enabled[$i];
-			if ($profiles{$elem}->{'Conflicts'}->{$conflict}) {
-				splice(@enabled,$i,1);
-				my $desc = $profiles{$elem}->{'Name'}
-					. ', ' . $profiles{$conflict}->{'Name'};
-				push(@conflicts,$desc);
-			}
-		}
-	}
-	if (@conflicts) {
-		subst($errtemplate, 'conflicts', join("\\n", @conflicts));
-		input('high',$errtemplate);
-	}
-	set($template, join(', ', @enabled));
-	if (!@enabled) {
-		input('high',$blanktemplate);
-		# we can only end up here by user error, but give them another
-		# shot at selecting a correct config anyway.
-		fset($template,'seen','false');
-	}
-} while (@conflicts || !@enabled);
-
-# the decision has been made about what configs to use, so even if
-# something fails after this, we shouldn't go munging the default
-# options again.  Save the list of known configs to /var/lib/pam.
-open(SEEN,"> $savedir/seen");
-for my $i (@sorted) {
-	print SEEN "$i\n";
-}
-close(SEEN);
-
-# @enabled now contains our list of profiles to use for piecing together
-# a config
-# we have:
-# - templates into which we insert the specialness
-# - magic comments denoting the beginning and end of our managed block;
-#   looking at only the functional config lines would potentially let us
-#   handle more cases, at the expense of much greater complexity, so
-#   pass on this at least for the first round
-# - a representation of the autogenerated config stored in /var/lib/pam,
-#   that we can diff against in order to account for changed options or
-#   manually dropped modules
-# - a hash describing the local modifications the user has made to the
-#   config; these are always preserved unless manually overridden with
-#   the --force option
-
-write_profiles(\%profiles, \@enabled, $confdir, $savedir, $diff, $force);
-
-
-# take a single line from a stock config, and merge it with the
-# information about local admin edits
-sub merge_one_line
-{
-	my ($line,$diff,$count) = @_;
-	my (@opts,$modline);
-
-	my ($adds,$removes);
-
-	$line =~ /^((\[[^]]+\]|\w+)\s+\S+)\s*(.*)/;
-
-	@opts = split(/\s+/,$3);
-	$modline = $1;
-	$modline =~ s/end/$count/g;
-	if ($diff) {
-		my $mod = $modline;
-		$mod =~ s/(\[[^0-9]*)[0-9]+(.*\])/$1$2/g;
-		$adds = \%{$diff->{'add'}{$mod}};
-		$removes = \%{$diff->{'remove'}{$mod}};
-	} else {
-		$adds = $removes = undef;
-	}
-
-	for (my $i = 0; $i <= $#opts; $i++) {
-		if ($adds->{$opts[$i]}) {
-			delete $adds->{$opts[$i]};
-		}
-		if ($removes->{$opts[$i]}) {
-			splice(@opts,$i,1);
-			$i--;
-		}
-	}
-	return $modline . " " . join(' ',@opts,sort keys(%{$adds})) . "\n";
-}
-
-# return the lines for a given config name, type, and position in the stack
-sub lines_for_module_and_type
-{
-	my ($profiles, $mod, $type, $modpos) = @_;
-	if ($modpos == 0 && $profiles->{$mod}{$type . '-Initial'}) {
-		return $profiles->{$mod}{$type . '-Initial'};
-	}
-	return $profiles->{$mod}{$type};
-}
-
-# create a single PAM config from the indicated template and selections,
-# writing to a new file
-sub create_from_template
-{
-	my($template,$dest,$profiles,$enabled,$diff,$type) = @_;
-	my $state = 0;
-	my $uctype = ucfirst($type);
-	$type =~ s/-noninteractive//;
-
-	open(INPUT,$template) || return 0;
-	open(OUTPUT,">$dest") || return 0;
-
-	while (<INPUT>) {
-		if ($state == 1) {
-			if (/^# here's the fallback if no module succeeds/) {
-				print OUTPUT;
-				$state++;
-			}
-			next;
-		}
-		if ($state == 3) {
-			if (/^# end of pam-auth-update config/) {
-				print OUTPUT;
-				$state++;
-			}
-			next;
-		}
-
-		print OUTPUT;
-
-		my ($pattern,$val);
-		if ($state == 0) {
-			$pattern = '^# here are the per-package modules \(the "Primary" block\)';
-			$val = 'Primary';
-		} elsif ($state == 2) {
-			$pattern = '^# and here are more per-package modules \(the "Additional" block\)';
-			$val = 'Additional';
-		} else {
-			next;
-		}
-
-		if (/$pattern/) {
-			my $i = 0;
-			my $count = 0;
-			# first we need to get a count of lines that we're
-			# going to output, so we can fix up the jumps correctly
-			for my $mod (@{$enabled}) {
-				my $output;
-				next if (!$profiles->{$mod}{$uctype . '-Type'});
-				next if $profiles->{$mod}{$uctype . '-Type'} ne $val;
-				$output = lines_for_module_and_type($profiles, $mod, $uctype, $i++);
-				# bypasses a perl warning about @_, sigh
-				my @tmparr = split("\n+",$output);
-				$count += @tmparr;
-			}
-
-			# in case anything tries to jump in the 'additional'
-			# block, let's try not to jump off the stack...
-			$count-- if ($val eq 'Additional');
-
-			# no primary block, so output a stock pam_permit line
-			# to keep the stack intact
-			if ($val eq 'Primary' && $count == 0)
-			{
-				print OUTPUT "$type\t[default=1]\t\t\tpam_permit.so\n";
-			}
-
-			$i = 0;
-			for my $mod (@{$enabled}) {
-				my $output;
-				my @output;
-				next if (!$profiles->{$mod}{$uctype . '-Type'});
-				next if $profiles->{$mod}{$uctype . '-Type'} ne $val;
-				$output = lines_for_module_and_type($profiles, $mod, $uctype, $i++);
-				for my $line (split("\n",$output)) {
-					$line = merge_one_line($line,$diff,
-					                       $count);
-					print OUTPUT "$type\t$line";
-					$count--;
-				}
-			}
-			$state++;
-		}
-	}
-	close(INPUT);
-	close(OUTPUT);
-
-	if ($state < 4) {
-		unlink($dest);
-		return 0;
-	}
-	return 1;
-}
-
-# take a template file, strip out everything between the markers, and
-# return the md5sum of the remaining contents.  Used for testing for
-# local modifications of the boilerplate.
-sub get_template_md5sum
-{
-	my($template) = @_;
-	my $state = 0;
-
-	open(INPUT,$template) || return '';
-	my($md5sum_fd,$output_fd);
-	my $pid = open2($md5sum_fd, $output_fd, 'md5sum');
-	return '' if (!$pid);
-
-	while (<INPUT>) {
-		if ($state == 1) {
-			if (/^# here's the fallback if no module succeeds/) {
-				print $output_fd $_;
-				$state++;
-			}
-			next;
-		}
-		if ($state == 3) {
-			if (/^# end of pam-auth-update config/) {
-				print $output_fd $_;
-				$state++;
-			}
-			next;
-		}
-
-		print $output_fd $_;
-
-		my ($pattern,$val);
-		if ($state == 0) {
-			$pattern = '^# here are the per-package modules \(the "Primary" block\)';
-		} elsif ($state == 2) {
-			$pattern = '^# and here are more per-package modules \(the "Additional" block\)';
-		} else {
-			next;
-		}
-
-		if (/$pattern/) {
-			$state++;
-		}
-	}
-	close(INPUT);
-	close($output_fd);
-	my $md5sum = <$md5sum_fd>;
-	close($md5sum_fd);
-	waitpid $pid, 0;
-
-	$md5sum = (split(/\s+/,$md5sum))[0];
-	return $md5sum;
-}
-
-# merge a set of module declarations into a set of new config files,
-# using the information returned from diff_profiles().
-sub write_profiles
-{
-	my($profiles,$enabled,$confdir,$savedir,$diff,$force) = @_;
-
-	if (! -d $savedir) {
-		mkdir($savedir);
-	}
-		
-	# because we can't atomically replace both /var/lib/pam/$foo and
-	# /etc/pam.d/common-$foo at the same time, take steps to make this
-	# somewhat robust
-	for my $type ('auth','account','password','session',
-	              'session-noninteractive')
-	{
-		my $target = $confdir . '/common-' . $type;
-		my $template = $target;
-		my $dest = $template . '.pam-new';
-
-		my $diff = $diff;
-		if ($diff) {
-			$diff = \%{$diff->{$type}};
-		}
-
-		# Detect if the template is unmodified, and if so, use
-		# the version from /usr/share.  Depends on knowing the
-		# md5sums of the originals.
-		my $md5sum = get_template_md5sum($template);
-		for my $i (@{$md5sums{$type}}) {
-			if ($md5sum eq $i) {
-				$template = '/usr/share/pam/common-' . $type;
-				last;
-			}
-		}
-
-		# first, write out the new config
-		if (!create_from_template($template,$dest,$profiles,$enabled,
-		                          $diff,$type))
-		{
-			if (!$force) {
-				return 0;
-			}
-			$template = '/usr/share/pam/common-' . $type;
-			if (!create_from_template($template,$dest,$profiles,
-			                          $enabled,$diff,$type))
-			{
-				return 0;
-			}
-		}
-
-		# then write out the saved config
-		if (!open(OUTPUT, "> $savedir/$type.new")) {
-			unlink($dest);
-			return 0;
-		}
-		my $i = 0;
-		my $uctype = ucfirst($type);
-		for my $mod (@{$enabled}) {
-			my $output;
-			next if (!$profiles->{$mod}{$uctype . '-Type'});
-			next if ($profiles->{$mod}{$uctype . '-Type'} eq 'Additional');
-
-			$output = lines_for_module_and_type($profiles, $mod, $uctype, $i++);
-			if ($output) {
-				print OUTPUT "Module: $mod\n";
-				print OUTPUT $output . "\n";
-			}
-		}
-
-		# no primary block, so output a stock pam_permit line
-		if ($i == 0)
-		{
-			print OUTPUT "Module: null\n";
-			print OUTPUT "[default=1]\t\t\tpam_permit.so\n";
-		}
-
-		$i = 0;
-		for my $mod (@{$enabled}) {
-			my $output;
-			next if (!$profiles->{$mod}{$uctype . '-Type'});
-			next if ($profiles->{$mod}{$uctype . '-Type'} eq 'Primary');
-
-			$output = lines_for_module_and_type($profiles, $mod, $uctype, $i++);
-			if ($output) {
-				print OUTPUT "Module: $mod\n";
-				print OUTPUT $output . "\n";
-			}
-		}
-
-		close(OUTPUT);
-
-		# then do the renames, back-to-back
-		# we have to use system because File::Copy is in
-		# perl-modules, not perl-base
-		if (-e "$target" && $force) {
-			system('cp','-f',$target,$target . '.pam-old');
-		}
-		rename($dest,$target);
-		rename("$savedir/$type.new","$savedir/$type");
-	}
-
-	# at the end of a successful write, reset the 'seen' flag and the
-	# value of the debconf override question.
-	fset($overridetemplate,'seen','false');
-	set($overridetemplate,'false');
-}
-
-# reconcile the current config in /etc/pam.d with the saved ones in
-# /var/lib/pam; returns a hash of profile names and the corresponding
-# options that should be added/removed relative to the stock config.
-# returns false if any of the markers are missing that permit a merge,
-# or on any other failure.
-sub diff_profiles
-{
-	my ($sourcedir,$savedir) = @_;
-	my (%diff);
-
-	@{$diff{'mods'}} = ();
-	# Load the saved config from /var/lib/pam, then iterate through all
-	# lines in the current config that are in the managed block.
-	# If anything fails here, just return immediately since we then
-	# have nothing to merge; instead, the caller will decide later
-	# whether to force an overwrite.
-	for my $type ('auth','account','password','session',
-	              'session-noninteractive')
-	{
-		my (@saved,$modname);
-
-		open(SAVED,$savedir . '/' . $type) || return 0;
-		while (<SAVED>) {
-			if (/^Module: (.*)/) {
-				$modname = $1;
-				next;
-			}
-			chomp;
-			# trim out the destination of any jumps; this saves
-			# us from having to re-parse everything just to fix
-			# up the jump lengths, when changes to these will
-			# already show up as inconsistencies elsewhere
-			s/(\[[^0-9]*)[0-9]+(.*\])/$1$2/g;
-			s/(\[.*)end(.*\])/$1$2/g;
-			my (@temp) = ($modname,$_);
-			push(@saved,\@temp);
-		}
-		close(SAVED);
-
-		my $state = 0;
-		my (@prev_opts,$curmod);
-		my $realtype = $type;
-		$realtype =~ s/-noninteractive//;
-
-		open(CURRENT,$sourcedir . '/common-' . $type) || return 0;
-		while (<CURRENT>) {
-			if ($state == 0) {
-				$state = 1
-				   if (/^# here are the per-package modules \(the "Primary" block\)/);
-				next;
-			}
-			if ($state == 1) {
-				s/^$realtype\s+//;
-				if (/^# here's the fallback if no module succeeds/) {
-					$state = 2;
-					next;
-				}
-			}
-			if ($state == 2) {
-				$state = 3
-				   if (/^# and here are more per-package modules \(the "Additional" block\)/);
-				next;
-			}
-			if ($state == 3) {
-				last if (/^# end of pam-auth-update config/);
-				s/^$realtype\s+//;
-			}
-
-			my $found = 0;
-			my $curopts;
-			while (!$found && $#saved >= 0) {
-				my $line;
-				($modname,$line) = @{$saved[0]};
-				shift(@saved);
-				$line =~ /^((\[[^]]+\]|\w+)\s+\S+)\s*(.*)/;
-				@prev_opts = split(/\s+/,$3);
-				$curmod = $1;
-				# FIXME: the key isn't derived from the config
-				# name, so collisions are possible if more
-				# than one config references the same module
-
-				$_ =~ s/(\[[^0-9]*)[0-9]+(.*\])/$1$2/g;
-				# check if this is a match for the current line
-				if ($_ =~ /^\Q$curmod\E\s*(.*)$/) {
-					$found = 1;
-					$curopts = $1;
-					push(@{$diff{'mods'}},$modname);
-				}
-			}
-
-			# there's a line in the live config that doesn't
-			# correspond to anything from the saved config.
-			# treat this as a failure; it's very error-prone
-			# to decide what to do with an added line that
-			# didn't come from a package.
-			return 0 if (!$found);
-
-			for my $opt (split(/\s+/,$curopts)) {
-				my $found = 0;
-				for (my $i = 0; $i <= $#prev_opts; $i++) {
-					if ($prev_opts[$i] eq $opt) {
-						$found = 1;
-						splice(@prev_opts,$i,1);
-					}
-				}
-				$diff{$type}{'add'}{$curmod}{$opt} = 1 if (!$found);
-			}
-			for my $opt (@prev_opts) {
-				$diff{$type}{'remove'}{$curmod}{$opt} = 1;
-			}
-		}
-		close(CURRENT);
-
-		# we couldn't parse the config, so the merge fails
-		return 0 if ($state < 3);
-	}
-	return \%diff;
-}
-
-# simple function to parse a provided config file, in pseudo-RFC822
-# format,
-sub parse_pam_profile
-{
-	my ($profile) = $_[0];
-	my $fieldname;
-	my %profile;
-	open(PROFILE, $profile) || die "could not read profile $profile: $!";
-	while (<PROFILE>) {
-		if (/^(\S+):\s+(.*)$/) {
-			$fieldname = $1;
-			# compatibility with the first implementation round;
-			# "Auth-Final" is now just called "Auth"
-			$fieldname =~ s/-Final$//;
-			if ($fieldname eq 'Conflicts') {
-				foreach my $elem (split(/, /, $2)) {
-					$profile{'Conflicts'}->{$elem} = 1;
-				}
-			} else {
-				$profile{$fieldname} = $2;
-			}
-		} else {
-			chomp;
-			s/^\s+//;
-			$profile{$fieldname} .= "\n$_";
-			$profile{$fieldname} =~ s/^[\n\s]+//;
-		}
-	}
-	close(PROFILE);
-	if (!defined($profile{'Session-Interactive-Only'})) {
-			$profile{'Session-noninteractive-Type'} = $profile{'Session-Type'};
-			$profile{'Session-noninteractive'} = $profile{'Session'};
-			$profile{'Session-noninteractive-Initial'} = $profile{'Session-Initial'};
-	}
-	return %profile;
-}
diff --git a/beagle/debian-rfs/usr/sbin/pam_getenv b/beagle/debian-rfs/usr/sbin/pam_getenv
deleted file mode 100755
index 2abddca..0000000
--- a/beagle/debian-rfs/usr/sbin/pam_getenv
+++ /dev/null
@@ -1,123 +0,0 @@
-#!/usr/bin/perl -w
-
-=head1 NAME
-
-pam_getenv - get environment variables from /etc/environment
-
-=head1 SYNOPSIS
-
-pam_getenv B<[-l] [-s]> I<env_var>
-
-=head1 DESCRIPTION
-
-This tool  will print out the value of I<env_var> from F</etc/environment>.  It will attempt to expand environment variable references in the definition of I<env_var> but will fail if PAM items are expanded.
-
-The B<-l> option indicates the script should return an environment variable related to default locale information.
-
-The B<-s> option indicates that the script should return an
-system default environment variable.
-
-Currently neither the B<-l> or B<-s> options do anything.  They are
-included because future versions of Debian may have a separate
-repository for the initial environment used by init scripts and for
-system locale information.  These options will allow this script to be
-a stable interface even in that environment.
-
-=cut
-
-# Copyright 2004 by Sam Hartman
-# This script may be copied under the terms of the GNU GPL
-# version 2, or at your option any later version.
-
-use strict;
-use vars qw(*CONFIGFILE *ENVFILE);
-
-sub read_line($) {
-  my $fh = shift;
-  my $line;
-  local $_;
-  line: while (<$fh>) {
-    chomp;
-    s/^\s+//;
-s/\#.*$//;
-    next if $_ eq "";
-    if (s/\\\s*$//) {
-      $line .= $_;
-      next line;
-    }
-
-    $line .= $_;
-    last;
-  }
-  $line;
-  
-}
-
-
-sub parse_line($) {
-  my $var;
-  my (%x, @x);
-  local $_ = shift;
-  return undef unless defined $_ and s/(\S+)\s//;
-  $var->{Name} = $1;
-  s/^\s*//;
-  @x = split(/=([^"\s]\S*|"[^"]*")\s*/, $_);
-  unless (scalar(@x)%2 == 0) {
-    push @x, undef;
-  }
-  %x = @x;
-  @{$var}{"Default", "Override"} =
-    @x{"DEFAULT", "OVERRIDE"};
-  $var;
-}
-
-sub expand_val($) {
-  my ($val) = @_;
-return undef unless $val;
-	die "Cannot handle PAM items\n" if /(?<!\\)\@/;
-  $val =~ s/(?<!\\)\${([^}]+)}/$ENV{$1}||""/eg;
-  return $val;
-}
-
-my $lookup;
-
-while ($_ = shift) {
-  next if $_ eq "-s";
-  next if $_ eq "-l";
-  $lookup = $_;
-  last;
-}
-unless (defined $lookup) {
-  die "Usage: pam_getenv [-l] [-s] env_var\n";
-}
-
-my %allvars;
-
-open (CONFIGFILE, "/etc/security/pam_env.conf")
-  or die "Cannot open environment file: $!\n";
-
-while (my $var = parse_line(read_line(\*CONFIGFILE))) {
-  my $val;
-  unless ($val = expand_val($var->{Override})) {
-    $val = expand_val($var->{Default});
-  }
-  $allvars{$var->{Name}} = $val;
-}
-
-if (open (ENVFILE, "/etc/environment")) {
-  while (my $line = read_line(\*ENVFILE)) {
-    $line =~ s/^export //;
-    $line =~ /(.*?)=(.+)/ or next;
-    my ($var, $val) = ($1, $2);
-    # This is bizarre logic (" and ' match each other, quotes are only
-    # significant at the start and end of the string, and the trailing quote
-    # may be omitted), but it's what pam_env does.
-    $val =~ s/^["'](.*?)["']?$/$1/;
-    $allvars{$var} = $val;
-  }
-}
-
-if (exists $allvars{$lookup}) {
-  print $allvars{$lookup}, "\n";
-  exit(0);
-}
diff --git a/beagle/debian-rfs/usr/sbin/pwck b/beagle/debian-rfs/usr/sbin/pwck
deleted file mode 100755
index bd6b918..0000000
--- a/beagle/debian-rfs/usr/sbin/pwck
+++ /dev/null
diff --git a/beagle/debian-rfs/usr/sbin/pwconv b/beagle/debian-rfs/usr/sbin/pwconv
deleted file mode 100755
index abd3964..0000000
--- a/beagle/debian-rfs/usr/sbin/pwconv
+++ /dev/null
diff --git a/beagle/debian-rfs/usr/sbin/pwunconv b/beagle/debian-rfs/usr/sbin/pwunconv
deleted file mode 100755
index 15d9163..0000000
--- a/beagle/debian-rfs/usr/sbin/pwunconv
+++ /dev/null
diff --git a/beagle/debian-rfs/usr/sbin/ramsize b/beagle/debian-rfs/usr/sbin/ramsize
deleted file mode 120000
index f9af812..0000000
--- a/beagle/debian-rfs/usr/sbin/ramsize
+++ /dev/null
@@ -1 +0,0 @@
-rdev
\ No newline at end of file
diff --git a/beagle/debian-rfs/usr/sbin/rdev b/beagle/debian-rfs/usr/sbin/rdev
deleted file mode 100755
index 4b12bab..0000000
--- a/beagle/debian-rfs/usr/sbin/rdev
+++ /dev/null
diff --git a/beagle/debian-rfs/usr/sbin/readprofile b/beagle/debian-rfs/usr/sbin/readprofile
deleted file mode 100755
index 51466f3..0000000
--- a/beagle/debian-rfs/usr/sbin/readprofile
+++ /dev/null
diff --git a/beagle/debian-rfs/usr/sbin/remove-shell b/beagle/debian-rfs/usr/sbin/remove-shell
deleted file mode 100755
index 1e6b739..0000000
--- a/beagle/debian-rfs/usr/sbin/remove-shell
+++ /dev/null
@@ -1,40 +0,0 @@
-#!/bin/sh -e
-
-if test $# -eq 0
-then
-	echo usage: $0 shellname '[shellname ...]' 1>&2
-	exit 1
-fi
-
-file=/etc/shells
-# I want this to be GUARANTEED to be on the same filesystem as $file
-tmpfile=${file}.tmp
-otmpfile=${file}.tmp2
-
-set -o noclobber
-
-trap "rm -f $tmpfile $otmpfile" EXIT
-        
-if ! cat $file > $tmpfile
-then
-        cat 1>&2 <<EOF
-Either another instance of $0 is running, or it was previously interrupted.
-Please examine ${tmpfile} to see if it should be moved onto ${file}.
-EOF
-        exit 1
-fi
-
-# this is supposed to be reliable, not pretty
-for i
-do
-	grep -v "^${i}$" $tmpfile > $otmpfile || true
-	mv $otmpfile $tmpfile
-done
-
-chmod --reference=$file $tmpfile
-chown --reference=$file $tmpfile
-
-mv $tmpfile $file
-
-trap "" EXIT
-exit 0
diff --git a/beagle/debian-rfs/usr/sbin/rmt-tar b/beagle/debian-rfs/usr/sbin/rmt-tar
deleted file mode 100755
index ec79931..0000000
--- a/beagle/debian-rfs/usr/sbin/rmt-tar
+++ /dev/null
diff --git a/beagle/debian-rfs/usr/sbin/rootflags b/beagle/debian-rfs/usr/sbin/rootflags
deleted file mode 120000
index f9af812..0000000
--- a/beagle/debian-rfs/usr/sbin/rootflags
+++ /dev/null
@@ -1 +0,0 @@
-rdev
\ No newline at end of file
diff --git a/beagle/debian-rfs/usr/sbin/rtcwake b/beagle/debian-rfs/usr/sbin/rtcwake
deleted file mode 100755
index ca25674..0000000
--- a/beagle/debian-rfs/usr/sbin/rtcwake
+++ /dev/null
diff --git a/beagle/debian-rfs/usr/sbin/service b/beagle/debian-rfs/usr/sbin/service
deleted file mode 100755
index 752dfe2..0000000
--- a/beagle/debian-rfs/usr/sbin/service
+++ /dev/null
@@ -1,138 +0,0 @@
-#!/bin/sh
-
-###########################################################################
-# /usr/bin/service
-#
-# A convenient wrapper for the /etc/init.d init scripts.
-#
-# This script is a modified version of the /sbin/service utility found on
-# Red Hat/Fedora systems (licensed GPLv2+).
-#
-# Copyright (C) 2006 Red Hat, Inc. All rights reserved.
-# Copyright (C) 2008 Canonical Ltd.
-#   * August 2008 - Dustin Kirkland <kirkland@canonical.com>
-#
-# 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 2 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, write to the Free Software
-# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
-#
-# On Debian GNU/Linux systems, the complete text of the GNU General
-# Public License can be found in `/usr/share/common-licenses/GPL-2'.
-###########################################################################
-
-
-is_ignored_file() {
-	case "$1" in
-		skeleton | README | *.dpkg-dist | *.dpkg-old | rc | rcS | single | reboot | bootclean.sh)
-			return 0
-		;;
-	esac
-	return 1
-}
-
-VERSION="`basename $0` ver. 0.91-ubuntu1"
-USAGE="Usage: `basename $0` < option > | --status-all | \
-[ service_name [ command | --full-restart ] ]"
-SERVICE=
-ACTION=
-SERVICEDIR="/etc/init.d"
-OPTIONS=
-
-if [ $# -eq 0 ]; then
-   echo "${USAGE}" >&2
-   exit 1
-fi
-
-cd /
-while [ $# -gt 0 ]; do
-  case "${1}" in
-    --help | -h | --h* )
-       echo "${USAGE}" >&2
-       exit 0
-       ;;
-    --version | -V )
-       echo "${VERSION}" >&2
-       exit 0
-       ;;
-    *)
-       if [ -z "${SERVICE}" -a $# -eq 1 -a "${1}" = "--status-all" ]; then
-          cd ${SERVICEDIR}
-          for SERVICE in * ; do
-            case "${SERVICE}" in
-              functions | halt | killall | single| linuxconf| kudzu)
-                  ;;
-              *)
-                if ! is_ignored_file "${SERVICE}" \
-		    && [ -x "${SERVICEDIR}/${SERVICE}" ]; then
-                        if ! grep -qs "\Wstatus)" "$SERVICE"; then
-                          #printf " %s %-60s %s\n" "[?]" "$SERVICE:" "unknown" 1>&2
-                          echo " [ ? ]  $SERVICE" 1>&2
-                          continue
-                        else
-                          out=$(env -i LANG="$LANG" PATH="$PATH" TERM="$TERM" "$SERVICEDIR/$SERVICE" status 2>&1)
-                          if [ "$?" = "0" -a -n "$out" ]; then
-                            #printf " %s %-60s %s\n" "[+]" "$SERVICE:" "running"
-                            echo " [ + ]  $SERVICE"
-                            continue
-                          else
-                            #printf " %s %-60s %s\n" "[-]" "$SERVICE:" "NOT running"
-                            echo " [ - ]  $SERVICE"
-                            continue
-                          fi
-                        fi
-                  #env -i LANG="$LANG" PATH="$PATH" TERM="$TERM" "$SERVICEDIR/$SERVICE" status
-                fi
-                ;;
-            esac
-          done
-          exit 0
-       elif [ $# -eq 2 -a "${2}" = "--full-restart" ]; then
-          SERVICE="${1}"
-          if [ -x "${SERVICEDIR}/${SERVICE}" ]; then
-            env -i LANG="$LANG" PATH="$PATH" TERM="$TERM" "$SERVICEDIR/$SERVICE" stop
-            env -i LANG="$LANG" PATH="$PATH" TERM="$TERM" "$SERVICEDIR/$SERVICE" start
-            exit $?
-          fi
-       elif [ -z "${SERVICE}" ]; then
-         SERVICE="${1}"
-       elif [ -z "${ACTION}" ]; then
-         ACTION="${1}"
-       else
-         OPTIONS="${OPTIONS} ${1}"
-       fi
-       shift
-       ;;
-   esac
-done
-
-if [ -r "/etc/init/${SERVICE}.conf" ]; then
-   # Upstart configuration exists for this job
-   case "${ACTION}" in
-      start|stop|restart|status|reload)
-         # Action is a valid upstart action
-         exec ${ACTION} ${SERVICE} ${OPTIONS}
-      ;;
-      force-reload)
-         # Upstart just uses reload for force-reload
-         exec reload ${SERVICE} ${OPTIONS}
-      ;;
-   esac
-fi
-
-# Otherwise, use the traditional sysvinit
-if [ -x "${SERVICEDIR}/${SERVICE}" ]; then
-   exec env -i LANG="$LANG" PATH="$PATH" TERM="$TERM" "$SERVICEDIR/$SERVICE" ${ACTION} ${OPTIONS}
-else
-   echo "${SERVICE}: unrecognized service" >&2
-   exit 1
-fi
diff --git a/beagle/debian-rfs/usr/sbin/tunelp b/beagle/debian-rfs/usr/sbin/tunelp
deleted file mode 100755
index f27042e..0000000
--- a/beagle/debian-rfs/usr/sbin/tunelp
+++ /dev/null
diff --git a/beagle/debian-rfs/usr/sbin/tzconfig b/beagle/debian-rfs/usr/sbin/tzconfig
deleted file mode 100755
index 73a53c0..0000000
--- a/beagle/debian-rfs/usr/sbin/tzconfig
+++ /dev/null
@@ -1,3 +0,0 @@
-#!/bin/sh
-echo "WARNING: the tzconfig command is deprecated, please use:"
-echo " dpkg-reconfigure tzdata"
diff --git a/beagle/debian-rfs/usr/sbin/update-alternatives b/beagle/debian-rfs/usr/sbin/update-alternatives
deleted file mode 120000
index 499c0c0..0000000
--- a/beagle/debian-rfs/usr/sbin/update-alternatives
+++ /dev/null
@@ -1 +0,0 @@
-../bin/update-alternatives
\ No newline at end of file
diff --git a/beagle/debian-rfs/usr/sbin/update-bootsystem-insserv b/beagle/debian-rfs/usr/sbin/update-bootsystem-insserv
deleted file mode 100755
index 5b20a17..0000000
--- a/beagle/debian-rfs/usr/sbin/update-bootsystem-insserv
+++ /dev/null
@@ -1,24 +0,0 @@
-#!/bin/sh
-#
-# Author: Petter Reinholdtsen
-# Date: 2009-08-04
-#
-# Transition script only to be used by sysv-rc version 2.87dsf-2 if
-# insserv is upgraded without sysv-rc being upgraded too.
-
-set -e
-
-case "$1" in
-    enable|'')
-	exit 0
-	;;
-    check)
-	exit 1
-	;;
-    *)
-	echo "error: Unknown argument '$1'"
-	exit 1
-	;;
-esac
-
-exit 0
diff --git a/beagle/debian-rfs/usr/sbin/update-passwd b/beagle/debian-rfs/usr/sbin/update-passwd
deleted file mode 100755
index 917c2f1..0000000
--- a/beagle/debian-rfs/usr/sbin/update-passwd
+++ /dev/null
diff --git a/beagle/debian-rfs/usr/sbin/update-rc.d b/beagle/debian-rfs/usr/sbin/update-rc.d
deleted file mode 100755
index 96bb41f..0000000
--- a/beagle/debian-rfs/usr/sbin/update-rc.d
+++ /dev/null
@@ -1,591 +0,0 @@
-#! /usr/bin/perl
-#
-# update-rc.d	Update the links in /etc/rc[0-9S].d/
-#
-
-use strict;
-use warnings;
-
-my $initd = "/etc/init.d";
-my $etcd  = "/etc/rc";
-my $notreally = 0;
-
-# Save last action to this directory
-my $archive = "/var/lib/update-rc.d";
-
-# Print usage message and die.
-
-sub usage {
-	print STDERR "update-rc.d: error: @_\n" if ($#_ >= 0);
-	print STDERR <<EOF;
-usage: update-rc.d [-n] [-f] <basename> remove
-       update-rc.d [-n] <basename> defaults [NN | SS KK]
-       update-rc.d [-n] <basename> start|stop NN runlvl [runlvl] [...] .
-       update-rc.d [-n] <basename> disable|enable [S|2|3|4|5]
-		-n: not really
-		-f: force
-
-The disable|enable API is not stable and might change in the future.
-EOF
-	exit (1);
-}
-
-# Dependency based boot sequencing is the default, but upgraded
-# systems might keep the legacy ordering until the sysadm choose to
-# migrate to the new ordering method.
-if ( ! -f "/etc/init.d/.legacy-bootordering" ) {
-    info("using dependency based boot sequencing");
-    exit insserv_updatercd(@ARGV);
-}
-
-# Check out options.
-my $force;
-
-my @orig_argv = @ARGV;
-
-while($#ARGV >= 0 && ($_ = $ARGV[0]) =~ /^-/) {
-	shift @ARGV;
-	if (/^-n$/) { $notreally++; next }
-	if (/^-f$/) { $force++; next }
-	if (/^-h|--help$/) { &usage; }
-	&usage("unknown option");
-}
-
-sub save_last_action {
-    my ($script, @arguments) = @_;
-
-    return if $notreally;
-
-    open(FILE, ">", "$archive/${script}.new") || die "unable to write to $archive/${script}.new";
-    print FILE join(" ","update-rc.d",@arguments), "\n";
-    close(FILE);
-    rename "$archive/${script}.new", "$archive/${script}";
-}
-
-sub remove_last_action {
-    my ($script) = @_;
-    unlink "$archive/$script";
-}
-
-# Action.
-
-&usage() if ($#ARGV < 1);
-my $bn = shift @ARGV;
-
-unless ($bn =~ m/[a-zA-Z0-9+.-]+/) {
-    print STDERR "update-rc.d: illegal character in name '$bn'\n";
-    exit (1);
-}
-
-if ($ARGV[0] ne 'remove') {
-    if (! -f "$initd/$bn") {
-	print STDERR "update-rc.d: $initd/$bn: file does not exist\n";
-	exit (1);
-    }
-    &parse_lsb_header("$initd/$bn");
-    &cmp_args_with_defaults($bn, $ARGV[0], @ARGV);
-} elsif (-f "$initd/$bn") {
-    if (!$force) {
-	printf STDERR "update-rc.d: $initd/$bn exists during rc.d purge (use -f to force)\n";
-	exit (1);
-    }
-}
-
-my @startlinks;
-my @stoplinks;
-
-$_ = $ARGV[0];
-if    (/^remove$/)       { &checklinks ("remove"); remove_last_action($bn); }
-elsif (/^defaults$/)     { &defaults (@ARGV); &makelinks; save_last_action($bn, @orig_argv); }
-elsif (/^(start|stop)$/) { &startstop (@ARGV); &makelinks; save_last_action($bn, @orig_argv); }
-elsif (/^(dis|en)able$/) { &toggle (@ARGV); &makelinks; save_last_action($bn, @orig_argv); }
-else                     { &usage; }
-
-exit (0);
-
-sub info {
-    print STDOUT "update-rc.d: @_\n";
-}
-
-sub warning {
-    print STDERR "update-rc.d: warning: @_\n";
-}
-
-sub error {
-    print STDERR "update-rc.d: error: @_\n";
-    exit (1);
-}
-
-sub error_code {
-    my $rc = shift;
-    print STDERR "update-rc.d: error: @_\n";
-    exit ($rc);
-}
-
-# Check if there are links in /etc/rc[0-9S].d/ 
-# Remove if the first argument is "remove" and the links 
-# point to $bn.
-
-sub is_link () {
-    my ($op, $fn, $bn) = @_;
-    if (! -l $fn) {
-	warning "$fn is not a symbolic link\n";
-	return 0;
-    } else {
-	my $linkdst = readlink ($fn);
-	if (! defined $linkdst) {
-	    die ("update-rc.d: error reading symbolic link: $!\n");
-	}
-	if (($linkdst ne "../init.d/$bn") && ($linkdst ne "$initd/$bn")) {
-	    warning "$fn is not a link to ../init.d/$bn or $initd/$bn\n";
-	    return 0;
-	}
-    }
-    return 1;
-}
-
-sub checklinks {
-    my ($i, $found, $fn, $islnk);
-
-    print " Removing any system startup links for $initd/$bn ...\n"
-	if (defined $_[0] && $_[0] eq 'remove');
-
-    $found = 0;
-
-    foreach $i (0..9, 'S') {
-	unless (chdir ("$etcd$i.d")) {
-	    next if ($i =~ m/^[789S]$/);
-	    die("update-rc.d: chdir $etcd$i.d: $!\n");
-	}
-	opendir(DIR, ".");
-	my $saveBN=$bn;
-	$saveBN =~ s/\+/\\+/g;
-	foreach $_ (readdir(DIR)) {
-	    next unless (/^[SK]\d\d$saveBN$/);
-	    $fn = "$etcd$i.d/$_";
-	    $found = 1;
-	    $islnk = &is_link ($_[0], $fn, $bn);
-	    next unless (defined $_[0] and $_[0] eq 'remove');
-	    if (! $islnk) {
-		print "   $fn is not a link to ../init.d/$bn; not removing\n"; 
-		next;
-	    }
-	    print "   $etcd$i.d/$_\n";
-	    next if ($notreally);
-	    unlink ("$etcd$i.d/$_") ||
-		die("update-rc.d: unlink: $!\n");
-	}
-	closedir(DIR);
-    }
-    $found;
-}
-
-sub parse_lsb_header {
-    my $initdscript = shift;
-    my %lsbinfo;
-    my $lsbheaders = "Provides|Required-Start|Required-Stop|Default-Start|Default-Stop";
-    open(INIT, "<$initdscript") || die "error: unable to read $initdscript";
-    while (<INIT>) {
-        chomp;
-        $lsbinfo{'found'} = 1 if (m/^\#\#\# BEGIN INIT INFO\s*$/);
-        last if (m/\#\#\# END INIT INFO\s*$/);
-        if (m/^\# ($lsbheaders):\s*(\S?.*)$/i) {
-    	$lsbinfo{lc($1)} = $2;
-        }
-    }
-    close(INIT);
-
-    # Check that all the required headers are present
-    if (!$lsbinfo{found}) {
-	printf STDERR "update-rc.d: warning: $initdscript missing LSB information\n";
-	printf STDERR "update-rc.d: see <http://wiki.debian.org/LSBInitScripts>\n";
-    } else {
-        for my $key (split(/\|/, lc($lsbheaders))) {
-            if (!exists $lsbinfo{$key}) {
-                warning "$initdscript missing LSB keyword '$key'\n";
-            }
-        }
-    }
-}
-
-
-# Process the arguments after the "enable" or "disable" keyword.
-
-sub toggle {
-    my @argv = @_;
-    my ($action, %lvls, @start, @stop, @xstartlinks);
-
-    if (!&checklinks) {
-	print " System start/stop links for $initd/$bn do not exist.\n";
-	exit (0);
-    }
-
-    $action = $argv[0];
-    if ($#argv > 1) {
-	while ($#argv > 0 && shift @argv) {
-	    if ($argv[0] =~ /^[S2-5]$/) {
-		$lvls{$argv[0]}++;
-	    } else {
-		&usage ("expected 'S' '2' '3' '4' or '5'");
-	    }
-	}
-    } else {
-	$lvls{$_}++ for ('S', '2', '3', '4', '5');
-    }
-
-    push(@start, glob($etcd . '[2-5S].d/[KS][0-9][0-9]' . $bn));
-
-    foreach (@start) {
-	my $islink = &is_link (undef, $_, $bn);
-	next if !$islink;
-
-	next unless my ($lvl, $sk, $seq) = m/^$etcd([2-5S])\.d\/([SK])([0-9]{2})$bn$/;
-	$startlinks[$lvl] = $sk . $seq;
-
-	if ($action eq 'disable' and $sk eq 'S' and $lvls{$lvl}) {
-	    $xstartlinks[$lvl] = 'K' . sprintf "%02d", (100 - $seq);
-	} elsif ($action eq 'enable' and $sk eq 'K' and $lvls{$lvl}) {
-	    $xstartlinks[$lvl] = 'S' . sprintf "%02d", -($seq - 100);
-	} else {
-	    $xstartlinks[$lvl] = $sk . $seq;
-	}
-    }
-
-    push(@stop, glob($etcd . '[016].d/[KS][0-9][0-9]' . $bn));
-
-    foreach (@stop) {
-	my $islink = &is_link (undef, $_, $bn);
-	next if !$islink;
-
-	next unless my ($lvl, $sk, $seq) = m/^$etcd([016])\.d\/([SK])([0-9]{2})$bn$/;
-	$stoplinks[$lvl] = $sk . $seq;
-    }
-
-    if ($action eq 'disable') {
-	print " Disabling system startup links for $initd/$bn ...\n";
-    } elsif ($action eq 'enable') {
-	print " Enabling system startup links for $initd/$bn ...\n";
-    }
-
-    &checklinks ("remove");
-    @startlinks = @xstartlinks;
-
-    1;
-}
-
-# Process the arguments after the "defaults" keyword.
-
-sub defaults {
-    my @argv = @_;
-    my ($start, $stop) = (20, 20);
-
-    &usage ("defaults takes only one or two codenumbers") if ($#argv > 2);
-    $start = $stop = $argv[1] if ($#argv >= 1);
-    $stop  =         $argv[2] if ($#argv >= 2);
-    &usage ("codenumber must be a number between 0 and 99")
-	if ($start !~ /^\d\d?$/ || $stop  !~ /^\d\d?$/);
-
-    $start = sprintf("%02d", $start);
-    $stop  = sprintf("%02d", $stop);
-
-    $stoplinks[$_]  = "K$stop"  for (0, 1, 6);
-    $startlinks[$_] = "S$start" for (2, 3, 4, 5);
-
-    1;
-}
-
-# Process the arguments after the start or stop keyword.
-
-sub startstop {
-    my @argv = @_;
-    my($letter, $NN, $level);
-
-    while ($#argv >= 0) {
-	if    ($argv[0] eq 'start') { $letter = 'S'; }
-	elsif ($argv[0] eq 'stop')  { $letter = 'K'; }
-	else {
-	    &usage("expected start|stop");
-	}
-
-	if ($argv[1] !~ /^\d\d?$/) {
-	    &usage("expected NN after $argv[0]");
-	}
-	$NN = sprintf("%02d", $argv[1]);
-
-	if ($argv[-1] ne '.') {
-	    &usage("start|stop arguments not terminated by \".\"");
-	}
-
-	shift @argv; shift @argv;
-	$level = shift @argv;
-	do {
-	    if ($level !~ m/^[0-9S]$/) {
-		&usage(
-		       "expected runlevel [0-9S] (did you forget \".\" ?)");
-	    }
-	    if (! -d "$etcd$level.d") {
-		print STDERR
-		    "update-rc.d: $etcd$level.d: no such directory\n";
-		exit(1);
-	    }
-	    $level = 99 if ($level eq 'S');
-	    $startlinks[$level] = "$letter$NN" if ($letter eq 'S');
-	    $stoplinks[$level]  = "$letter$NN" if ($letter eq 'K');
-	} while (($level = shift @argv) ne '.');
-    }
-    1;
-}
-
-# Create the links.
-
-sub makelinks {
-    my($t, $i);
-    my @links;
-
-    if (&checklinks) {
-	print " System start/stop links for $initd/$bn already exist.\n";
-	return 0;
-    }
-    print " Adding system startup for $initd/$bn ...\n";
-
-    # nice unreadable perl mess :)
-
-    for($t = 0; $t < 2; $t++) {
-	@links = $t ? @startlinks : @stoplinks;
-	for($i = 0; $i <= $#links; $i++) {
-	    my $lvl = $i;
-	    $lvl = 'S' if ($i == 99);
-	    next if (!defined $links[$i] or $links[$i] eq '');
-	    print "   $etcd$lvl.d/$links[$i]$bn -> ../init.d/$bn\n";
-	    next if ($notreally);
-	    symlink("../init.d/$bn", "$etcd$lvl.d/$links[$i]$bn")
-		|| die("update-rc.d: symlink: $!\n");
-	}
-    }
-
-    1;
-}
-
-## Dependency based
-sub insserv_updatercd {
-    my @args = @_;
-    my @opts;
-    my $scriptname;
-    my $action;
-    my $notreally = 0;
-
-    my @orig_argv = @args;
-
-    while($#args >= 0 && ($_ = $args[0]) =~ /^-/) {
-        shift @args;
-        if (/^-n$/) { push(@opts, $_); $notreally++; next }
-        if (/^-f$/) { push(@opts, $_); next }
-        if (/^-h|--help$/) { &usage; }
-        usage("unknown option");
-    }
-
-    usage("not enough arguments") if ($#args < 1);
-
-    $scriptname = shift @args;
-    $action = shift @args;
-    if ("remove" eq $action) {
-        if ( -f "/etc/init.d/$scriptname" ) {
-            my $rc = system("insserv", @opts, "-r", $scriptname) >> 8;
-            if (0 == $rc && !$notreally) {
-                remove_last_action($scriptname);
-            }
-            error_code($rc, "insserv rejected the script header") if $rc;
-            exit $rc;
-        } else {
-            # insserv removes all dangling symlinks, no need to tell it
-            # what to look for.
-            my $rc = system("insserv", @opts) >> 8;
-            if (0 == $rc && !$notreally) {
-                remove_last_action($scriptname);
-            }
-            error_code($rc, "insserv rejected the script header") if $rc;
-            exit $rc;
-        }
-    } elsif ("defaults" eq $action || "start" eq $action ||
-             "stop" eq $action) {
-        # All start/stop/defaults arguments are discarded so emit a
-        # message if arguments have been given and are in conflict
-        # with Default-Start/Default-Stop values of LSB comment.
-        cmp_args_with_defaults($scriptname, $action, @args);
-
-        if ( -f "/etc/init.d/$scriptname" ) {
-            my $rc = system("insserv", @opts, $scriptname) >> 8;
-            if (0 == $rc && !$notreally) {
-                save_last_action($scriptname, @orig_argv);
-            }
-            error_code($rc, "insserv rejected the script header") if $rc;
-            exit $rc;
-        } else {
-            error("initscript does not exist: /etc/init.d/$scriptname");
-        }
-    } elsif ("disable" eq $action || "enable" eq $action) {
-        insserv_toggle($notreally, $action, $scriptname, @args);
-        # Call insserv to resequence modified links
-        my $rc = system("insserv", @opts, $scriptname) >> 8;
-        if (0 == $rc && !$notreally) {
-            save_last_action($scriptname, @orig_argv);
-        }
-        error_code($rc, "insserv rejected the script header") if $rc;
-        exit $rc;
-    } else {
-        usage();
-    }
-}
-
-sub parse_def_start_stop {
-    my $script = shift;
-    my (%lsb, @def_start_lvls, @def_stop_lvls);
-
-    open my $fh, '<', $script or error("unable to read $script");
-    while (<$fh>) {
-        chomp;
-        if (m/^### BEGIN INIT INFO$/) {
-            $lsb{'begin'}++;
-        }
-        elsif (m/^### END INIT INFO$/) {
-            $lsb{'end'}++;
-            last;
-        }
-        elsif ($lsb{'begin'} and not $lsb{'end'}) {
-            if (m/^# Default-Start:\s*(\S?.*)$/) {
-                @def_start_lvls = split(' ', $1);
-            }
-            if (m/^# Default-Stop:\s*(\S?.*)$/) {
-                @def_stop_lvls = split(' ', $1);
-            }
-        }
-    }
-    close($fh);
-
-    return (\@def_start_lvls, \@def_stop_lvls);
-}
-
-sub lsb_header_for_script {
-    my $name = shift;
-
-    foreach my $file ("/etc/insserv/overrides/$name", "/etc/init.d/$name",
-                      "/usr/share/insserv/overrides/$name") {
-        return $file if -s $file;
-    }
-
-    error("cannot find a LSB script for $name");
-}
-
-sub cmp_args_with_defaults {
-    my ($name, $act) = (shift, shift);
-    my ($lsb_start_ref, $lsb_stop_ref, $arg_str, $lsb_str);
-    my (@arg_start_lvls, @arg_stop_lvls, @lsb_start_lvls, @lsb_stop_lvls);
-
-    ($lsb_start_ref, $lsb_stop_ref) = parse_def_start_stop("/etc/init.d/$name");
-    @lsb_start_lvls = @$lsb_start_ref;
-    @lsb_stop_lvls  = @$lsb_stop_ref;
-    return if (!@lsb_start_lvls and !@lsb_stop_lvls);
-
-    if ($act eq 'defaults') {
-        @arg_start_lvls = (2, 3, 4, 5);
-        @arg_stop_lvls  = (0, 1, 6);
-    } elsif ($act eq 'start' or $act eq 'stop') {
-        my $start = $act eq 'start' ? 1 : 0;
-        my $stop = $act eq 'stop' ? 1 : 0;
-
-        # The legacy part of this program passes arguments starting with
-        # "start|stop NN x y z ." but the insserv part gives argument list
-        # starting with sequence number (ie. strips off leading "start|stop")
-        # Start processing arguments immediately after the first seq number.
-        my $argi = $_[0] eq $act ? 2 : 1;
-
-        while (defined $_[$argi]) {
-            my $arg = $_[$argi];
-
-            # Runlevels 0 and 6 are always stop runlevels
-            if ($arg eq 0 or $arg eq 6) {
-		$start = 0; $stop = 1; 
-            } elsif ($arg eq 'start') {
-                $start = 1; $stop = 0; $argi++; next;
-            } elsif ($arg eq 'stop') {
-                $start = 0; $stop = 1; $argi++; next;
-            } elsif ($arg eq '.') {
-                next;
-            }
-            push(@arg_start_lvls, $arg) if $start;
-            push(@arg_stop_lvls, $arg) if $stop;
-        } continue {
-            $argi++;
-        }
-    }
-
-    if ($#arg_start_lvls != $#lsb_start_lvls or
-        join("\0", sort @arg_start_lvls) ne join("\0", sort @lsb_start_lvls)) {
-        $arg_str = @arg_start_lvls ? "@arg_start_lvls" : "none";
-        $lsb_str = @lsb_start_lvls ? "@lsb_start_lvls" : "none";
-        warning "$name start runlevel arguments ($arg_str) do not match",
-                "LSB Default-Start values ($lsb_str)";
-    }
-    if ($#arg_stop_lvls != $#lsb_stop_lvls or
-        join("\0", sort @arg_stop_lvls) ne join("\0", sort @lsb_stop_lvls)) {
-        $arg_str = @arg_stop_lvls ? "@arg_stop_lvls" : "none";
-        $lsb_str = @lsb_stop_lvls ? "@lsb_stop_lvls" : "none";
-        warning "$name stop runlevel arguments ($arg_str) do not match",
-                "LSB Default-Stop values ($lsb_str)";
-    }
-}
-
-sub insserv_toggle {
-    my ($dryrun, $act, $name) = (shift, shift, shift);
-    my (@toggle_lvls, $start_lvls, $stop_lvls, @symlinks);
-    my $lsb_header = lsb_header_for_script($name);
-
-    # Extra arguments to disable|enable action are runlevels. If none
-    # given parse LSB info for Default-Start value.
-    if ($#_ >= 0) {
-        @toggle_lvls = @_;
-    } else {
-        ($start_lvls, $stop_lvls) = parse_def_start_stop($lsb_header);
-        @toggle_lvls = @$start_lvls;
-        if ($#toggle_lvls < 0) {
-            error("$name Default-Start contains no runlevels, aborting.");
-        }
-    }
-
-    # Find symlinks in rc.d directories. Refuse to modify links in runlevels
-    # not used for normal system start sequence.
-    for my $lvl (@toggle_lvls) {
-        if ($lvl !~ /^[S2345]$/) {
-            warning("$act action will have no effect on runlevel $lvl");
-            next;
-        }
-        push(@symlinks, $_) for glob("/etc/rc$lvl.d/[SK][0-9][0-9]$name");
-    }
-
-    if (!@symlinks) {
-        error("no runlevel symlinks to modify, aborting!");
-    }
-
-    # Toggle S/K bit of script symlink.
-    for my $cur_lnk (@symlinks) {
-        my $sk;
-        my @new_lnk = split(//, $cur_lnk);
-
-        if ("disable" eq $act) {
-            $sk = rindex($cur_lnk, '/S') + 1;
-            next if $sk < 1;
-            $new_lnk[$sk] = 'K';
-        } else {
-            $sk = rindex($cur_lnk, '/K') + 1;
-            next if $sk < 1;
-            $new_lnk[$sk] = 'S';
-        }
-
-        if ($dryrun) {
-            printf("rename(%s, %s)\n", $cur_lnk, join('', @new_lnk));
-            next;
-        }
-
-        rename($cur_lnk, join('', @new_lnk)) or error($!);
-    }
-}
diff --git a/beagle/debian-rfs/usr/sbin/update-rc.d-insserv b/beagle/debian-rfs/usr/sbin/update-rc.d-insserv
deleted file mode 100755
index 1853251..0000000
--- a/beagle/debian-rfs/usr/sbin/update-rc.d-insserv
+++ /dev/null
@@ -1,593 +0,0 @@
-#! /usr/bin/perl
-#
-# update-rc.d	Update the links in /etc/rc[0-9S].d/
-#
-
-use strict;
-use warnings;
-
-my $initd = "/etc/init.d";
-my $etcd  = "/etc/rc";
-my $notreally = 0;
-
-# Save last action to this directory
-my $archive = "/var/lib/update-rc.d";
-
-# Print usage message and die.
-
-sub usage {
-	print STDERR "update-rc.d: error: @_\n" if ($#_ >= 0);
-	print STDERR <<EOF;
-usage: update-rc.d [-n] [-f] <basename> remove
-       update-rc.d [-n] <basename> defaults [NN | SS KK]
-       update-rc.d [-n] <basename> start|stop NN runlvl [runlvl] [...] .
-       update-rc.d [-n] <basename> disable|enable [S|2|3|4|5]
-		-n: not really
-		-f: force
-
-The disable|enable API is not stable and might change in the future.
-EOF
-	exit (1);
-}
-
-# Dependency based boot sequencing is the default, but upgraded
-# systems might keep the legacy ordering until the sysadm choose to
-# migrate to the new ordering method.  sysv-rc version 2.87dsf-2 will
-# remove /var/lib/insserv/using-insserv and this divert, thus transfering
-# the responsibility for dependency based update-rc.d to sysv-rc.
-if ( -f "/var/lib/insserv/using-insserv" && ! -f "/etc/init.d/.legacy-bootordering" ) {
-    info("using dependency based boot sequencing");
-    exit insserv_updatercd(@ARGV);
-}
-
-# Check out options.
-my $force;
-
-my @orig_argv = @ARGV;
-
-while($#ARGV >= 0 && ($_ = $ARGV[0]) =~ /^-/) {
-	shift @ARGV;
-	if (/^-n$/) { $notreally++; next }
-	if (/^-f$/) { $force++; next }
-	if (/^-h|--help$/) { &usage; }
-	&usage("unknown option");
-}
-
-sub save_last_action {
-    my ($script, @arguments) = @_;
-
-    return if $notreally;
-
-    open(FILE, ">", "$archive/${script}.new") || die "unable to write to $archive/${script}.new";
-    print FILE join(" ","update-rc.d",@arguments), "\n";
-    close(FILE);
-    rename "$archive/${script}.new", "$archive/${script}";
-}
-
-sub remove_last_action {
-    my ($script) = @_;
-    unlink "$archive/$script";
-}
-
-# Action.
-
-&usage() if ($#ARGV < 1);
-my $bn = shift @ARGV;
-
-unless ($bn =~ m/[a-zA-Z0-9+.-]+/) {
-    print STDERR "update-rc.d: illegal character in name '$bn'\n";
-    exit (1);
-}
-
-if ($ARGV[0] ne 'remove') {
-    if (! -f "$initd/$bn") {
-	print STDERR "update-rc.d: $initd/$bn: file does not exist\n";
-	exit (1);
-    }
-    &parse_lsb_header("$initd/$bn");
-    &cmp_args_with_defaults($bn, $ARGV[0], @ARGV);
-} elsif (-f "$initd/$bn") {
-    if (!$force) {
-	printf STDERR "update-rc.d: $initd/$bn exists during rc.d purge (use -f to force)\n";
-	exit (1);
-    }
-}
-
-my @startlinks;
-my @stoplinks;
-
-$_ = $ARGV[0];
-if    (/^remove$/)       { &checklinks ("remove"); remove_last_action($bn); }
-elsif (/^defaults$/)     { &defaults (@ARGV); &makelinks; save_last_action($bn, @orig_argv); }
-elsif (/^(start|stop)$/) { &startstop (@ARGV); &makelinks; save_last_action($bn, @orig_argv); }
-elsif (/^(dis|en)able$/) { &toggle (@ARGV); &makelinks; save_last_action($bn, @orig_argv); }
-else                     { &usage; }
-
-exit (0);
-
-sub info {
-    print STDOUT "update-rc.d: @_\n";
-}
-
-sub warning {
-    print STDERR "update-rc.d: warning: @_\n";
-}
-
-sub error {
-    print STDERR "update-rc.d: error: @_\n";
-    exit (1);
-}
-
-sub error_code {
-    my $rc = shift;
-    print STDERR "update-rc.d: error: @_\n";
-    exit ($rc);
-}
-
-# Check if there are links in /etc/rc[0-9S].d/ 
-# Remove if the first argument is "remove" and the links 
-# point to $bn.
-
-sub is_link () {
-    my ($op, $fn, $bn) = @_;
-    if (! -l $fn) {
-	warning "$fn is not a symbolic link\n";
-	return 0;
-    } else {
-	my $linkdst = readlink ($fn);
-	if (! defined $linkdst) {
-	    die ("update-rc.d: error reading symbolic link: $!\n");
-	}
-	if (($linkdst ne "../init.d/$bn") && ($linkdst ne "$initd/$bn")) {
-	    warning "$fn is not a link to ../init.d/$bn or $initd/$bn\n";
-	    return 0;
-	}
-    }
-    return 1;
-}
-
-sub checklinks {
-    my ($i, $found, $fn, $islnk);
-
-    print " Removing any system startup links for $initd/$bn ...\n"
-	if (defined $_[0] && $_[0] eq 'remove');
-
-    $found = 0;
-
-    foreach $i (0..9, 'S') {
-	unless (chdir ("$etcd$i.d")) {
-	    next if ($i =~ m/^[789S]$/);
-	    die("update-rc.d: chdir $etcd$i.d: $!\n");
-	}
-	opendir(DIR, ".");
-	my $saveBN=$bn;
-	$saveBN =~ s/\+/\\+/g;
-	foreach $_ (readdir(DIR)) {
-	    next unless (/^[SK]\d\d$saveBN$/);
-	    $fn = "$etcd$i.d/$_";
-	    $found = 1;
-	    $islnk = &is_link ($_[0], $fn, $bn);
-	    next unless (defined $_[0] and $_[0] eq 'remove');
-	    if (! $islnk) {
-		print "   $fn is not a link to ../init.d/$bn; not removing\n"; 
-		next;
-	    }
-	    print "   $etcd$i.d/$_\n";
-	    next if ($notreally);
-	    unlink ("$etcd$i.d/$_") ||
-		die("update-rc.d: unlink: $!\n");
-	}
-	closedir(DIR);
-    }
-    $found;
-}
-
-sub parse_lsb_header {
-    my $initdscript = shift;
-    my %lsbinfo;
-    my $lsbheaders = "Provides|Required-Start|Required-Stop|Default-Start|Default-Stop";
-    open(INIT, "<$initdscript") || die "error: unable to read $initdscript";
-    while (<INIT>) {
-        chomp;
-        $lsbinfo{'found'} = 1 if (m/^\#\#\# BEGIN INIT INFO\s*$/);
-        last if (m/\#\#\# END INIT INFO\s*$/);
-        if (m/^\# ($lsbheaders):\s*(\S?.*)$/i) {
-    	$lsbinfo{lc($1)} = $2;
-        }
-    }
-    close(INIT);
-
-    # Check that all the required headers are present
-    if (!$lsbinfo{found}) {
-	printf STDERR "update-rc.d: warning: $initdscript missing LSB information\n";
-	printf STDERR "update-rc.d: see <http://wiki.debian.org/LSBInitScripts>\n";
-    } else {
-        for my $key (split(/\|/, lc($lsbheaders))) {
-            if (!exists $lsbinfo{$key}) {
-                warning "$initdscript missing LSB keyword '$key'\n";
-            }
-        }
-    }
-}
-
-
-# Process the arguments after the "enable" or "disable" keyword.
-
-sub toggle {
-    my @argv = @_;
-    my ($action, %lvls, @start, @stop, @xstartlinks);
-
-    if (!&checklinks) {
-	print " System start/stop links for $initd/$bn do not exist.\n";
-	exit (0);
-    }
-
-    $action = $argv[0];
-    if ($#argv > 1) {
-	while ($#argv > 0 && shift @argv) {
-	    if ($argv[0] =~ /^[S2-5]$/) {
-		$lvls{$argv[0]}++;
-	    } else {
-		&usage ("expected 'S' '2' '3' '4' or '5'");
-	    }
-	}
-    } else {
-	$lvls{$_}++ for ('S', '2', '3', '4', '5');
-    }
-
-    push(@start, glob($etcd . '[2-5S].d/[KS][0-9][0-9]' . $bn));
-
-    foreach (@start) {
-	my $islink = &is_link (undef, $_, $bn);
-	next if !$islink;
-
-	next unless my ($lvl, $sk, $seq) = m/^$etcd([2-5S])\.d\/([SK])([0-9]{2})$bn$/;
-	$startlinks[$lvl] = $sk . $seq;
-
-	if ($action eq 'disable' and $sk eq 'S' and $lvls{$lvl}) {
-	    $xstartlinks[$lvl] = 'K' . sprintf "%02d", (100 - $seq);
-	} elsif ($action eq 'enable' and $sk eq 'K' and $lvls{$lvl}) {
-	    $xstartlinks[$lvl] = 'S' . sprintf "%02d", -($seq - 100);
-	} else {
-	    $xstartlinks[$lvl] = $sk . $seq;
-	}
-    }
-
-    push(@stop, glob($etcd . '[016].d/[KS][0-9][0-9]' . $bn));
-
-    foreach (@stop) {
-	my $islink = &is_link (undef, $_, $bn);
-	next if !$islink;
-
-	next unless my ($lvl, $sk, $seq) = m/^$etcd([016])\.d\/([SK])([0-9]{2})$bn$/;
-	$stoplinks[$lvl] = $sk . $seq;
-    }
-
-    if ($action eq 'disable') {
-	print " Disabling system startup links for $initd/$bn ...\n";
-    } elsif ($action eq 'enable') {
-	print " Enabling system startup links for $initd/$bn ...\n";
-    }
-
-    &checklinks ("remove");
-    @startlinks = @xstartlinks;
-
-    1;
-}
-
-# Process the arguments after the "defaults" keyword.
-
-sub defaults {
-    my @argv = @_;
-    my ($start, $stop) = (20, 20);
-
-    &usage ("defaults takes only one or two codenumbers") if ($#argv > 2);
-    $start = $stop = $argv[1] if ($#argv >= 1);
-    $stop  =         $argv[2] if ($#argv >= 2);
-    &usage ("codenumber must be a number between 0 and 99")
-	if ($start !~ /^\d\d?$/ || $stop  !~ /^\d\d?$/);
-
-    $start = sprintf("%02d", $start);
-    $stop  = sprintf("%02d", $stop);
-
-    $stoplinks[$_]  = "K$stop"  for (0, 1, 6);
-    $startlinks[$_] = "S$start" for (2, 3, 4, 5);
-
-    1;
-}
-
-# Process the arguments after the start or stop keyword.
-
-sub startstop {
-    my @argv = @_;
-    my($letter, $NN, $level);
-
-    while ($#argv >= 0) {
-	if    ($argv[0] eq 'start') { $letter = 'S'; }
-	elsif ($argv[0] eq 'stop')  { $letter = 'K'; }
-	else {
-	    &usage("expected start|stop");
-	}
-
-	if ($argv[1] !~ /^\d\d?$/) {
-	    &usage("expected NN after $argv[0]");
-	}
-	$NN = sprintf("%02d", $argv[1]);
-
-	if ($argv[-1] ne '.') {
-	    &usage("start|stop arguments not terminated by \".\"");
-	}
-
-	shift @argv; shift @argv;
-	$level = shift @argv;
-	do {
-	    if ($level !~ m/^[0-9S]$/) {
-		&usage(
-		       "expected runlevel [0-9S] (did you forget \".\" ?)");
-	    }
-	    if (! -d "$etcd$level.d") {
-		print STDERR
-		    "update-rc.d: $etcd$level.d: no such directory\n";
-		exit(1);
-	    }
-	    $level = 99 if ($level eq 'S');
-	    $startlinks[$level] = "$letter$NN" if ($letter eq 'S');
-	    $stoplinks[$level]  = "$letter$NN" if ($letter eq 'K');
-	} while (($level = shift @argv) ne '.');
-    }
-    1;
-}
-
-# Create the links.
-
-sub makelinks {
-    my($t, $i);
-    my @links;
-
-    if (&checklinks) {
-	print " System start/stop links for $initd/$bn already exist.\n";
-	return 0;
-    }
-    print " Adding system startup for $initd/$bn ...\n";
-
-    # nice unreadable perl mess :)
-
-    for($t = 0; $t < 2; $t++) {
-	@links = $t ? @startlinks : @stoplinks;
-	for($i = 0; $i <= $#links; $i++) {
-	    my $lvl = $i;
-	    $lvl = 'S' if ($i == 99);
-	    next if (!defined $links[$i] or $links[$i] eq '');
-	    print "   $etcd$lvl.d/$links[$i]$bn -> ../init.d/$bn\n";
-	    next if ($notreally);
-	    symlink("../init.d/$bn", "$etcd$lvl.d/$links[$i]$bn")
-		|| die("update-rc.d: symlink: $!\n");
-	}
-    }
-
-    1;
-}
-
-## Dependency based
-sub insserv_updatercd {
-    my @args = @_;
-    my @opts;
-    my $scriptname;
-    my $action;
-    my $notreally = 0;
-
-    my @orig_argv = @args;
-
-    while($#args >= 0 && ($_ = $args[0]) =~ /^-/) {
-        shift @args;
-        if (/^-n$/) { push(@opts, $_); $notreally++; next }
-        if (/^-f$/) { push(@opts, $_); next }
-        if (/^-h|--help$/) { &usage; }
-        usage("unknown option");
-    }
-
-    usage("not enough arguments") if ($#args < 1);
-
-    $scriptname = shift @args;
-    $action = shift @args;
-    if ("remove" eq $action) {
-        if ( -f "/etc/init.d/$scriptname" ) {
-            my $rc = system("insserv", @opts, "-r", $scriptname) >> 8;
-            if (0 == $rc && !$notreally) {
-                remove_last_action($scriptname);
-            }
-            error_code($rc, "insserv rejected the script header") if $rc;
-            exit $rc;
-        } else {
-            # insserv removes all dangling symlinks, no need to tell it
-            # what to look for.
-            my $rc = system("insserv", @opts) >> 8;
-            if (0 == $rc && !$notreally) {
-                remove_last_action($scriptname);
-            }
-            error_code($rc, "insserv rejected the script header") if $rc;
-            exit $rc;
-        }
-    } elsif ("defaults" eq $action || "start" eq $action ||
-             "stop" eq $action) {
-        # All start/stop/defaults arguments are discarded so emit a
-        # message if arguments have been given and are in conflict
-        # with Default-Start/Default-Stop values of LSB comment.
-        cmp_args_with_defaults($scriptname, $action, @args);
-
-        if ( -f "/etc/init.d/$scriptname" ) {
-            my $rc = system("insserv", @opts, $scriptname) >> 8;
-            if (0 == $rc && !$notreally) {
-                save_last_action($scriptname, @orig_argv);
-            }
-            error_code($rc, "insserv rejected the script header") if $rc;
-            exit $rc;
-        } else {
-            error("initscript does not exist: /etc/init.d/$scriptname");
-        }
-    } elsif ("disable" eq $action || "enable" eq $action) {
-        insserv_toggle($notreally, $action, $scriptname, @args);
-        # Call insserv to resequence modified links
-        my $rc = system("insserv", @opts, $scriptname) >> 8;
-        if (0 == $rc && !$notreally) {
-            save_last_action($scriptname, @orig_argv);
-        }
-        error_code($rc, "insserv rejected the script header") if $rc;
-        exit $rc;
-    } else {
-        usage();
-    }
-}
-
-sub parse_def_start_stop {
-    my $script = shift;
-    my (%lsb, @def_start_lvls, @def_stop_lvls);
-
-    open my $fh, '<', $script or error("unable to read $script");
-    while (<$fh>) {
-        chomp;
-        if (m/^### BEGIN INIT INFO$/) {
-            $lsb{'begin'}++;
-        }
-        elsif (m/^### END INIT INFO$/) {
-            $lsb{'end'}++;
-            last;
-        }
-        elsif ($lsb{'begin'} and not $lsb{'end'}) {
-            if (m/^# Default-Start:\s*(\S?.*)$/) {
-                @def_start_lvls = split(' ', $1);
-            }
-            if (m/^# Default-Stop:\s*(\S?.*)$/) {
-                @def_stop_lvls = split(' ', $1);
-            }
-        }
-    }
-    close($fh);
-
-    return (\@def_start_lvls, \@def_stop_lvls);
-}
-
-sub lsb_header_for_script {
-    my $name = shift;
-
-    foreach my $file ("/etc/insserv/overrides/$name", "/etc/init.d/$name",
-                      "/usr/share/insserv/overrides/$name") {
-        return $file if -s $file;
-    }
-
-    error("cannot find a LSB script for $name");
-}
-
-sub cmp_args_with_defaults {
-    my ($name, $act) = (shift, shift);
-    my ($lsb_start_ref, $lsb_stop_ref, $arg_str, $lsb_str);
-    my (@arg_start_lvls, @arg_stop_lvls, @lsb_start_lvls, @lsb_stop_lvls);
-
-    ($lsb_start_ref, $lsb_stop_ref) = parse_def_start_stop("/etc/init.d/$name");
-    @lsb_start_lvls = @$lsb_start_ref;
-    @lsb_stop_lvls  = @$lsb_stop_ref;
-    return if (!@lsb_start_lvls and !@lsb_stop_lvls);
-
-    if ($act eq 'defaults') {
-        @arg_start_lvls = (2, 3, 4, 5);
-        @arg_stop_lvls  = (0, 1, 6);
-    } elsif ($act eq 'start' or $act eq 'stop') {
-        my $start = $act eq 'start' ? 1 : 0;
-        my $stop = $act eq 'stop' ? 1 : 0;
-
-        # The legacy part of this program passes arguments starting with
-        # "start|stop NN x y z ." but the insserv part gives argument list
-        # starting with sequence number (ie. strips off leading "start|stop")
-        # Start processing arguments immediately after the first seq number.
-        my $argi = $_[0] eq $act ? 2 : 1;
-
-        while (defined $_[$argi]) {
-            my $arg = $_[$argi];
-
-            # Runlevels 0 and 6 are always stop runlevels
-            if ($arg eq 0 or $arg eq 6) {
-		$start = 0; $stop = 1; 
-            } elsif ($arg eq 'start') {
-                $start = 1; $stop = 0; $argi++; next;
-            } elsif ($arg eq 'stop') {
-                $start = 0; $stop = 1; $argi++; next;
-            } elsif ($arg eq '.') {
-                next;
-            }
-            push(@arg_start_lvls, $arg) if $start;
-            push(@arg_stop_lvls, $arg) if $stop;
-        } continue {
-            $argi++;
-        }
-    }
-
-    if ($#arg_start_lvls != $#lsb_start_lvls or
-        join("\0", sort @arg_start_lvls) ne join("\0", sort @lsb_start_lvls)) {
-        $arg_str = @arg_start_lvls ? "@arg_start_lvls" : "none";
-        $lsb_str = @lsb_start_lvls ? "@lsb_start_lvls" : "none";
-        warning "$name start runlevel arguments ($arg_str) do not match",
-                "LSB Default-Start values ($lsb_str)";
-    }
-    if ($#arg_stop_lvls != $#lsb_stop_lvls or
-        join("\0", sort @arg_stop_lvls) ne join("\0", sort @lsb_stop_lvls)) {
-        $arg_str = @arg_stop_lvls ? "@arg_stop_lvls" : "none";
-        $lsb_str = @lsb_stop_lvls ? "@lsb_stop_lvls" : "none";
-        warning "$name stop runlevel arguments ($arg_str) do not match",
-                "LSB Default-Stop values ($lsb_str)";
-    }
-}
-
-sub insserv_toggle {
-    my ($dryrun, $act, $name) = (shift, shift, shift);
-    my (@toggle_lvls, $start_lvls, $stop_lvls, @symlinks);
-    my $lsb_header = lsb_header_for_script($name);
-
-    # Extra arguments to disable|enable action are runlevels. If none
-    # given parse LSB info for Default-Start value.
-    if ($#_ >= 0) {
-        @toggle_lvls = @_;
-    } else {
-        ($start_lvls, $stop_lvls) = parse_def_start_stop($lsb_header);
-        @toggle_lvls = @$start_lvls;
-        if ($#toggle_lvls < 0) {
-            error("$name Default-Start contains no runlevels, aborting.");
-        }
-    }
-
-    # Find symlinks in rc.d directories. Refuse to modify links in runlevels
-    # not used for normal system start sequence.
-    for my $lvl (@toggle_lvls) {
-        if ($lvl !~ /^[S2345]$/) {
-            warning("$act action will have no effect on runlevel $lvl");
-            next;
-        }
-        push(@symlinks, $_) for glob("/etc/rc$lvl.d/[SK][0-9][0-9]$name");
-    }
-
-    if (!@symlinks) {
-        error("no runlevel symlinks to modify, aborting!");
-    }
-
-    # Toggle S/K bit of script symlink.
-    for my $cur_lnk (@symlinks) {
-        my $sk;
-        my @new_lnk = split(//, $cur_lnk);
-
-        if ("disable" eq $act) {
-            $sk = rindex($cur_lnk, '/S') + 1;
-            next if $sk < 1;
-            $new_lnk[$sk] = 'K';
-        } else {
-            $sk = rindex($cur_lnk, '/K') + 1;
-            next if $sk < 1;
-            $new_lnk[$sk] = 'S';
-        }
-
-        if ($dryrun) {
-            printf("rename(%s, %s)\n", $cur_lnk, join('', @new_lnk));
-            next;
-        }
-
-        rename($cur_lnk, join('', @new_lnk)) or error($!);
-    }
-}
diff --git a/beagle/debian-rfs/usr/sbin/useradd b/beagle/debian-rfs/usr/sbin/useradd
deleted file mode 100755
index 6da55fb..0000000
--- a/beagle/debian-rfs/usr/sbin/useradd
+++ /dev/null
diff --git a/beagle/debian-rfs/usr/sbin/userdel b/beagle/debian-rfs/usr/sbin/userdel
deleted file mode 100755
index e41f7a1..0000000
--- a/beagle/debian-rfs/usr/sbin/userdel
+++ /dev/null
diff --git a/beagle/debian-rfs/usr/sbin/usermod b/beagle/debian-rfs/usr/sbin/usermod
deleted file mode 100755
index beda563..0000000
--- a/beagle/debian-rfs/usr/sbin/usermod
+++ /dev/null
diff --git a/beagle/debian-rfs/usr/sbin/vidmode b/beagle/debian-rfs/usr/sbin/vidmode
deleted file mode 120000
index f9af812..0000000
--- a/beagle/debian-rfs/usr/sbin/vidmode
+++ /dev/null
@@ -1 +0,0 @@
-rdev
\ No newline at end of file
diff --git a/beagle/debian-rfs/usr/sbin/vigr b/beagle/debian-rfs/usr/sbin/vigr
deleted file mode 120000
index 95923b0..0000000
--- a/beagle/debian-rfs/usr/sbin/vigr
+++ /dev/null
@@ -1 +0,0 @@
-vipw
\ No newline at end of file
diff --git a/beagle/debian-rfs/usr/sbin/vipw b/beagle/debian-rfs/usr/sbin/vipw
deleted file mode 100755
index 7e043f9..0000000
--- a/beagle/debian-rfs/usr/sbin/vipw
+++ /dev/null
diff --git a/beagle/debian-rfs/usr/sbin/zic b/beagle/debian-rfs/usr/sbin/zic
deleted file mode 100755
index f742b95..0000000
--- a/beagle/debian-rfs/usr/sbin/zic
+++ /dev/null