added debootstrap stuff

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

9 files changed, 188 insertions, 0 deletions

diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Boolean.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Boolean.pm
new file mode 100644
index 0000000..b57d144
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Boolean.pm
@@ -0,0 +1,10 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Noninteractive::Boolean;
+use strict;
+use base qw(Debconf::Element::Noninteractive);
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Error.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Error.pm
new file mode 100644
index 0000000..59701db
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Error.pm
@@ -0,0 +1,63 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Noninteractive::Error;
+use strict;
+use Text::Wrap;
+use Debconf::Gettext;
+use Debconf::Config;
+use Debconf::Log ':all';
+use base qw(Debconf::Element::Noninteractive);
+
+
+
+sub show {
+	my $this=shift;
+
+	if ($this->question->flag('seen') ne 'true') {
+		$this->sendmail(gettext("Debconf was not configured to display this error message, so it mailed it to you."));
+	}
+	$this->value('');
+}
+
+
+sub sendmail {
+	my $this=shift;
+	my $footer=shift;
+	return unless length Debconf::Config->admin_email;
+	if (-x '/usr/bin/mail') {
+		debug user => "mailing a note";
+	    	my $title=gettext("Debconf").": ".
+			$this->frontend->title." -- ".
+			$this->question->description;
+		unless (open(MAIL, "|-")) { # child
+			exec("mail", "-s", $title, Debconf::Config->admin_email) or return '';
+		}
+		my $old_columns=$Text::Wrap::columns;
+		$Text::Wrap::columns=75;
+		if ($this->question->extended_description ne '') {
+			print MAIL wrap('', '', $this->question->extended_description);
+		}
+		else {
+			print MAIL wrap('', '', $this->question->description);
+		}
+		print MAIL "\n\n";
+		my $hostname=`hostname -f 2>/dev/null`;
+		if (! defined $hostname) {
+			$hostname="unknown system";
+		}
+		print MAIL "-- \n", sprintf(gettext("Debconf, running at %s"), $hostname, "\n");
+		print MAIL "[ ", wrap('', '', $footer), " ]\n" if $footer;
+		close MAIL or return '';
+
+		$Text::Wrap::columns=$old_columns;
+	
+		$this->question->flag('seen', 'true');
+
+		return 1;
+	}
+}
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Multiselect.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Multiselect.pm
new file mode 100644
index 0000000..a30c804
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Multiselect.pm
@@ -0,0 +1,10 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Noninteractive::Multiselect;
+use strict;
+use base qw(Debconf::Element::Noninteractive);
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Note.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Note.pm
new file mode 100644
index 0000000..6567819
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Note.pm
@@ -0,0 +1,10 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Noninteractive::Note;
+use strict;
+use base qw(Debconf::Element::Noninteractive);
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Password.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Password.pm
new file mode 100644
index 0000000..da6dcce
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Password.pm
@@ -0,0 +1,10 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Noninteractive::Password;
+use strict;
+use base qw(Debconf::Element::Noninteractive);
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Progress.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Progress.pm
new file mode 100644
index 0000000..3c14c47
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Progress.pm
@@ -0,0 +1,24 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Noninteractive::Progress;
+use strict;
+use base qw(Debconf::Element::Noninteractive);
+
+
+sub start {
+}
+
+sub set {
+	return 1;
+}
+
+sub info {
+	return 1;
+}
+
+sub stop {
+}
+
+1;
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Select.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Select.pm
new file mode 100644
index 0000000..5b74aec
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Select.pm
@@ -0,0 +1,35 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Noninteractive::Select;
+use strict;
+use base qw(Debconf::Element::Noninteractive);
+
+
+sub show {
+	my $this=shift;
+
+	$this->question->template->i18n('');
+	my @choices=$this->question->choices_split;
+	$this->question->template->i18n(1);
+	my $value=$this->question->value;
+	$value='' unless defined $value;
+	my $inlist=0;
+	map { $inlist=1 if $_ eq $value } @choices;
+
+	if (! $inlist) {
+		if (@choices) {
+			$this->value($choices[0]);
+		}
+		else {
+			$this->value('');
+		}
+	}
+	else {
+		$this->value($value);
+	}
+}
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/String.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/String.pm
new file mode 100644
index 0000000..adbc516
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/String.pm
@@ -0,0 +1,10 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Noninteractive::String;
+use strict;
+use base qw(Debconf::Element::Noninteractive);
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Text.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Text.pm
new file mode 100644
index 0000000..be14ae8
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Text.pm
@@ -0,0 +1,16 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Noninteractive::Text;
+use strict;
+use base qw(Debconf::Element::Noninteractive);
+
+
+sub show {
+	my $this=shift;
+
+	$this->value('');
+}
+
+1