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