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>

68 files changed, 0 insertions, 2720 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
deleted file mode 100644
index 3976414..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Boolean.pm
+++ /dev/null
@@ -1,32 +0,0 @@
-#!/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
deleted file mode 100644
index c0a25b4..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Error.pm
+++ /dev/null
@@ -1,20 +0,0 @@
-#!/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
deleted file mode 100644
index e62f3d4..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Multiselect.pm
+++ /dev/null
@@ -1,69 +0,0 @@
-#!/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
deleted file mode 100644
index 4cab4cf..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Note.pm
+++ /dev/null
@@ -1,20 +0,0 @@
-#!/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
deleted file mode 100644
index e32f863..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Password.pm
+++ /dev/null
@@ -1,32 +0,0 @@
-#!/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
deleted file mode 100644
index 53f6270..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Progress.pm
+++ /dev/null
@@ -1,87 +0,0 @@
-#!/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
deleted file mode 100644
index 09a45d4..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Select.pm
+++ /dev/null
@@ -1,57 +0,0 @@
-#!/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
deleted file mode 100644
index 6978724..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/String.pm
+++ /dev/null
@@ -1,36 +0,0 @@
-#!/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
deleted file mode 100644
index 9169b85..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Text.pm
+++ /dev/null
@@ -1,20 +0,0 @@
-#!/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
deleted file mode 100644
index d16124c..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Boolean.pm
+++ /dev/null
@@ -1,50 +0,0 @@
-#!/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
deleted file mode 100644
index 5733c98..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Error.pm
+++ /dev/null
@@ -1,9 +0,0 @@
-#!/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
deleted file mode 100644
index 7cadbe8..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Multiselect.pm
+++ /dev/null
@@ -1,39 +0,0 @@
-#!/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
deleted file mode 100644
index fd5006a..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Note.pm
+++ /dev/null
@@ -1,9 +0,0 @@
-#!/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
deleted file mode 100644
index f1dce00..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Password.pm
+++ /dev/null
@@ -1,10 +0,0 @@
-#!/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
deleted file mode 100644
index c538abb..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Progress.pm
+++ /dev/null
@@ -1,25 +0,0 @@
-#!/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
deleted file mode 100644
index f73d126..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Select.pm
+++ /dev/null
@@ -1,41 +0,0 @@
-#!/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
deleted file mode 100644
index 4b9676d..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/String.pm
+++ /dev/null
@@ -1,22 +0,0 @@
-#!/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
deleted file mode 100644
index 172031c..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Editor/Text.pm
+++ /dev/null
@@ -1,19 +0,0 @@
-#!/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
deleted file mode 100644
index 655c8bd..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome.pm
+++ /dev/null
@@ -1,145 +0,0 @@
-#!/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
deleted file mode 100644
index 1ee52af..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Boolean.pm
+++ /dev/null
@@ -1,40 +0,0 @@
-#!/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
deleted file mode 100644
index 6394a75..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Error.pm
+++ /dev/null
@@ -1,51 +0,0 @@
-#!/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
deleted file mode 100644
index 34a1f4d..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Multiselect.pm
+++ /dev/null
@@ -1,94 +0,0 @@
-#!/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
deleted file mode 100644
index 68ac016..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Note.pm
+++ /dev/null
@@ -1,48 +0,0 @@
-#!/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
deleted file mode 100644
index 5ea5c80..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Password.pm
+++ /dev/null
@@ -1,37 +0,0 @@
-#!/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
deleted file mode 100644
index e1663fa..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Progress.pm
+++ /dev/null
@@ -1,63 +0,0 @@
-#!/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
deleted file mode 100644
index 8e63f86..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Select.pm
+++ /dev/null
@@ -1,52 +0,0 @@
-#!/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
deleted file mode 100644
index 0bb922d..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/String.pm
+++ /dev/null
@@ -1,40 +0,0 @@
-#!/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
deleted file mode 100644
index 9d6518f..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Gnome/Text.pm
+++ /dev/null
@@ -1,21 +0,0 @@
-#!/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
deleted file mode 100644
index 0b74574..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde.pm
+++ /dev/null
@@ -1,141 +0,0 @@
-#!/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
deleted file mode 100644
index 1d5d9be..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Boolean.pm
+++ /dev/null
@@ -1,41 +0,0 @@
-#!/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
deleted file mode 100644
index 8e7ae99..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Error.pm
+++ /dev/null
@@ -1,23 +0,0 @@
-#!/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
deleted file mode 100644
index dcbdb79..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Multiselect.pm
+++ /dev/null
@@ -1,58 +0,0 @@
-#!/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
deleted file mode 100644
index 405ac16..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Note.pm
+++ /dev/null
@@ -1,23 +0,0 @@
-#!/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
deleted file mode 100644
index 95cf6c1..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Password.pm
+++ /dev/null
@@ -1,36 +0,0 @@
-#!/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
deleted file mode 100644
index ff013a7..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Progress.pm
+++ /dev/null
@@ -1,60 +0,0 @@
-#!/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
deleted file mode 100644
index 2cb341b..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Select.pm
+++ /dev/null
@@ -1,49 +0,0 @@
-#!/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
deleted file mode 100644
index 65e16f7..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/String.pm
+++ /dev/null
@@ -1,35 +0,0 @@
-#!/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
deleted file mode 100644
index 394319f..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Kde/Text.pm
+++ /dev/null
@@ -1,21 +0,0 @@
-#!/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
deleted file mode 100644
index 1d1b26e..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Multiselect.pm
+++ /dev/null
@@ -1,47 +0,0 @@
-#!/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
deleted file mode 100644
index b2e5cee..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive.pm
+++ /dev/null
@@ -1,26 +0,0 @@
-#!/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
deleted file mode 100644
index b57d144..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Boolean.pm
+++ /dev/null
@@ -1,10 +0,0 @@
-#!/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
deleted file mode 100644
index 59701db..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Error.pm
+++ /dev/null
@@ -1,63 +0,0 @@
-#!/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
deleted file mode 100644
index a30c804..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Multiselect.pm
+++ /dev/null
@@ -1,10 +0,0 @@
-#!/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
deleted file mode 100644
index 6567819..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Note.pm
+++ /dev/null
@@ -1,10 +0,0 @@
-#!/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
deleted file mode 100644
index da6dcce..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Password.pm
+++ /dev/null
@@ -1,10 +0,0 @@
-#!/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
deleted file mode 100644
index 3c14c47..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Progress.pm
+++ /dev/null
@@ -1,24 +0,0 @@
-#!/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
deleted file mode 100644
index 5b74aec..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Select.pm
+++ /dev/null
@@ -1,35 +0,0 @@
-#!/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
deleted file mode 100644
index adbc516..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/String.pm
+++ /dev/null
@@ -1,10 +0,0 @@
-#!/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
deleted file mode 100644
index be14ae8..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Text.pm
+++ /dev/null
@@ -1,16 +0,0 @@
-#!/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
deleted file mode 100644
index 4082518..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Select.pm
+++ /dev/null
@@ -1,78 +0,0 @@
-#!/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
deleted file mode 100644
index 584ebca..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Boolean.pm
+++ /dev/null
@@ -1,67 +0,0 @@
-#!/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
deleted file mode 100644
index 3f0543f..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Error.pm
+++ /dev/null
@@ -1,10 +0,0 @@
-#!/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
deleted file mode 100644
index 8bc89a3..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Multiselect.pm
+++ /dev/null
@@ -1,78 +0,0 @@
-#!/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
deleted file mode 100644
index 086f6d2..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Note.pm
+++ /dev/null
@@ -1,26 +0,0 @@
-#!/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
deleted file mode 100644
index 3d07d59..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Password.pm
+++ /dev/null
@@ -1,34 +0,0 @@
-#!/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
deleted file mode 100644
index 35985dd..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Progress.pm
+++ /dev/null
@@ -1,46 +0,0 @@
-#!/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
deleted file mode 100644
index e5a02a3..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Select.pm
+++ /dev/null
@@ -1,144 +0,0 @@
-#!/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
deleted file mode 100644
index 9b935b3..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/String.pm
+++ /dev/null
@@ -1,30 +0,0 @@
-#!/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
deleted file mode 100644
index e24e8c6..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Teletype/Text.pm
+++ /dev/null
@@ -1,19 +0,0 @@
-#!/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
deleted file mode 100644
index 37748e6..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Boolean.pm
+++ /dev/null
@@ -1,36 +0,0 @@
-#!/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
deleted file mode 100644
index cad58e3..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Error.pm
+++ /dev/null
@@ -1,10 +0,0 @@
-#!/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
deleted file mode 100644
index 18bad0d..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Multiselect.pm
+++ /dev/null
@@ -1,51 +0,0 @@
-#!/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
deleted file mode 100644
index d7fd359..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Note.pm
+++ /dev/null
@@ -1,10 +0,0 @@
-#!/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
deleted file mode 100644
index 0242e5e..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Password.pm
+++ /dev/null
@@ -1,26 +0,0 @@
-#!/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
deleted file mode 100644
index d186fe8..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Progress.pm
+++ /dev/null
@@ -1,24 +0,0 @@
-#!/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
deleted file mode 100644
index 1a3b456..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Select.pm
+++ /dev/null
@@ -1,48 +0,0 @@
-#!/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
deleted file mode 100644
index 3fefbf2..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/String.pm
+++ /dev/null
@@ -1,26 +0,0 @@
-#!/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
deleted file mode 100644
index fad43f0..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Text.pm
+++ /dev/null
@@ -1,21 +0,0 @@
-#!/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