summaryrefslogtreecommitdiff
path: root/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog
diff options
context:
space:
mode:
authorManuel Traut <manut@mecka.net>2013-03-10 12:13:49 +0100
committerManuel Traut <manut@mecka.net>2013-03-10 12:13:49 +0100
commit9c0f862749f30800837a45aff5abdcb529867dbc (patch)
treeb0ca51fff64f12fac03aea4afaa1fa722376844b /beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog
parent33b79c725448efd2c9a72e2ae9a1fb04270492f5 (diff)
parentcea5039322781f6085dd47954af5584ca3f78911 (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/Dialog')
-rw-r--r--beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Boolean.pm32
-rw-r--r--beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Error.pm20
-rw-r--r--beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Multiselect.pm69
-rw-r--r--beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Note.pm20
-rw-r--r--beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Password.pm32
-rw-r--r--beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Progress.pm87
-rw-r--r--beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Select.pm57
-rw-r--r--beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/String.pm36
-rw-r--r--beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Text.pm20
9 files changed, 0 insertions, 373 deletions
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Boolean.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Boolean.pm
deleted file mode 100644
index 3976414..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Boolean.pm
+++ /dev/null
@@ -1,32 +0,0 @@
-#!/usr/bin/perl -w
-# This file was preprocessed, do not edit!
-
-
-package Debconf::Element::Dialog::Boolean;
-use strict;
-use base qw(Debconf::Element);
-
-
-sub show {
- my $this=shift;
-
- my @params=('--yesno');
- push @params, $this->frontend->dashsep if $this->frontend->dashsep;
- push @params, $this->frontend->makeprompt($this->question, 1);
- if (defined $this->question->value && $this->question->value eq 'false') {
- unshift @params, '--defaultno';
- }
-
- my ($ret, $value)=$this->frontend->showdialog($this->question, @params);
- if (defined $ret) {
- $this->value($ret eq 0 ? 'true' : 'false');
- }
- else {
- my $default='';
- $default=$this->question->value
- if defined $this->question->value;
- $this->value($default);
- }
-}
-
-1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Error.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Error.pm
deleted file mode 100644
index c0a25b4..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Error.pm
+++ /dev/null
@@ -1,20 +0,0 @@
-#!/usr/bin/perl -w
-# This file was preprocessed, do not edit!
-
-
-package Debconf::Element::Dialog::Error;
-use strict;
-use base qw(Debconf::Element);
-
-
-sub show {
- my $this=shift;
-
- $this->frontend->showtext($this->question,
- $this->question->description."\n\n".
- $this->question->extended_description
- );
- $this->value('');
-}
-
-1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Multiselect.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Multiselect.pm
deleted file mode 100644
index e62f3d4..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Multiselect.pm
+++ /dev/null
@@ -1,69 +0,0 @@
-#!/usr/bin/perl -w
-# This file was preprocessed, do not edit!
-
-
-package Debconf::Element::Dialog::Multiselect;
-use strict;
-use base qw(Debconf::Element::Multiselect);
-use Debconf::Encoding qw(width);
-
-
-sub show {
- my $this=shift;
-
- my ($text, $lines, $columns)=
- $this->frontend->makeprompt($this->question, -2);
-
- my $screen_lines=$this->frontend->screenheight - $this->frontend->spacer;
- my @params=();
- my @choices=$this->question->choices_split;
- my %value = map { $_ => 1 } $this->translate_default;
-
- my $menu_height=$#choices + 1;
- if ($lines + $#choices + 2 >= $screen_lines) {
- $menu_height = $screen_lines - $lines - 4;
- if ($menu_height < 3 && $#choices + 1 > 2) {
- $this->frontend->showtext($this->question, $this->question->extended_description);
- ($text, $lines, $columns)=$this->frontend->sizetext($this->question->description);
- $menu_height=$#choices + 1;
- if ($lines + $#choices + 2 >= $screen_lines) {
- $menu_height = $screen_lines - $lines - 4;
- }
- }
- }
-
- $lines=$lines + $menu_height + $this->frontend->spacer;
- my $selectspacer = $this->frontend->selectspacer;
- my $c=1;
- foreach (@choices) {
- push @params, ($_, "");
- push @params, ($value{$_} ? 'on' : 'off');
-
- if ($columns < width($_) + $selectspacer) {
- $columns = width($_) + $selectspacer;
- }
- }
-
- if ($this->frontend->dashsep) {
- unshift @params, $this->frontend->dashsep;
- }
-
- @params=('--separate-output', '--checklist',
- $text, $lines, $columns, $menu_height, @params);
-
- my $value=$this->frontend->showdialog($this->question, @params);
-
- if (defined $value) {
- $this->value(join(", ", $this->order_values(
- map { $this->translate_to_C($_) }
- split(/\n/, $value))));
- }
- else {
- my $default='';
- $default=$this->question->value
- if defined $this->question->value;
- $this->value($default);
- }
-}
-
-1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Note.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Note.pm
deleted file mode 100644
index 4cab4cf..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Note.pm
+++ /dev/null
@@ -1,20 +0,0 @@
-#!/usr/bin/perl -w
-# This file was preprocessed, do not edit!
-
-
-package Debconf::Element::Dialog::Note;
-use strict;
-use base qw(Debconf::Element);
-
-
-sub show {
- my $this=shift;
-
- $this->frontend->showtext($this->question,
- $this->question->description."\n\n".
- $this->question->extended_description
- );
- $this->value('');
-}
-
-1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Password.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Password.pm
deleted file mode 100644
index e32f863..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Password.pm
+++ /dev/null
@@ -1,32 +0,0 @@
-#!/usr/bin/perl -w
-# This file was preprocessed, do not edit!
-
-
-package Debconf::Element::Dialog::Password;
-use strict;
-use base qw(Debconf::Element);
-
-
-sub show {
- my $this=shift;
-
- my ($text, $lines, $columns)=
- $this->frontend->makeprompt($this->question);
-
- my @params=('--passwordbox');
- push @params, $this->frontend->dashsep if $this->frontend->dashsep;
- push @params, ($text, $lines + $this->frontend->spacer, $columns);
- my $ret=$this->frontend->showdialog($this->question, @params);
-
- if (! defined $ret || $ret eq '') {
- my $default='';
- $default=$this->question->value
- if defined $this->question->value;
- $this->value($default);
- }
- else {
- $this->value($ret);
- }
-}
-
-1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Progress.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Progress.pm
deleted file mode 100644
index 53f6270..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Progress.pm
+++ /dev/null
@@ -1,87 +0,0 @@
-#!/usr/bin/perl -w
-# This file was preprocessed, do not edit!
-
-
-package Debconf::Element::Dialog::Progress;
-use strict;
-use base qw(Debconf::Element);
-
-
-sub _communicate {
- my $this=shift;
- my $data=shift;
- my $dialoginput = $this->frontend->dialog_input_wtr;
-
- print $dialoginput $data;
-}
-
-sub _percent {
- my $this=shift;
-
- use integer;
- return (($this->progress_cur() - $this->progress_min()) * 100 / ($this->progress_max() - $this->progress_min()));
-}
-
-sub start {
- my $this=shift;
-
- $this->frontend->title($this->question->description);
-
- my ($text, $lines, $columns);
- if (defined $this->_info) {
- ($text, $lines, $columns)=$this->frontend->sizetext($this->_info->description);
- } else {
- ($text, $lines, $columns)=$this->frontend->sizetext(' ');
- }
- if ($this->frontend->screenwidth - $this->frontend->columnspacer > $columns) {
- $columns = $this->frontend->screenwidth - $this->frontend->columnspacer;
- }
-
- my @params=('--gauge');
- push @params, $this->frontend->dashsep if $this->frontend->dashsep;
- push @params, ($text, $lines + $this->frontend->spacer, $columns, $this->_percent);
-
- $this->frontend->startdialog($this->question, 1, @params);
-
- $this->_lines($lines);
- $this->_columns($columns);
-}
-
-sub set {
- my $this=shift;
- my $value=shift;
-
- $this->progress_cur($value);
- $this->_communicate($this->_percent . "\n");
-
- return 1;
-}
-
-sub info {
- my $this=shift;
- my $question=shift;
-
- $this->_info($question);
-
- my ($text, $lines, $columns)=$this->frontend->sizetext($question->description);
- if ($lines > $this->_lines or $columns > $this->_columns) {
- $this->stop;
- $this->start;
- }
-
-
- $this->_communicate(
- sprintf("XXX\n%d\n%s\nXXX\n%d\n",
- $this->_percent, $text, $this->_percent));
-
- return 1;
-}
-
-sub stop {
- my $this=shift;
-
- $this->frontend->waitdialog;
- $this->frontend->title($this->frontend->requested_title);
-}
-
-1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Select.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Select.pm
deleted file mode 100644
index 09a45d4..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Select.pm
+++ /dev/null
@@ -1,57 +0,0 @@
-#!/usr/bin/perl -w
-# This file was preprocessed, do not edit!
-
-
-package Debconf::Element::Dialog::Select;
-use strict;
-use base qw(Debconf::Element::Select);
-use Debconf::Encoding qw(width);
-
-
-sub show {
- my $this=shift;
-
- my ($text, $lines, $columns)=
- $this->frontend->makeprompt($this->question, -2);
-
- my $screen_lines=$this->frontend->screenheight - $this->frontend->spacer;
- my $default=$this->translate_default;
- my @params=();
- my @choices=$this->question->choices_split;
-
- my $menu_height=$#choices + 1;
- if ($lines + $#choices + 2 >= $screen_lines) {
- $menu_height = $screen_lines - $lines - 4;
- }
-
- $lines=$lines + $menu_height + $this->frontend->spacer;
- my $c=1;
- my $selectspacer = $this->frontend->selectspacer;
- foreach (@choices) {
- push @params, $_, '';
-
- if ($columns < width($_) + $selectspacer) {
- $columns = width($_) + $selectspacer;
- }
- }
-
- if ($this->frontend->dashsep) {
- unshift @params, $this->frontend->dashsep;
- }
-
- @params=('--default-item', $default, '--menu',
- $text, $lines, $columns, $menu_height, @params);
-
- my $value=$this->frontend->showdialog($this->question, @params);
- if (defined $value) {
- $this->value($this->translate_to_C($value)) if defined $value;
- }
- else {
- my $default='';
- $default=$this->question->value
- if defined $this->question->value;
- $this->value($default);
- }
-}
-
-1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/String.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/String.pm
deleted file mode 100644
index 6978724..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/String.pm
+++ /dev/null
@@ -1,36 +0,0 @@
-#!/usr/bin/perl -w
-# This file was preprocessed, do not edit!
-
-
-package Debconf::Element::Dialog::String;
-use strict;
-use base qw(Debconf::Element);
-
-
-sub show {
- my $this=shift;
-
- my ($text, $lines, $columns)=
- $this->frontend->makeprompt($this->question);
-
- my $default='';
- $default=$this->question->value if defined $this->question->value;
-
- my @params=('--inputbox');
- push @params, $this->frontend->dashsep if $this->frontend->dashsep;
- push @params, ($text, $lines + $this->frontend->spacer,
- $columns, $default);
-
- my $value=$this->frontend->showdialog($this->question, @params);
- if (defined $value) {
- $this->value($value);
- }
- else {
- my $default='';
- $default=$this->question->value
- if defined $this->question->value;
- $this->value($default);
- }
-}
-
-1
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Text.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Text.pm
deleted file mode 100644
index 9169b85..0000000
--- a/beagle/debian-rfs/usr/share/perl5/Debconf/Element/Dialog/Text.pm
+++ /dev/null
@@ -1,20 +0,0 @@
-#!/usr/bin/perl -w
-# This file was preprocessed, do not edit!
-
-
-package Debconf::Element::Dialog::Text;
-use strict;
-use base qw(Debconf::Element);
-
-
-sub show {
- my $this=shift;
-
- $this->frontend->showtext($this->question,
- $this->question->description."\n\n".
- $this->question->extended_description
- );
- $this->value('');
-}
-
-1