diff options
| author | Manuel Traut <manut@mecka.net> | 2013-03-10 12:13:49 +0100 |
|---|---|---|
| committer | Manuel Traut <manut@mecka.net> | 2013-03-10 12:13:49 +0100 |
| commit | 9c0f862749f30800837a45aff5abdcb529867dbc (patch) | |
| tree | b0ca51fff64f12fac03aea4afaa1fa722376844b /beagle/debian-rfs/usr/share/perl5/Debconf/Element/Noninteractive | |
| parent | 33b79c725448efd2c9a72e2ae9a1fb04270492f5 (diff) | |
| parent | cea5039322781f6085dd47954af5584ca3f78911 (diff) | |
Merge branch 'schulung'
updates from current linutronix schulung.git
Conflicts:
Makefile
configpres.tex
flash-memory/ubi/handout_ubi_de.tex
handout.tex
index.txt
pres_master.tex
vorl.tex
vorl1.tex
vorl2.tex
vorl3.tex
vorl4.tex
vorl5.tex
Signed-off-by: Manuel Traut <manut@mecka.net>
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 |
