From 5238ad5a0c4a9e1c8cd036f5de4055e39bd71297 Mon Sep 17 00:00:00 2001
From: Manuel Traut <manut@mecka.net>
Date: Fri, 29 Apr 2011 09:09:27 +0200
Subject: added debootstrap stuff

Signed-off-by: Manuel Traut <manut@mecka.net>
---
 .../usr/share/perl5/Debconf/Element/Web/Boolean.pm | 36 +++++++++++++++
 .../usr/share/perl5/Debconf/Element/Web/Error.pm   | 10 +++++
 .../share/perl5/Debconf/Element/Web/Multiselect.pm | 51 ++++++++++++++++++++++
 .../usr/share/perl5/Debconf/Element/Web/Note.pm    | 10 +++++
 .../share/perl5/Debconf/Element/Web/Password.pm    | 26 +++++++++++
 .../share/perl5/Debconf/Element/Web/Progress.pm    | 24 ++++++++++
 .../usr/share/perl5/Debconf/Element/Web/Select.pm  | 48 ++++++++++++++++++++
 .../usr/share/perl5/Debconf/Element/Web/String.pm  | 26 +++++++++++
 .../usr/share/perl5/Debconf/Element/Web/Text.pm    | 21 +++++++++
 9 files changed, 252 insertions(+)
 create mode 100644 beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Boolean.pm
 create mode 100644 beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Error.pm
 create mode 100644 beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Multiselect.pm
 create mode 100644 beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Note.pm
 create mode 100644 beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Password.pm
 create mode 100644 beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Progress.pm
 create mode 100644 beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Select.pm
 create mode 100644 beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/String.pm
 create mode 100644 beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Text.pm

(limited to 'beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web')

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
-- 
cgit v1.2.3