diff options
Diffstat (limited to 'beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive')
9 files changed, 188 insertions, 0 deletions
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Boolean.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Boolean.pm new file mode 100644 index 0000000..b57d144 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Boolean.pm @@ -0,0 +1,10 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Noninteractive::Boolean; +use strict; +use base qw(Debconf::Element::Noninteractive); + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Error.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Error.pm new file mode 100644 index 0000000..59701db --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Error.pm @@ -0,0 +1,63 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Noninteractive::Error; +use strict; +use Text::Wrap; +use Debconf::Gettext; +use Debconf::Config; +use Debconf::Log ':all'; +use base qw(Debconf::Element::Noninteractive); + + + +sub show { + my $this=shift; + + if ($this->question->flag('seen') ne 'true') { + $this->sendmail(gettext("Debconf was not configured to display this error message, so it mailed it to you.")); + } + $this->value(''); +} + + +sub sendmail { + my $this=shift; + my $footer=shift; + return unless length Debconf::Config->admin_email; + if (-x '/usr/bin/mail') { + debug user => "mailing a note"; + my $title=gettext("Debconf").": ". + $this->frontend->title." -- ". + $this->question->description; + unless (open(MAIL, "|-")) { # child + exec("mail", "-s", $title, Debconf::Config->admin_email) or return ''; + } + my $old_columns=$Text::Wrap::columns; + $Text::Wrap::columns=75; + if ($this->question->extended_description ne '') { + print MAIL wrap('', '', $this->question->extended_description); + } + else { + print MAIL wrap('', '', $this->question->description); + } + print MAIL "\n\n"; + my $hostname=`hostname -f 2>/dev/null`; + if (! defined $hostname) { + $hostname="unknown system"; + } + print MAIL "-- \n", sprintf(gettext("Debconf, running at %s"), $hostname, "\n"); + print MAIL "[ ", wrap('', '', $footer), " ]\n" if $footer; + close MAIL or return ''; + + $Text::Wrap::columns=$old_columns; + + $this->question->flag('seen', 'true'); + + return 1; + } +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Multiselect.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Multiselect.pm new file mode 100644 index 0000000..a30c804 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Multiselect.pm @@ -0,0 +1,10 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Noninteractive::Multiselect; +use strict; +use base qw(Debconf::Element::Noninteractive); + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Note.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Note.pm new file mode 100644 index 0000000..6567819 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Note.pm @@ -0,0 +1,10 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Noninteractive::Note; +use strict; +use base qw(Debconf::Element::Noninteractive); + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Password.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Password.pm new file mode 100644 index 0000000..da6dcce --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Password.pm @@ -0,0 +1,10 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Noninteractive::Password; +use strict; +use base qw(Debconf::Element::Noninteractive); + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Progress.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Progress.pm new file mode 100644 index 0000000..3c14c47 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Progress.pm @@ -0,0 +1,24 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Noninteractive::Progress; +use strict; +use base qw(Debconf::Element::Noninteractive); + + +sub start { +} + +sub set { + return 1; +} + +sub info { + return 1; +} + +sub stop { +} + +1; diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Select.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Select.pm new file mode 100644 index 0000000..5b74aec --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Select.pm @@ -0,0 +1,35 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Noninteractive::Select; +use strict; +use base qw(Debconf::Element::Noninteractive); + + +sub show { + my $this=shift; + + $this->question->template->i18n(''); + my @choices=$this->question->choices_split; + $this->question->template->i18n(1); + my $value=$this->question->value; + $value='' unless defined $value; + my $inlist=0; + map { $inlist=1 if $_ eq $value } @choices; + + if (! $inlist) { + if (@choices) { + $this->value($choices[0]); + } + else { + $this->value(''); + } + } + else { + $this->value($value); + } +} + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/String.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/String.pm new file mode 100644 index 0000000..adbc516 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/String.pm @@ -0,0 +1,10 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Noninteractive::String; +use strict; +use base qw(Debconf::Element::Noninteractive); + + +1 diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Text.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Text.pm new file mode 100644 index 0000000..be14ae8 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Text.pm @@ -0,0 +1,16 @@ +#!/usr/bin/perl -w +# This file was preprocessed, do not edit! + + +package Debconf::Element::Noninteractive::Text; +use strict; +use base qw(Debconf::Element::Noninteractive); + + +sub show { + my $this=shift; + + $this->value(''); +} + +1 |