From ed006a8eb44831189e152826c692330d0a0cfe3b Mon Sep 17 00:00:00 2001
From: Manuel Traut <manut@mecka.net>
Date: Mon, 18 Jul 2011 14:00:12 +0200
Subject: delete beagle-dir

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 deletions(-)
 delete mode 100644 beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Boolean.pm
 delete mode 100644 beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Error.pm
 delete mode 100644 beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Multiselect.pm
 delete mode 100644 beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Note.pm
 delete mode 100644 beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Password.pm
 delete mode 100644 beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Progress.pm
 delete mode 100644 beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/Select.pm
 delete mode 100644 beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web/String.pm
 delete 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
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
-- 
cgit v1.2.3