diff options
Diffstat (limited to 'beagle/debian-rfs/usr/share/perl5/Debconf/Element/Web')
9 files changed, 0 insertions, 252 deletions
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 |