added debootstrap stuff

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

1 files changed, 164 insertions, 0 deletions

diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Readline.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Readline.pm
new file mode 100644
index 0000000..44ab74e
--- /dev/null
+++ b/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd/Readline.pm
@@ -0,0 +1,164 @@
+#!/usr/bin/perl -w
+# This file was preprocessed, do not edit!
+
+
+package Debconf::FrontEnd::Readline;
+use strict;
+use Term::ReadLine;
+use Debconf::Gettext;
+use base qw(Debconf::FrontEnd::Teletype);
+
+
+sub init {
+	my $this=shift;
+
+	$this->SUPER::init(@_);
+
+	open(TESTTY, "/dev/tty") || die gettext("This frontend requires a controlling tty.")."\n";
+	close TESTTY;
+
+	$Term::ReadLine::termcap_nowarn = 1; # Turn off stupid termcap warning.
+	$this->readline(Term::ReadLine->new('debconf'));
+	$this->readline->ornaments(1);
+
+	if (Term::ReadLine->ReadLine =~ /::Gnu$/) {
+		if (exists $ENV{TERM} && $ENV{TERM} =~ /emacs/i) {
+			die gettext("Term::ReadLine::GNU is incompatable with emacs shell buffers.")."\n";
+		}
+		
+		$this->readline->add_defun('previous-question',	
+			sub {
+				if ($this->capb_backup) {
+					$this->_skip(1);
+					$this->_direction(-1);
+					$this->readline->stuff_char(ord "\n");
+				}
+				else {
+					$this->readline->ding;
+				}
+			}, ord "\cu");
+		$this->readline->add_defun('next-question',
+			sub {
+				if ($this->capb_backup) {
+					$this->readline->stuff_char(ord "\n");
+				}
+			}, ord "\cv");
+		$this->readline->parse_and_bind('"\e[5~": previous-question');
+		$this->readline->parse_and_bind('"\e[6~": next-question');
+		$this->capb('backup');
+	}
+	
+	if (Term::ReadLine->ReadLine =~ /::Stub$/) {
+		$this->promptdefault(1);
+	}
+}
+
+
+sub elementtype {
+	return 'Teletype';
+}
+
+
+sub go {
+	my $this=shift;
+
+	foreach my $element (grep ! $_->visible, @{$this->elements}) {
+		my $value=$element->show;
+		return if $this->backup && $this->capb_backup;
+		$element->question->value($value);
+	}
+
+	my @elements=grep $_->visible, @{$this->elements};
+	unless (@elements) {
+		$this->_didbackup('');
+		return 1;
+	}
+
+	my $current=$this->_didbackup ? $#elements : 0;
+
+	$this->_direction(1);
+	for (; $current > -1 && $current < @elements; $current += $this->_direction) {
+		my $value=$elements[$current]->show;
+	}
+
+	if ($current < 0) {
+		$this->_didbackup(1);
+		return;
+	}
+	else {
+		$this->_didbackup('');
+		return 1;
+	}
+}
+
+
+sub prompt {
+	my $this=shift;
+	my %params=@_;
+	my $prompt=$params{prompt}." ";
+	my $default=$params{default};
+	my $noshowdefault=$params{noshowdefault};
+	my $completions=$params{completions};
+
+	if ($completions) {
+		my @matches;
+		$this->readline->Attribs->{completion_entry_function} = sub {
+			my $text=shift;
+			my $state=shift;
+			
+			if ($state == 0) {
+				@matches=();
+				foreach (@{$completions}) {
+					push @matches, $_ if /^\Q$text\E/i;
+				}
+			}
+
+			return pop @matches;
+		};
+	}
+	else {
+		$this->readline->Attribs->{completion_entry_function} = undef;
+	}
+
+	if (exists $params{completion_append_character}) {
+		$this->readline->Attribs->{completion_append_character}=$params{completion_append_character};
+	}
+	else {
+		$this->readline->Attribs->{completion_append_character}='';
+	}
+	
+	$this->linecount(0);
+	my $ret;
+	$this->_skip(0);
+	if (! $noshowdefault) {
+		$ret=$this->readline->readline($prompt, $default);
+	}
+	else {
+		$ret=$this->readline->readline($prompt);
+	}
+	$this->display_nowrap("\n");
+	return if $this->_skip;
+	$this->_direction(1);
+	$this->readline->addhistory($ret);
+	return $ret;
+}
+
+
+sub prompt_password {
+	my $this=shift;
+	my %params=@_;
+
+	if (Term::ReadLine->ReadLine =~ /::Perl$/) {
+		return $this->SUPER::prompt_password(%params);
+	}
+	
+	delete $params{default};
+	system('stty -echo 2>/dev/null');
+	my $ret=$this->prompt(@_, noshowdefault => 1, completions => []);
+	system('stty sane 2>/dev/null');
+	print "\n";
+	return $ret;
+}
+
+
+1