added debootstrap stuff

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

68 files changed, 2720 insertions, 0 deletions

diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Boolean.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Boolean.pm
new file mode 100644
index 0000000..3976414
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Boolean.pm
@@ -0,0 +1,32 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Dialog::Boolean;
+use strict;
+use base qw(Debconf::Element);
+
+
+sub show {
+	my $this=shift;
+
+	my @params=('--yesno');
+	push @params, $this->frontend->dashsep if $this->frontend->dashsep;
+	push @params, $this->frontend->makeprompt($this->question, 1);
+	if (defined $this->question->value && $this->question->value eq 'false') {
+		unshift @params, '--defaultno';
+	}
+
+	my ($ret, $value)=$this->frontend->showdialog($this->question, @params);
+	if (defined $ret) {
+		$this->value($ret eq 0 ? 'true' : 'false');
+	}
+	else {
+		my $default='';
+		$default=$this->question->value
+			if defined $this->question->value;
+		$this->value($default);
+	}
+}
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Error.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Error.pm
new file mode 100644
index 0000000..c0a25b4
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Error.pm
@@ -0,0 +1,20 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Dialog::Error;
+use strict;
+use base qw(Debconf::Element);
+
+
+sub show {
+	my $this=shift;
+
+	$this->frontend->showtext($this->question, 
+		$this->question->description."\n\n".
+		$this->question->extended_description
+	);
+	$this->value('');
+}
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Multiselect.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Multiselect.pm
new file mode 100644
index 0000000..e62f3d4
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Multiselect.pm
@@ -0,0 +1,69 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Dialog::Multiselect;
+use strict;
+use base qw(Debconf::Element::Multiselect);
+use Debconf::Encoding qw(width);
+
+
+sub show {
+	my $this=shift;
+	
+	my ($text, $lines, $columns)=
+		$this->frontend->makeprompt($this->question, -2);
+
+	my $screen_lines=$this->frontend->screenheight - $this->frontend->spacer;
+	my @params=();
+	my @choices=$this->question->choices_split;
+	my %value = map { $_ => 1 } $this->translate_default;
+
+	my $menu_height=$#choices + 1;
+	if ($lines + $#choices + 2 >= $screen_lines) {
+		$menu_height = $screen_lines - $lines - 4;
+		if ($menu_height < 3 && $#choices + 1 > 2) {
+			$this->frontend->showtext($this->question, $this->question->extended_description);
+			($text, $lines, $columns)=$this->frontend->sizetext($this->question->description);
+			$menu_height=$#choices + 1;
+			if ($lines + $#choices + 2 >= $screen_lines) {
+				$menu_height = $screen_lines - $lines - 4;
+			}
+		}
+	}
+	
+	$lines=$lines + $menu_height + $this->frontend->spacer;
+	my $selectspacer = $this->frontend->selectspacer;
+	my $c=1;
+	foreach (@choices) {
+		push @params, ($_, "");
+		push @params, ($value{$_} ? 'on' : 'off');
+
+		if ($columns < width($_) + $selectspacer) {
+			$columns = width($_) + $selectspacer;
+		}
+	}
+	
+	if ($this->frontend->dashsep) {
+		unshift @params, $this->frontend->dashsep;
+	}
+	
+	@params=('--separate-output', '--checklist', 
+	         $text, $lines, $columns, $menu_height, @params);
+
+	my $value=$this->frontend->showdialog($this->question, @params);
+
+	if (defined $value) {
+		$this->value(join(", ", $this->order_values(
+					map { $this->translate_to_C($_) }
+					split(/\n/, $value))));
+	}
+	else {
+		my $default='';
+		$default=$this->question->value
+			if defined $this->question->value;
+		$this->value($default);
+	}
+}
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Note.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Note.pm
new file mode 100644
index 0000000..4cab4cf
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Note.pm
@@ -0,0 +1,20 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Dialog::Note;
+use strict;
+use base qw(Debconf::Element);
+
+
+sub show {
+	my $this=shift;
+
+	$this->frontend->showtext($this->question, 
+		$this->question->description."\n\n".
+		$this->question->extended_description
+	);
+	$this->value('');
+}
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Password.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Password.pm
new file mode 100644
index 0000000..e32f863
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Password.pm
@@ -0,0 +1,32 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Dialog::Password;
+use strict;
+use base qw(Debconf::Element);
+
+
+sub show {
+	my $this=shift;
+	
+	my ($text, $lines, $columns)=
+		$this->frontend->makeprompt($this->question);
+
+	my @params=('--passwordbox');
+	push @params, $this->frontend->dashsep if $this->frontend->dashsep;
+	push @params, ($text, $lines + $this->frontend->spacer, $columns);
+	my $ret=$this->frontend->showdialog($this->question, @params);
+
+	if (! defined $ret || $ret eq '') {
+		my $default='';
+		$default=$this->question->value
+			if defined $this->question->value;
+		$this->value($default);
+	}
+	else {
+		$this->value($ret);
+	}
+}
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Progress.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Progress.pm
new file mode 100644
index 0000000..53f6270
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Progress.pm
@@ -0,0 +1,87 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Dialog::Progress;
+use strict;
+use base qw(Debconf::Element);
+
+
+sub _communicate {
+	my $this=shift;
+	my $data=shift;
+	my $dialoginput = $this->frontend->dialog_input_wtr;
+
+	print $dialoginput $data;
+}
+
+sub _percent {
+	my $this=shift;
+
+	use integer;
+	return (($this->progress_cur() - $this->progress_min()) * 100 / ($this->progress_max() - $this->progress_min()));
+}
+
+sub start {
+	my $this=shift;
+
+	$this->frontend->title($this->question->description);
+
+	my ($text, $lines, $columns);
+	if (defined $this->_info) {
+		($text, $lines, $columns)=$this->frontend->sizetext($this->_info->description);
+	} else {
+		($text, $lines, $columns)=$this->frontend->sizetext(' ');
+	}
+	if ($this->frontend->screenwidth - $this->frontend->columnspacer > $columns) {
+		$columns = $this->frontend->screenwidth - $this->frontend->columnspacer;
+	}
+
+	my @params=('--gauge');
+	push @params, $this->frontend->dashsep if $this->frontend->dashsep;
+	push @params, ($text, $lines + $this->frontend->spacer, $columns, $this->_percent);
+
+	$this->frontend->startdialog($this->question, 1, @params);
+
+	$this->_lines($lines);
+	$this->_columns($columns);
+}
+
+sub set {
+	my $this=shift;
+	my $value=shift;
+
+	$this->progress_cur($value);
+	$this->_communicate($this->_percent . "\n");
+
+	return 1;
+}
+
+sub info {
+	my $this=shift;
+	my $question=shift;
+
+	$this->_info($question);
+
+	my ($text, $lines, $columns)=$this->frontend->sizetext($question->description);
+	if ($lines > $this->_lines or $columns > $this->_columns) {
+		$this->stop;
+		$this->start;
+	}
+
+
+	$this->_communicate(
+		sprintf("XXX\n%d\n%s\nXXX\n%d\n",
+			$this->_percent, $text, $this->_percent));
+
+	return 1;
+}
+
+sub stop {
+	my $this=shift;
+
+	$this->frontend->waitdialog;
+	$this->frontend->title($this->frontend->requested_title);
+}
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Select.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Select.pm
new file mode 100644
index 0000000..09a45d4
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Select.pm
@@ -0,0 +1,57 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Dialog::Select;
+use strict;
+use base qw(Debconf::Element::Select);
+use Debconf::Encoding qw(width);
+
+
+sub show {
+	my $this=shift;
+
+	my ($text, $lines, $columns)=
+		$this->frontend->makeprompt($this->question, -2);
+
+	my $screen_lines=$this->frontend->screenheight - $this->frontend->spacer;
+	my $default=$this->translate_default;
+	my @params=();
+	my @choices=$this->question->choices_split;
+	
+	my $menu_height=$#choices + 1;
+	if ($lines + $#choices + 2 >= $screen_lines) {
+		$menu_height = $screen_lines - $lines - 4;
+	}
+	
+	$lines=$lines + $menu_height + $this->frontend->spacer;
+	my $c=1;
+	my $selectspacer = $this->frontend->selectspacer;
+	foreach (@choices) {
+		push @params, $_, '';
+		
+		if ($columns < width($_) + $selectspacer) {
+			$columns = width($_) + $selectspacer;
+		}
+	}
+	
+	if ($this->frontend->dashsep) {
+		unshift @params, $this->frontend->dashsep;
+	}
+	
+	@params=('--default-item', $default, '--menu', 
+		  $text, $lines, $columns, $menu_height, @params);
+
+	my $value=$this->frontend->showdialog($this->question, @params);
+	if (defined $value) {
+		$this->value($this->translate_to_C($value)) if defined $value;
+	}
+	else {
+		my $default='';
+		$default=$this->question->value
+			if defined $this->question->value;
+		$this->value($default);
+	}
+}
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/String.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/String.pm
new file mode 100644
index 0000000..6978724
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/String.pm
@@ -0,0 +1,36 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Dialog::String;
+use strict;
+use base qw(Debconf::Element);
+
+
+sub show {
+	my $this=shift;
+
+	my ($text, $lines, $columns)=
+		$this->frontend->makeprompt($this->question);	
+
+	my $default='';
+	$default=$this->question->value if defined $this->question->value;
+
+	my @params=('--inputbox');
+	push @params, $this->frontend->dashsep if $this->frontend->dashsep;
+	push @params, ($text, $lines + $this->frontend->spacer, 
+	               $columns, $default);
+
+	my $value=$this->frontend->showdialog($this->question, @params);
+	if (defined $value) {
+		$this->value($value);
+	}
+	else {
+		my $default='';
+		$default=$this->question->value
+			if defined $this->question->value;
+		$this->value($default);
+	}
+}
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Text.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Text.pm
new file mode 100644
index 0000000..9169b85
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Text.pm
@@ -0,0 +1,20 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Dialog::Text;
+use strict;
+use base qw(Debconf::Element);
+
+
+sub show {
+	my $this=shift;
+
+	$this->frontend->showtext($this->question,
+		$this->question->description."\n\n".
+		$this->question->extended_description
+	);	
+	$this->value('');
+}
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Boolean.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Boolean.pm
new file mode 100644
index 0000000..d16124c
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Boolean.pm
@@ -0,0 +1,50 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Editor::Boolean;
+use strict;
+use Debconf::Gettext;
+use base qw(Debconf::Element);
+
+
+
+sub show {
+	my $this=shift;
+
+	$this->frontend->comment($this->question->extended_description."\n\n".
+		"(".gettext("Choices").": ".join(", ", gettext("yes"), gettext("no")).")\n".
+		$this->question->description."\n");
+
+	my $default='';
+	$default=$this->question->value if defined $this->question->value;
+	if ($default eq 'true') {
+		$default=gettext("yes");
+	}
+	elsif ($default eq 'false') {
+		$default=gettext("no");
+	}
+
+	$this->frontend->item($this->question->name, $default);
+}
+
+
+sub value {
+	my $this=shift;
+	
+	return $this->SUPER::value() unless @_;
+	my $value=shift;
+	
+	if ($value eq 'yes' || $value eq gettext("yes")) {
+		return $this->SUPER::value('true');
+	}
+	elsif ($value eq 'no' || $value eq gettext("no")) {
+		return $this->SUPER::value('false');
+	}
+	else {
+		return $this->SUPER::value($this->question->value);
+	}
+}
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Error.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Error.pm
new file mode 100644
index 0000000..5733c98
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Error.pm
@@ -0,0 +1,9 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Editor::Error;
+use strict;
+use base qw(Debconf::Element::Editor::Text);
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Multiselect.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Multiselect.pm
new file mode 100644
index 0000000..7cadbe8
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Multiselect.pm
@@ -0,0 +1,39 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Editor::Multiselect;
+use strict;
+use Debconf::Gettext;
+use base qw(Debconf::Element::Multiselect);
+
+
+sub show {
+	my $this=shift;
+
+	my @choices=$this->question->choices_split;
+
+	$this->frontend->comment($this->question->extended_description."\n\n".
+		"(".gettext("Choices").": ".join(", ", @choices).")\n".
+		gettext("(Enter zero or more items separated by a comma followed by a space (', ').)")."\n".
+		$this->question->description."\n");
+
+	$this->frontend->item($this->question->name, join ", ", $this->translate_default);
+}
+
+
+sub value {
+	my $this=shift;
+
+	return $this->SUPER::value() unless @_;
+	my @values=split(',\s+', shift);
+
+	my %valid=map { $_ => 1 } $this->question->choices_split;
+	
+	$this->SUPER::value(join(', ', $this->order_values(
+			map { $this->translate_to_C($_) }
+			grep { $valid{$_} } @values)));
+}
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Note.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Note.pm
new file mode 100644
index 0000000..fd5006a
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Note.pm
@@ -0,0 +1,9 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Editor::Note;
+use strict;
+use base qw(Debconf::Element::Editor::Text);
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Password.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Password.pm
new file mode 100644
index 0000000..f1dce00
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Password.pm
@@ -0,0 +1,10 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Editor::Password;
+use strict;
+use base qw(Debconf::Element::Editor::String);
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Progress.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Progress.pm
new file mode 100644
index 0000000..c538abb
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Progress.pm
@@ -0,0 +1,25 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Editor::Progress;
+use strict;
+use base qw(Debconf::Element);
+
+
+
+sub start {
+}
+
+sub set {
+	return 1;
+}
+
+sub info {
+	return 1;
+}
+
+sub stop {
+}
+
+1;
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Select.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Select.pm
new file mode 100644
index 0000000..f73d126
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Select.pm
@@ -0,0 +1,41 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Editor::Select;
+use strict;
+use Debconf::Gettext;
+use base qw(Debconf::Element::Select);
+
+
+sub show {
+	my $this=shift;
+
+	my $default=$this->translate_default;
+	my @choices=$this->question->choices_split;
+
+	$this->frontend->comment($this->question->extended_description."\n\n".
+		"(".gettext("Choices").": ".join(", ", @choices).")\n".
+		$this->question->description."\n");
+	$this->frontend->item($this->question->name, $default);
+}
+
+
+sub value {
+	my $this=shift;
+
+	return $this->SUPER::value() unless @_;
+	my $value=shift;
+	
+	my %valid=map { $_ => 1 } $this->question->choices_split;
+	
+	if ($valid{$value}) {
+		return $this->SUPER::value($this->translate_to_C($value));
+	}
+	else {
+		return $this->SUPER::value($this->question->value);
+	}
+}
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/String.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/String.pm
new file mode 100644
index 0000000..4b9676d
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/String.pm
@@ -0,0 +1,22 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Editor::String;
+use strict;
+use base qw(Debconf::Element);
+
+
+sub show {
+	my $this=shift;
+
+	$this->frontend->comment($this->question->extended_description."\n\n".
+		$this->question->description."\n");
+
+	my $default='';
+	$default=$this->question->value if defined $this->question->value;
+
+	$this->frontend->item($this->question->name, $default);
+}
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Text.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Text.pm
new file mode 100644
index 0000000..172031c
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Text.pm
@@ -0,0 +1,19 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Editor::Text;
+use strict;
+use base qw(Debconf::Element);
+
+
+sub show {
+	my $this=shift;
+
+	$this->frontend->comment($this->question->extended_description."\n\n".
+		$this->question->description."\n\n");
+	
+	$this->value('');
+}
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome.pm
new file mode 100644
index 0000000..655c8bd
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome.pm
@@ -0,0 +1,145 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Gnome;
+use strict;
+use utf8;
+use Gtk2;
+use Debconf::Gettext;
+use Debconf::Encoding qw(to_Unicode);
+use base qw(Debconf::Element);
+
+
+sub init {
+	my $this=shift;
+
+	$this->hbox(Gtk2::VBox->new(0, 10));
+
+	$this->hline1(Gtk2::HBox->new(0, 10));
+	$this->hline1->show;
+	$this->line1(Gtk2::VBox->new(0, 10));
+	$this->line1->show;
+	$this->line1->pack_end ($this->hline1, 1, 1, 0);
+
+	$this->hline2(Gtk2::HBox->new(0, 10));
+	$this->hline2->show;
+	$this->line2(Gtk2::VBox->new(0, 10));
+	$this->line2->show;
+	$this->line2->pack_end ($this->hline2, 1, 1, 0);
+
+	$this->vbox(Gtk2::VBox->new(0, 5));
+	$this->vbox->pack_start($this->line1, 0, 0, 0);
+	$this->vbox->pack_start($this->line2, 1, 1, 0);
+	$this->vbox->show;
+
+	$this->hbox->pack_start($this->vbox, 1, 1, 0);
+	$this->hbox->show;
+	
+	$this->fill(0);
+	$this->expand(0);
+	$this->multiline(0);
+}
+
+
+sub addwidget {
+	my $this=shift;
+	my $widget=shift;
+
+	if ($this->multiline == 0) {
+	    $this->hline1->pack_start($widget, 1, 1, 0);
+	}
+	else {
+	    $this->hline2->pack_start($widget, 1, 1, 0);
+	}
+}
+
+
+sub adddescription {
+	my $this=shift;
+	my $description=to_Unicode($this->question->description);
+	
+	my $label=Gtk2::Label->new($description);
+	$label->show;
+	$this->line1->pack_start($label, 0, 0, 0);
+}
+
+
+sub addbutton {
+	my $this=shift;
+	my $text = shift;
+	my $callback = shift;
+	
+	my $button = Gtk2::Button->new_with_mnemonic(to_Unicode($text));
+	$button->show;
+	$button->signal_connect("clicked", $callback);
+	
+	my $vbox = Gtk2::VBox->new(0, 0);
+	$vbox->show;
+	$vbox->pack_start($button, 1, 0, 0);
+	$this->hline1->pack_end($vbox, 0, 0, 0);
+}
+
+
+sub create_message_dialog {
+	my $this = shift;
+	my $type = shift;
+	my $title = shift;
+	my $text = shift;
+	
+	my $dialog = 
+		Gtk2::Dialog->new_with_buttons(to_Unicode($title), undef, 
+		                               "modal", "gtk-close", "close");
+	$dialog->set_border_width(3);
+	
+	my $hbox = Gtk2::HBox->new(0);
+	$dialog->vbox->pack_start($hbox, 1, 1, 5);
+	$hbox->show;
+	
+	my $alignment = Gtk2::Alignment->new(0.5, 0.0, 1.0, 0.0);
+	$hbox->pack_start($alignment, 1, 1, 3);
+	$alignment->show;
+	
+	my $image = Gtk2::Image->new_from_stock($type, "dialog");
+	$alignment->add($image);
+	$image->show;
+	
+	my $label = Gtk2::Label->new(to_Unicode($text));
+	$label->set_line_wrap(1);
+	$hbox->pack_start($label, 1, 1, 2);
+	$label->show;
+	
+	$dialog->run;
+	$dialog->destroy;
+}
+
+
+sub addhelp {
+	my $this=shift;
+	
+	my $help=$this->question->extended_description;
+	return unless length $help;
+	
+	$this->addbutton(gettext("_Help"), sub {
+		$this->create_message_dialog("gtk-dialog-info",
+		                              gettext("Help"), 
+					     to_Unicode($help));
+	});
+
+	if (defined $this->tip ){
+		$this->tooltips( Gtk2::Tooltips->new() );
+		$this->tooltips->set_tip($this->tip, to_Unicode($help), 
+					  undef );
+		$this->tooltips->enable;
+	}
+}
+
+
+sub value {
+	my $this=shift;
+
+	return '';
+}
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Boolean.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Boolean.pm
new file mode 100644
index 0000000..1ee52af
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Boolean.pm
@@ -0,0 +1,40 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Gnome::Boolean;
+use strict;
+use Gtk2;
+use utf8;
+use Debconf::Encoding qw(to_Unicode);
+use base qw(Debconf::Element::Gnome);
+
+
+sub init {
+	my $this=shift;
+	my $description=to_Unicode($this->question->description);
+	
+	$this->SUPER::init(@_);
+	
+	$this->widget(Gtk2::CheckButton->new($description));
+	$this->widget->show;
+	$this->widget->set_active(($this->question->value eq 'true') ? 1 : 0);
+	$this->addwidget($this->widget);
+	$this->tip( $this->widget );
+	$this->addhelp;
+}
+
+
+sub value {
+	my $this=shift;
+
+	if ($this->widget->get_active) {
+		return "true";
+	}
+	else {
+		return "false";
+	}
+}
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Error.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Error.pm
new file mode 100644
index 0000000..6394a75
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Error.pm
@@ -0,0 +1,51 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Gnome::Error;
+use strict;
+use Debconf::Gettext;
+use Gtk2;
+use utf8;
+use Debconf::Encoding qw(to_Unicode);
+use base qw(Debconf::Element::Gnome);
+
+
+sub init {
+	my $this=shift;
+	my $extended_description = to_Unicode($this->question->extended_description);
+
+	$this->SUPER::init(@_);
+	$this->multiline(1);
+	$this->fill(1);
+	$this->expand(1);
+	$this->widget(Gtk2::HBox->new(0, 0));
+
+	my $image = Gtk2::Image->new_from_stock("gtk-dialog-error", "dialog");
+	$image->show;
+
+	my $text = Gtk2::TextView->new();
+	my $textbuffer = $text->get_buffer;
+	$text->show;
+	$text->set_wrap_mode ("word");
+	$text->set_editable (0);
+
+	my $scrolled_window = Gtk2::ScrolledWindow->new();
+	$scrolled_window->show;
+	$scrolled_window->set_policy('automatic', 'automatic');
+	$scrolled_window->set_shadow_type('in');
+	$scrolled_window->add ($text);
+
+	$this->widget->show;
+	$this->widget->pack_start($image, 0, 0, 6);
+	$this->widget->pack_start($scrolled_window, 1, 1, 0);
+
+	$textbuffer->set_text($extended_description);
+
+	$this->widget->show;
+	$this->adddescription;
+	$this->addwidget($this->widget);
+}
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Multiselect.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Multiselect.pm
new file mode 100644
index 0000000..34a1f4d
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Multiselect.pm
@@ -0,0 +1,94 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Gnome::Multiselect;
+use strict;
+use Gtk2;
+use utf8;
+use Debconf::Encoding qw(to_Unicode);
+use base qw(Debconf::Element::Gnome Debconf::Element::Multiselect);
+
+use constant SELECTED_COLUMN => 0;
+use constant CHOICES_COLUMN  => 1;
+
+sub init {
+	my $this=shift;
+	my @choices = map { to_Unicode($_) } $this->question->choices_split;
+        my %default=map { to_Unicode($_) => 1 } $this->translate_default;
+
+	$this->SUPER::init(@_);
+	$this->multiline(1);
+
+	$this->adddescription;
+
+        $this->widget(Gtk2::ScrolledWindow->new);
+        $this->widget->show;
+        $this->widget->set_policy('automatic', 'automatic');
+	
+	my $list_store = Gtk2::ListStore->new('Glib::Boolean', 'Glib::String');
+	$this->list_view(Gtk2::TreeView->new($list_store));
+	$this->list_view->set_headers_visible(0);
+
+	my $renderer_toggle = Gtk2::CellRendererToggle->new;
+	$renderer_toggle->signal_connect(toggled => sub {
+		my $path_string = $_[1];
+		my $model = $_[2];
+		my $iter = $model->get_iter_from_string($path_string);
+		$model->set($iter, SELECTED_COLUMN,
+		            not $model->get($iter, SELECTED_COLUMN));
+	}, $list_store);
+
+	$this->list_view->append_column(
+		Gtk2::TreeViewColumn->new_with_attributes('Selected',
+			$renderer_toggle, 'active', SELECTED_COLUMN));
+	$this->list_view->append_column(
+		Gtk2::TreeViewColumn->new_with_attributes('Choices',
+			Gtk2::CellRendererText->new, 'text', CHOICES_COLUMN)); 
+	$this->list_view->show;
+
+	$this->widget->add($this->list_view);
+
+	for (my $i=0; $i <= $#choices; $i++) {
+		my $iter = $list_store->append();
+		$list_store->set($iter, CHOICES_COLUMN, $choices[$i]);
+		if ($default{$choices[$i]}) {
+			$list_store->set($iter, SELECTED_COLUMN, 1);
+		}
+	}
+	$this->addwidget($this->widget);
+	$this->tip($this->list_view);
+	$this->addhelp;
+
+	$this->fill(1);
+	$this->expand(1);
+
+}
+
+
+sub value {
+	my $this=shift;
+	my $list_view = $this->list_view;
+	my $list_store = $list_view->get_model ();
+	my ($ret, $val);
+	
+	my @vals;
+	$this->question->template->i18n('');
+	my @choices=$this->question->choices_split;
+	$this->question->template->i18n(1);
+	
+	my $iter = $list_store->get_iter_first();
+	for (my $i=0; $i <= $#choices; $i++) {
+		if ($list_store->get($iter, SELECTED_COLUMN)) {
+			push @vals, $choices[$i];
+		}
+		$iter = $list_store->iter_next($iter);
+	}
+
+	return join(', ', $this->order_values(@vals));
+}
+
+*visible = \&Debconf::Element::Multiselect::visible;
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Note.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Note.pm
new file mode 100644
index 0000000..68ac016
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Note.pm
@@ -0,0 +1,48 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Gnome::Note;
+use strict;
+use Debconf::Gettext;
+use Gtk2;
+use utf8;
+use Debconf::Encoding qw(to_Unicode);
+use Debconf::Element::Noninteractive::Note;
+use base qw(Debconf::Element::Gnome);
+
+
+sub init {
+	my $this=shift;
+	my $extended_description = to_Unicode($this->question->extended_description);
+
+	$this->SUPER::init(@_);
+	$this->multiline(1);
+	$this->fill(1);
+	$this->expand(1);
+	$this->widget(Gtk2::HBox->new(0, 0));
+
+	my $text = Gtk2::TextView->new();
+	my $textbuffer = $text->get_buffer;
+	$text->show;
+	$text->set_wrap_mode ("word");
+	$text->set_editable (0);
+
+	my $scrolled_window = Gtk2::ScrolledWindow->new();
+	$scrolled_window->show;
+	$scrolled_window->set_policy('automatic', 'automatic');
+	$scrolled_window->set_shadow_type('in');
+	$scrolled_window->add ($text);
+
+	$this->widget->show;
+	$this->widget->pack_start($scrolled_window, 1, 1, 0);
+
+	$textbuffer->set_text($extended_description);
+
+	$this->widget->show;
+	$this->adddescription;
+	$this->addwidget($this->widget);
+}
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Password.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Password.pm
new file mode 100644
index 0000000..5ea5c80
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Password.pm
@@ -0,0 +1,37 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Gnome::Password;
+use strict;
+use Gtk2;
+use utf8;
+use base qw(Debconf::Element::Gnome);
+
+
+
+sub init {
+	my $this=shift;
+
+	$this->SUPER::init(@_);
+	$this->adddescription;
+
+	$this->widget(Gtk2::Entry->new);
+	$this->widget->show;
+	$this->widget->set_visibility(0);
+	$this->addwidget($this->widget);
+	$this->tip( $this->widget );
+	$this->addhelp;
+}
+
+
+sub value {
+	my $this=shift;
+	
+	my $text = $this->widget->get_chars(0, -1);
+	$text = $this->question->value if $text eq '';
+	return $text;
+}
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Progress.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Progress.pm
new file mode 100644
index 0000000..e1663fa
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Progress.pm
@@ -0,0 +1,63 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Gnome::Progress;
+use strict;
+use Gtk2;
+use utf8;
+use Debconf::Encoding qw(to_Unicode);
+use base qw(Debconf::Element::Gnome);
+
+
+sub _fraction {
+	my $this=shift;
+
+	return (($this->progress_cur() - $this->progress_min()) / ($this->progress_max() - $this->progress_min()));
+}
+
+sub start {
+	my $this=shift;
+	my $description=to_Unicode($this->question->description);
+	my $frontend=$this->frontend;
+
+	$this->SUPER::init(@_);
+	$this->multiline(1);
+	$this->expand(1);
+
+	$frontend->title($description);
+
+	$this->widget(Gtk2::ProgressBar->new());
+	$this->widget->show;
+	$this->widget->set_text(' ');
+	$this->addwidget($this->widget);
+	$this->addhelp;
+}
+
+sub set {
+	my $this=shift;
+	my $value=shift;
+
+	$this->progress_cur($value);
+	$this->widget->set_fraction($this->_fraction);
+
+	return 1;
+}
+
+sub info {
+	my $this=shift;
+	my $question=shift;
+
+	$this->widget->set_text(to_Unicode($question->description));
+	
+	return 1;
+}
+
+sub stop {
+	my $this=shift;
+	my $frontend=$this->frontend;
+
+	$frontend->title($frontend->requested_title);
+}
+
+1;
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Select.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Select.pm
new file mode 100644
index 0000000..8e63f86
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Select.pm
@@ -0,0 +1,52 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Gnome::Select;
+use strict;
+use Gtk2;
+use Gnome2;
+use utf8;
+use Debconf::Encoding qw(to_Unicode);
+use base qw(Debconf::Element::Gnome Debconf::Element::Select);
+
+
+sub init {
+	my $this=shift;
+
+	my $default=$this->translate_default;
+	my @choices= map { to_Unicode($_) } $this->question->choices_split;
+
+	$this->SUPER::init(@_);
+
+	$this->widget(Gtk2::Combo->new);
+	$this->widget->show;
+
+	$this->widget->set_popdown_strings(@choices);
+	$this->widget->set_value_in_list(1, 0);
+	$this->widget->entry->set_editable(0);
+
+	if (defined($default) and length($default) != 0) {
+		$this->widget->entry->set_text(to_Unicode($default));
+	}
+	else {
+		$this->widget->entry->set_text($choices[0]);
+	}
+
+	$this->adddescription;
+	$this->addwidget($this->widget);
+	$this->tip( $this->widget->entry );
+	$this->addhelp;
+}
+
+
+sub value {
+	my $this=shift;
+
+	return $this->translate_to_C_uni($this->widget->entry->get_chars(0, -1));
+}
+
+*visible = \&Debconf::Element::Select::visible;
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/String.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/String.pm
new file mode 100644
index 0000000..0bb922d
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/String.pm
@@ -0,0 +1,40 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Gnome::String;
+use strict;
+use Gtk2;
+use utf8;
+use Debconf::Encoding qw(to_Unicode);
+use base qw(Debconf::Element::Gnome);
+
+
+sub init {
+	my $this=shift;
+
+	$this->SUPER::init(@_);
+
+	$this->widget(Gtk2::Entry->new);
+	$this->widget->show;
+
+	my $default='';
+	$default=$this->question->value if defined $this->question->value;
+	
+	$this->widget->set_text(to_Unicode($default));
+
+	$this->adddescription;
+	$this->addwidget($this->widget);
+	$this->tip( $this->widget );
+	$this->addhelp;
+}
+
+
+sub value {
+	my $this=shift;
+
+	return $this->widget->get_chars(0, -1);
+}
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Text.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Text.pm
new file mode 100644
index 0000000..9d6518f
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Text.pm
@@ -0,0 +1,21 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Gnome::Text;
+use strict;
+use Debconf::Gettext;
+use Gtk2;
+use utf8;
+use base qw(Debconf::Element::Gnome);
+
+
+sub init {
+	my $this=shift;
+
+	$this->SUPER::init(@_);
+	$this->adddescription; # yeah, that's all
+}
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde.pm
new file mode 100644
index 0000000..0b74574
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde.pm
@@ -0,0 +1,141 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Kde::ElementWidget;
+use QtCore4;
+use QtCore4::isa @ISA = qw(Qt::Widget);
+use QtGui4;
+
+
+sub NEW {
+	shift->SUPER::NEW ($_[0]);
+	this->{mytop} = undef;
+}
+
+
+sub settop {
+    this->{mytop} = shift;
+}
+
+
+sub init {
+	this->{toplayout} =  Qt::VBoxLayout(this);
+	this->{mytop} = Qt::Widget(this);
+	this->{toplayout}->addWidget (this->{mytop});
+	this->{layout} = Qt::VBoxLayout();
+	this->{mytop}->setLayout(this->{layout});
+}
+
+
+sub destroy {
+	this->{toplayout} -> removeWidget (this->{mytop});
+	undef this->{mytop};
+}
+
+
+sub top {
+    return this->{mytop};
+}
+
+
+sub addwidget {
+    this->{layout}->addWidget(@_);
+}
+
+
+sub addlayout {
+    this->{layout}->addLayout (@_);
+}
+
+
+
+
+
+
+package Debconf::Element::Kde;
+use strict;
+use QtCore4;
+use QtGui4;
+use Debconf::Gettext;
+use base qw(Debconf::Element);
+use Debconf::Element::Kde::ElementWidget;
+use Debconf::Encoding qw(to_Unicode);
+
+
+sub create {
+	my $this=shift;
+	$this->parent(shift);
+	$this->top(Debconf::Element::Kde::ElementWidget($this->parent, undef,
+	                                                undef, undef));
+	$this->top->init;
+	$this->top->show;
+}
+
+
+sub destroy {
+	my $this=shift;
+	$this->top(undef);
+}
+
+
+sub addwidget {
+	my $this=shift;
+	my $widget=shift;
+	$this->cur->addwidget($widget);
+}
+
+
+sub description {
+	my $this=shift;
+	my $label=Qt::Label($this->cur->top);
+	$label->setText("<b>".to_Unicode($this->question->description."</b>"));
+	$label->show;
+	return $label;
+}
+
+
+sub startsect {
+	my $this = shift;
+	my $ew = Debconf::Element::Kde::ElementWidget($this->top);
+	$ew->init;
+	$this->cur($ew);
+	$this->top->addwidget($ew);
+	$ew->show;
+}
+
+
+sub endsect {
+	my $this = shift;
+	$this->cur($this->top);
+}
+
+
+sub adddescription {
+	my $this=shift;
+	my $label=$this->description;
+	$this->addwidget($label);
+}
+
+
+sub addhelp {
+	my $this=shift;
+    
+	my $help=to_Unicode($this->question->extended_description);
+	return unless length $help;
+	my $label=Qt::Label($this->cur->top);
+	$label->setText($help);
+	$label->setWordWrap(1);
+	$this->addwidget($label); # line1
+	$label->setMargin(5);
+	$label->show;
+}
+
+
+sub value {
+	my $this=shift;
+	return '';
+}
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Boolean.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Boolean.pm
new file mode 100644
index 0000000..1d5d9be
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Boolean.pm
@@ -0,0 +1,41 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Kde::Boolean;
+use strict;
+use QtCore4;
+use QtGui4;
+use base qw(Debconf::Element::Kde);
+use Debconf::Encoding qw(to_Unicode);
+
+
+sub create {
+	my $this=shift;
+	
+	$this->SUPER::create(@_);
+	
+	$this->startsect;
+	$this->widget(Qt::CheckBox( to_Unicode($this->question->description)));
+	$this->widget->setChecked(($this->question->value eq 'true') ? 1 : 0);
+	$this->widget->setText(to_Unicode($this->question->description));
+	$this->adddescription;
+	$this->addhelp;
+	$this->addwidget($this->widget);
+	$this->endsect;
+}
+
+
+sub value {
+	my $this = shift;
+	
+	if ($this -> widget -> isChecked) {
+		return "true";
+	}
+	else {
+		return "false";
+	}
+}
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Error.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Error.pm
new file mode 100644
index 0000000..8e7ae99
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Error.pm
@@ -0,0 +1,23 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Kde::Error;
+use strict;
+use Debconf::Gettext;
+use QtCore4;
+use QtGui4;
+use base qw(Debconf::Element::Kde);
+
+
+sub create {
+	my $this=shift;
+	$this->SUPER::create(@_);
+	$this->startsect;
+	$this->adddescription;
+	$this->addhelp;
+	$this->endsect;
+}
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Multiselect.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Multiselect.pm
new file mode 100644
index 0000000..dcbdb79
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Multiselect.pm
@@ -0,0 +1,58 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Kde::Multiselect;
+use strict;
+use QtCore4;
+use QtGui4;
+use base qw(Debconf::Element::Kde Debconf::Element::Multiselect);
+use Debconf::Encoding qw(to_Unicode);
+
+
+sub create {
+	my $this=shift;
+	
+	my @choices = $this->question->choices_split;
+	my %default = map { $_ => 1 } $this->translate_default;
+	
+	$this->SUPER::create(@_);
+	$this->startsect;
+	$this->adddescription;
+	$this->addhelp;
+    
+	my @buttons;
+	for (my $i=0; $i <= $#choices; $i++) {
+		$buttons[$i] = Qt::CheckBox($this->cur->top);
+		$buttons[$i]->setText(to_Unicode($choices[$i]));
+		$buttons[$i]->show;
+		$buttons[$i]->setChecked($default{$choices[$i]} ? 1 : 0);
+		$this->addwidget($buttons[$i]);
+	}
+	
+	$this->buttons(\@buttons);
+	$this->endsect;
+}
+
+
+sub value {
+	my $this = shift;
+	my @buttons = @{$this->buttons};
+	my ($ret, $val);
+	my @vals;
+	$this->question->template->i18n('');
+	my @choices=$this->question->choices_split;
+	$this->question->template->i18n(1);
+	
+	for (my $i = 0; $i <= $#choices; $i++) {
+	if ($buttons [$i] -> isChecked()) {
+		push @vals, $choices[$i];
+	}
+	}
+	return join(', ', $this->order_values(@vals));
+}
+
+*visible = \&Debconf::Element::Multiselect::visible;
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Note.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Note.pm
new file mode 100644
index 0000000..405ac16
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Note.pm
@@ -0,0 +1,23 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Kde::Note;
+use strict;
+use Debconf::Gettext;
+use Qt;
+use Debconf::Element::Noninteractive::Note;
+use base qw(Debconf::Element::Kde);
+
+
+sub create {
+	my $this=shift;
+	$this->SUPER::create(@_);
+	$this->startsect;
+	$this->adddescription;
+	$this->addhelp;
+	$this->endsect;
+}
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Password.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Password.pm
new file mode 100644
index 0000000..95cf6c1
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Password.pm
@@ -0,0 +1,36 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Kde::Password;
+use strict;
+use QtCore4;
+use QtGui4;
+use base qw(Debconf::Element::Kde);
+
+
+sub create {
+	my $this=shift;
+	
+	$this->SUPER::create(@_);
+	$this->startsect;
+	$this->widget(Qt::LineEdit($this->cur->top));
+	$this->widget->show;
+	$this->widget->setEchoMode(2);
+	$this->addwidget($this->description);
+	$this->addhelp;
+	$this->addwidget($this->widget);
+	$this->endsect;
+}
+
+
+sub value {
+	my $this=shift;
+	
+	my $text = $this->widget->text();
+	$text = $this->question->value if $text eq '';
+	return $text;
+}
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Progress.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Progress.pm
new file mode 100644
index 0000000..ff013a7
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Progress.pm
@@ -0,0 +1,60 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Kde::Progress;
+use strict;
+use QtCore4;
+use QtGui4;
+use base qw(Debconf::Element::Kde);
+use Debconf::Encoding qw(to_Unicode);
+
+
+sub start {
+	my $this=shift;
+	my $description=to_Unicode($this->question->description);
+	my $frontend=$this->frontend;
+
+	$this->SUPER::create($frontend->frame);
+
+	$this->startsect;
+	$this->addhelp;
+	$this->adddescription;
+	my $vbox = Qt::VBoxLayout($this->widget);
+
+	$this->progress_bar(Qt::ProgressBar($this->cur->top));
+	$this->progress_bar->setMinimum($this->progress_min());
+	$this->progress_bar->setMaximum($this->progress_max());
+	$this->progress_bar->show;
+	$this->addwidget($this->progress_bar);
+
+	$this->progress_label(Qt::Label($this->cur->top));
+	$this->progress_label->show;
+	$this->addwidget($this->progress_label);
+
+	$this->endsect;
+}
+
+sub set {
+	my $this=shift;
+	my $value=shift;
+
+
+	$this->progress_cur($value);
+	$this->progress_bar->setValue($this->progress_cur);
+	return 1;
+}
+
+sub info {
+	my $this=shift;
+	my $question=shift;
+
+	$this->progress_label->setText(to_Unicode($question->description));
+	
+	return 1;
+}
+
+sub stop {
+}
+
+1;
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Select.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Select.pm
new file mode 100644
index 0000000..2cb341b
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Select.pm
@@ -0,0 +1,49 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Kde::Select;
+use strict;
+use QtCore4;
+use QtGui4;
+use base qw(Debconf::Element::Kde Debconf::Element::Select);
+use Debconf::Encoding qw(to_Unicode);
+
+
+sub create {
+	my $this=shift;
+	
+	my $default=$this->translate_default;
+	my @choices=map { to_Unicode($_) } $this->question->choices_split;
+	
+	$this->SUPER::create(@_);
+	$this->startsect;
+	$this->widget(Qt::ComboBox($this->cur->top));
+	$this->widget->show;
+	$this->widget->addItems(\@choices);
+	if (defined($default) and length($default) != 0) {
+		for (my $i = 0 ; $i < @choices ; $i++) {
+			if ($choices[$i] eq $default ) {
+				$this->widget->setCurrentIndex($i);# //FIXME find right index to_Unicode($default));
+				last;
+			}
+		}
+	}
+	$this->addwidget($this->description);
+	$this->addhelp;
+	$this->addwidget($this->widget);
+	$this->endsect;
+}
+
+
+sub value {
+	my $this=shift;
+	
+	my @choices=$this->question->choices_split;
+	return $this->translate_to_C_uni($this->widget->currentText());
+}
+
+*visible = \&Debconf::Element::Select::visible;
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/String.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/String.pm
new file mode 100644
index 0000000..65e16f7
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/String.pm
@@ -0,0 +1,35 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Kde::String;
+use strict;
+use QtCore4;
+use QtGui4;
+use base qw(Debconf::Element::Kde);
+use Debconf::Encoding qw(to_Unicode);
+
+
+sub create {
+	my $this=shift;
+	
+	$this->SUPER::create(@_);
+	$this->startsect;
+	$this->widget(Qt::LineEdit($this->cur->top));
+	my $default='';
+	$default=$this->question->value if defined $this->question->value;
+	$this->widget->setText(to_Unicode($default));
+	$this->adddescription;
+	$this->addhelp;
+	$this->addwidget ($this->widget);
+	$this->endsect;
+}
+
+
+sub value {
+	my $this=shift;
+	return $this->widget->text();
+}
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Text.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Text.pm
new file mode 100644
index 0000000..394319f
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Text.pm
@@ -0,0 +1,21 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Kde::Text;
+use strict;
+use Debconf::Gettext;
+use Qt;
+use base qw(Debconf::Element::Kde);
+
+
+sub create {
+	my $this=shift;
+	$this->SUPER::create(@_);
+	$this->startsect;
+	$this->adddescription; # yeah, that's all
+	$this->endsect;
+}
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Multiselect.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Multiselect.pm
new file mode 100644
index 0000000..1d1b26e
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Multiselect.pm
@@ -0,0 +1,47 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Multiselect;
+use strict;
+use base qw(Debconf::Element::Select);
+
+
+sub order_values {
+	my $this=shift;
+	my %vals=map { $_ => 1 } @_;
+	$this->question->template->i18n('');
+	my @ret=grep { $vals{$_} } $this->question->choices_split;
+	$this->question->template->i18n(1);
+	return @ret;
+}
+
+
+sub visible {
+        my $this=shift;
+
+        my @choices=$this->question->choices_split;
+        return ($#choices >= 0);
+}
+
+
+sub translate_default {
+	my $this=shift;
+
+	my @choices=$this->question->choices_split;
+	$this->question->template->i18n('');
+	my @choices_c=$this->question->choices_split;
+	$this->question->template->i18n(1);
+	
+	my @ret;
+	foreach my $c_default ($this->question->value_split) {
+		foreach (my $x=0; $x <= $#choices; $x++) {
+			push @ret, $choices[$x]
+				if $choices_c[$x] eq $c_default;
+		}
+	}
+	return @ret;
+}
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive.pm
new file mode 100644
index 0000000..b2e5cee
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive.pm
@@ -0,0 +1,26 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Noninteractive;
+use strict;
+use base qw(Debconf::Element);
+
+
+sub visible {
+	my $this=shift;
+	
+	return;
+}
+
+
+sub show {
+	my $this=shift;
+
+	my $default='';
+	$default=$this->question->value if defined $this->question->value;
+	$this->value($default);
+}
+
+
+1
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
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Select.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Select.pm
new file mode 100644
index 0000000..4082518
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Select.pm
@@ -0,0 +1,78 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Select;
+use strict;
+use Debconf::Log ':all';
+use Debconf::Gettext;
+use base qw(Debconf::Element);
+use Debconf::Encoding qw(to_Unicode);
+
+
+sub visible {
+	my $this=shift;
+	
+	my @choices=$this->question->choices_split;
+
+	if (@choices > 1) {
+		return 1;
+	}
+	else {
+		debug 'developer' => 'Not displaying select list '.
+		                     $this->question->name.' with '.
+				     (@choices+0).' choice'.((@choices == 0) ? 's' : '');
+		return 0;
+	}
+}
+
+
+sub translate_default {
+	my $this=shift;
+
+	my @choices=$this->question->choices_split;
+	$this->question->template->i18n('');
+	my @choices_c=$this->question->choices_split;
+	$this->question->template->i18n(1);
+
+	my $c_default='';
+	$c_default=$this->question->value if defined $this->question->value;
+	foreach (my $x=0; $x <= $#choices; $x++) {
+		return $choices[$x] if $choices_c[$x] eq $c_default;
+	}
+	return '';
+}
+
+
+sub translate_to_C {
+	my $this=shift;
+	my $value=shift;
+
+	my @choices=$this->question->choices_split;
+	$this->question->template->i18n('');
+	my @choices_c=$this->question->choices_split;
+	$this->question->template->i18n(1);
+	
+	for (my $x=0; $x <= $#choices; $x++) {
+		return $choices_c[$x] if $choices[$x] eq $value;
+	}
+	debug developer => sprintf(gettext("Input value, \"%s\" not found in C choices! This should never happen. Perhaps the templates were incorrectly localized."), $value);
+	return '';
+}
+
+sub translate_to_C_uni {
+	my $this=shift;
+	my $value=shift;
+	my @choices=$this->question->choices_split;
+	$this->question->template->i18n('');
+	my @choices_c=$this->question->choices_split;
+	$this->question->template->i18n(1);
+
+	for (my $x=0; $x <= $#choices; $x++) {
+		return $choices_c[$x] if to_Unicode($choices[$x]) eq $value;
+	}
+	debug developer => sprintf(gettext("Input value, \"%s\" not found in C choices! This should never happen. Perhaps the templates were incorrectly localized."), $value);
+	return '';
+}
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Boolean.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Boolean.pm
new file mode 100644
index 0000000..584ebca
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Boolean.pm
@@ -0,0 +1,67 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Teletype::Boolean;
+use strict;
+use Debconf::Gettext;
+use base qw(Debconf::Element);
+
+
+sub show {
+	my $this=shift;
+
+	my $y=gettext("yes");
+	my $n=gettext("no");
+
+	$this->frontend->display($this->question->extended_description."\n");
+
+	my $default='';
+	$default=$this->question->value if defined $this->question->value;
+	if ($default eq 'true') {
+		$default=$y;
+	}
+	elsif ($default eq 'false') {
+		$default=$n;
+	}
+
+	my $value='';
+
+	while (1) {
+		$_=$this->frontend->prompt(
+			default => $default,
+			completions => [$y, $n],
+			prompt => $this->question->description,
+			question => $this->question,
+		);
+		return unless defined $_;
+
+		if (substr($y, 0, 1) ne substr($n, 0, 1)) {
+			$y=substr($y, 0, 1);
+			$n=substr($n, 0, 1);
+		}
+		if (/^\Q$y\E/i) {
+			$value='true';
+			last;
+		}
+		elsif (/^\Q$n\E/i) {
+			$value='false';
+			last;
+		}
+
+		if (/^y/i) {
+			$value='true';
+			last;
+		}
+		elsif (/^n/i) {
+			$value='false';
+			last;
+		}
+	}
+	
+	$this->frontend->display("\n");
+	$this->value($value);
+}
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Error.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Error.pm
new file mode 100644
index 0000000..3f0543f
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Error.pm
@@ -0,0 +1,10 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Teletype::Error;
+use strict;
+use base qw(Debconf::Element::Teletype::Text);
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Multiselect.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Multiselect.pm
new file mode 100644
index 0000000..8bc89a3
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Multiselect.pm
@@ -0,0 +1,78 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Teletype::Multiselect;
+use strict;
+use Debconf::Gettext;
+use Debconf::Config;
+use base qw(Debconf::Element::Multiselect Debconf::Element::Teletype::Select);
+
+
+sub show {
+	my $this=shift;
+
+	my @selected;
+	my $none_of_the_above=gettext("none of the above");
+
+	my @choices=$this->question->choices_split;
+	my %value = map { $_ => 1 } $this->translate_default;
+	if ($this->frontend->promptdefault && $this->question->value ne '') {
+		push @choices, $none_of_the_above;
+	}
+	my @completions=@choices;
+	my $i=1;
+	my %choicenum=map { $_ => $i++ } @choices;
+	
+	$this->frontend->display($this->question->extended_description."\n");
+	
+	my $default;
+	if (Debconf::Config->terse eq 'false') {
+		$this->printlist(@choices);
+		$this->frontend->display("\n(".gettext("Enter the items you want to select, separated by spaces.").")\n");
+		push @completions, 1..@choices;
+		$default=join(" ", map { $choicenum{$_} }
+		                   grep { $value{$_} } @choices);
+	}
+	else {
+		$default=join(" ", grep { $value{$_} } @choices);
+	}
+
+	while (1) {
+		$_=$this->frontend->prompt(
+			prompt => $this->question->description,
+		 	default => $default,
+			completions => [@completions],
+			completion_append_character => " ",
+			question => $this->question,
+		);
+		return unless defined $_;
+
+		@selected=split(/[	 ,]+/, $_);
+
+		@selected=map { $this->expandabbrev($_, @choices) } @selected;
+
+		next if grep { $_ eq '' } @selected;
+
+		if ($#selected > 0) {
+			map { next if $_ eq $none_of_the_above } @selected;
+		}
+		
+		last;
+	}
+
+	$this->frontend->display("\n");
+
+	if (defined $selected[0] && $selected[0] eq $none_of_the_above) {
+		$this->value('');
+	}
+	else {
+		my %selected=map { $_ => 1 } @selected;
+
+		$this->value(join(', ', $this->order_values(
+				map { $this->translate_to_C($_) }
+		                keys %selected)));
+	}
+}
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Note.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Note.pm
new file mode 100644
index 0000000..086f6d2
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Note.pm
@@ -0,0 +1,26 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Teletype::Note;
+use strict;
+use base qw(Debconf::Element);
+
+
+
+sub visible {
+        my $this=shift;
+
+	return (Debconf::Config->terse eq 'false');
+}
+
+sub show {
+	my $this=shift;
+
+	$this->frontend->display($this->question->description."\n\n".
+		$this->question->extended_description."\n");
+
+	$this->value('');
+}
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Password.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Password.pm
new file mode 100644
index 0000000..3d07d59
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Password.pm
@@ -0,0 +1,34 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Teletype::Password;
+use strict;
+use base qw(Debconf::Element);
+
+
+sub show {
+	my $this=shift;
+
+	$this->frontend->display(
+		$this->question->extended_description."\n");
+	
+	my $default='';
+	$default=$this->question->value if defined $this->question->value;
+
+	my $value=$this->frontend->prompt_password(
+		prompt => $this->question->description,
+		default => $default,
+		question => $this->question,
+	);
+	return unless defined $value;
+
+	if ($value eq '') {
+		$value=$default;
+	}
+	
+	$this->frontend->display("\n");
+	$this->value($value);
+}
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Progress.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Progress.pm
new file mode 100644
index 0000000..35985dd
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Progress.pm
@@ -0,0 +1,46 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Teletype::Progress;
+use strict;
+use base qw(Debconf::Element);
+
+
+sub start {
+	my $this=shift;
+
+	$this->frontend->title($this->question->description);
+	$this->frontend->display('');
+	$this->last(0);
+}
+
+sub set {
+	my $this=shift;
+	my $value=shift;
+
+	$this->progress_cur($value);
+
+	use integer;
+	my $new = ($this->progress_cur() - $this->progress_min()) * 100 / ($this->progress_max() - $this->progress_min());
+	$this->last(0) if $new < $this->last;
+	return if $new / 10 == $this->last / 10;
+
+	$this->last($new);
+	$this->frontend->display("..$new%");
+
+	return 1;
+}
+
+sub info {
+	return 1;
+}
+
+sub stop {
+	my $this=shift;
+
+	$this->frontend->display("\n");
+	$this->frontend->title($this->frontend->requested_title);
+}
+
+1;
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Select.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Select.pm
new file mode 100644
index 0000000..e5a02a3
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Select.pm
@@ -0,0 +1,144 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Teletype::Select;
+use strict;
+use Debconf::Config;
+use POSIX qw(ceil);
+use base qw(Debconf::Element::Select);
+
+
+sub expandabbrev {
+	my $this=shift;
+	my $input=shift;
+	my @choices=@_;
+
+	if (Debconf::Config->terse eq 'false' and 
+	    $input=~m/^[0-9]+$/ and $input ne '0' and $input <= @choices) {
+		return $choices[$input - 1];
+	}
+	
+	my @matches=();
+	foreach (@choices) {
+		return $_ if /^\Q$input\E$/;
+		push @matches, $_ if /^\Q$input\E/;
+	}
+	return $matches[0] if @matches == 1;
+
+	if (! @matches) {
+		foreach (@choices) {
+			return $_ if /^\Q$input\E$/i;
+			push @matches, $_ if /^\Q$input\E/i;
+		}
+		return $matches[0] if @matches == 1;
+	}
+	
+	return '';
+}
+
+
+sub printlist {
+	my $this=shift;
+	my @choices=@_;
+	my $width=$this->frontend->screenwidth;
+
+	my $choice_min=length $choices[0];
+	map { $choice_min = length $_ if length $_ < $choice_min } @choices;
+	my $max_cols=int($width / (2 + length(@choices) +  2 + $choice_min)) - 1;
+	$max_cols = $#choices if $max_cols > $#choices;
+
+	my $max_lines;
+	my $num_cols;
+COLUMN:	for ($num_cols = $max_cols; $num_cols >= 0; $num_cols--) {
+		my @col_width;
+		my $total_width;
+
+		$max_lines=ceil(($#choices + 1) / ($num_cols + 1));
+
+		next if ceil(($#choices + 1) / $max_lines) - 1 < $num_cols;
+
+		foreach (my $choice=1; $choice <= $#choices + 1; $choice++) {
+			my $choice_length=2
+				+ length(@choices) + 2
+				+ length($choices[$choice - 1]);
+			my $current_col=ceil($choice / $max_lines) - 1;
+			if (! defined $col_width[$current_col] ||
+			    $choice_length > $col_width[$current_col]) {
+				$col_width[$current_col]=$choice_length;
+				$total_width=0;
+				map { $total_width += $_ } @col_width;
+				next COLUMN if $total_width > $width;
+			}
+		}
+
+		last;
+	}
+
+	my $line=0;
+	my $max_len=0;
+	my $col=0;
+	my @output=();
+	for (my $choice=0; $choice <= $#choices; $choice++) {
+		$output[$line] .= "  ".($choice+1).". " . $choices[$choice];
+		if (length $output[$line] > $max_len) {
+			$max_len = length $output[$line];
+		}
+		if (++$line >= $max_lines) {
+			if ($col++ != $num_cols) {
+				for (my $l=0; $l <= $#output; $l++) {
+					$output[$l] .= ' ' x ($max_len - length $output[$l]);
+				}
+			}
+	
+			$line=0;
+			$max_len=0;
+		}
+	}
+
+	@output = map { s/\s+$//; $_ } @output;
+
+	map { $this->frontend->display_nowrap($_) } @output;
+}
+
+sub show {
+	my $this=shift;
+	
+	my $default=$this->translate_default;
+	my @choices=$this->question->choices_split;	
+	my @completions=@choices;
+
+	$this->frontend->display($this->question->extended_description."\n");
+	
+	if (Debconf::Config->terse eq 'false') {
+		for (my $choice=0; $choice <= $#choices; $choice++) {
+			if ($choices[$choice] eq $default) {
+				$default=$choice + 1;
+				last;
+			}
+		}
+		
+		$this->printlist(@choices);
+		$this->frontend->display("\n");
+
+		push @completions, 1..@choices;
+	}
+
+	my $value;
+	while (1) {
+		$value=$this->frontend->prompt(
+			prompt => $this->question->description,
+			default => $default ? $default : '',
+			completions => [@completions],
+			question => $this->question,
+		);
+		return unless defined $value;
+		$value=$this->expandabbrev($value, @choices);
+		last if $value ne '';
+	}
+	$this->frontend->display("\n");
+	$this->value($this->translate_to_C($value));
+}
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/String.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/String.pm
new file mode 100644
index 0000000..9b935b3
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/String.pm
@@ -0,0 +1,30 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Teletype::String;
+use strict;
+use base qw(Debconf::Element);
+
+
+sub show {
+	my $this=shift;
+
+	$this->frontend->display(
+		$this->question->extended_description."\n");
+
+	my $default='';
+	$default=$this->question->value if defined $this->question->value;
+
+	my $value=$this->frontend->prompt(
+		prompt => $this->question->description,
+		default => $default,
+		question => $this->question,
+	);
+	return unless defined $value;
+	
+	$this->frontend->display("\n");
+	$this->value($value);
+}
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Text.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Text.pm
new file mode 100644
index 0000000..e24e8c6
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Text.pm
@@ -0,0 +1,19 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Teletype::Text;
+use strict;
+use base qw(Debconf::Element);
+
+
+sub show {
+	my $this=shift;
+
+	$this->frontend->display($this->question->description."\n\n".
+		$this->question->extended_description."\n");
+
+	$this->value('');
+}
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Boolean.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Boolean.pm
new file mode 100644
index 0000000..37748e6
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Boolean.pm
@@ -0,0 +1,36 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Web::Boolean;
+use strict;
+use base qw(Debconf::Element);
+
+
+sub show {
+	my $this=shift;
+
+	$_=$this->question->extended_description;
+	s/\n/\n<br>\n/g;
+	$_.="\n<p>\n";
+
+	my $default='';
+	$default=$this->question->value if defined $this->question->value;
+	my $id=$this->id;
+	$_.="<input type=checkbox name=\"$id\"". ($default eq 'true' ? ' checked' : ''). ">\n<b>".
+		$this->question->description."</b>";
+
+	return $_;
+}
+
+
+sub value {
+	my $this=shift;
+
+	return $this->SUPER::value() unless @_;
+	my $value=shift;
+	$this->SUPER::value($value eq 'on' ? 'true' : 'false');
+}
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Error.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Error.pm
new file mode 100644
index 0000000..cad58e3
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Error.pm
@@ -0,0 +1,10 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Web::Error;
+use strict;
+use base qw(Debconf::Element::Web::Text);
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Multiselect.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Multiselect.pm
new file mode 100644
index 0000000..18bad0d
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Multiselect.pm
@@ -0,0 +1,51 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Web::Multiselect;
+use strict;
+use base qw(Debconf::Element::Multiselect);
+
+
+sub show {
+	my $this=shift;
+
+	$_=$this->question->extended_description;
+	s/\n/\n<br>\n/g;
+	$_.="\n<p>\n";
+
+	my %value = map { $_ => 1 } $this->translate_default;
+
+	my $id=$this->id;
+	$_.="<b>".$this->question->description."</b>\n<select multiple name=\"$id\">\n";
+	my $c=0;
+	foreach my $x ($this->question->choices_split) {
+		if (! $value{$x}) {
+			$_.="<option value=".$c++.">$x\n";
+		}
+		else {
+			$_.="<option value=".$c++." selected>$x\n";
+		}
+	}
+	$_.="</select>\n";
+	
+	return $_;
+}
+
+
+sub value {
+	my $this=shift;
+
+	return $this->SUPER::value() unless @_;
+
+	my @values=@_;
+
+	$this->question->template->i18n('');
+	my @choices=$this->question->choices_split;
+	$this->question->template->i18n(1);
+	
+	$this->SUPER::value(join(', ',  $this->order_values(map { $choices[$_] } @values)));
+}
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Note.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Note.pm
new file mode 100644
index 0000000..d7fd359
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Note.pm
@@ -0,0 +1,10 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Web::Note;
+use strict;
+use base qw(Debconf::Element::Web::Text);
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Password.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Password.pm
new file mode 100644
index 0000000..0242e5e
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Password.pm
@@ -0,0 +1,26 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Web::Password;
+use strict;
+use base qw(Debconf::Element);
+
+
+sub show {
+	my $this=shift;
+
+	$_=$this->question->extended_description;
+	s/\n/\n<br>\n/g;
+	$_.="\n<p>\n";
+
+	my $default='';
+	$default=$this->question->value if defined $this->question->value;
+	my $id=$this->id;
+	$_.="<b>".$this->question->description."</b><input type=password name=\"$id\" value=\"$default\">\n";
+
+	return $_;
+}
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Progress.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Progress.pm
new file mode 100644
index 0000000..d186fe8
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Progress.pm
@@ -0,0 +1,24 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Web::Progress;
+use strict;
+use base qw(Debconf::Element);
+
+
+sub start {
+}
+
+sub set {
+	return 1;
+}
+
+sub info {
+	return 1;
+}
+
+sub stop {
+}
+
+1;
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Select.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Select.pm
new file mode 100644
index 0000000..1a3b456
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Select.pm
@@ -0,0 +1,48 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Web::Select;
+use strict;
+use base qw(Debconf::Element::Select);
+
+
+sub show {
+	my $this=shift;
+
+	$_=$this->question->extended_description;
+	s/\n/\n<br>\n/g;
+	$_.="\n<p>\n";
+
+	my $default=$this->translate_default;
+	my $id=$this->id;
+	$_.="<b>".$this->question->description."</b>\n<select name=\"$id\">\n";
+	my $c=0;
+	foreach my $x ($this->question->choices_split) {
+		if ($x ne $default) {
+			$_.="<option value=".$c++.">$x\n";
+		}
+		else {
+			$_.="<option value=".$c++." selected>$x\n";
+		}
+	}
+	$_.="</select>\n";
+	
+	return $_;
+}
+
+
+sub value {
+	my $this=shift;
+
+	return $this->SUPER::value() unless @_;
+	my $value=shift;
+
+	$this->question->template->i18n('');
+	my @choices=$this->question->choices_split;
+	$this->question->template->i18n(1);
+	$this->SUPER::value($choices[$value]);
+}
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/String.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/String.pm
new file mode 100644
index 0000000..3fefbf2
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/String.pm
@@ -0,0 +1,26 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Web::String;
+use strict;
+use base qw(Debconf::Element);
+
+
+sub show {
+	my $this=shift;
+
+	$_=$this->question->extended_description;
+	s/\n/\n<br>\n/g;
+	$_.="\n<p>\n";
+
+	my $default='';
+	$default=$this->question->value if defined $this->question->value;
+	my $id=$this->id;
+	$_.="<b>".$this->question->description."</b><input name=\"$id\" value=\"$default\">\n";
+
+	return $_;
+}
+
+
+1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Text.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Text.pm
new file mode 100644
index 0000000..fad43f0
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Text.pm
@@ -0,0 +1,21 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::Element::Web::Text;
+use strict;
+use base qw(Debconf::Element);
+
+
+sub show {
+	my $this=shift;
+
+	$_=$this->question->extended_description;
+	s/\n/\n<br>\n/g;
+	$_.="\n<p>\n";
+
+	return "<b>".$this->question->description."</b>$_<p>";
+}
+
+
+1