diff options
Diffstat (limited to 'beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive')
9 files changed, 0 insertions, 188 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 deleted file mode 100644 index b57d144..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Boolean.pm +++ /dev/null @@ -1,10 +0,0 @@ -#!/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 deleted file mode 100644 index 59701db..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Error.pm +++ /dev/null @@ -1,63 +0,0 @@ -#!/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 deleted file mode 100644 index a30c804..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Multiselect.pm +++ /dev/null @@ -1,10 +0,0 @@ -#!/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 deleted file mode 100644 index 6567819..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Note.pm +++ /dev/null @@ -1,10 +0,0 @@ -#!/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 deleted file mode 100644 index da6dcce..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Password.pm +++ /dev/null @@ -1,10 +0,0 @@ -#!/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 deleted file mode 100644 index 3c14c47..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Progress.pm +++ /dev/null @@ -1,24 +0,0 @@ -#!/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 deleted file mode 100644 index 5b74aec..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Select.pm +++ /dev/null @@ -1,35 +0,0 @@ -#!/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 deleted file mode 100644 index adbc516..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/String.pm +++ /dev/null @@ -1,10 +0,0 @@ -#!/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 deleted file mode 100644 index be14ae8..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive/Text.pm +++ /dev/null @@ -1,16 +0,0 @@ -#!/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 |