diff options
Diffstat (limited to 'beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd.pm')
| -rw-r--r-- | beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd.pm | 172 |
1 files changed, 0 insertions, 172 deletions
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd.pm deleted file mode 100644 index 46c69a0..0000000 --- a/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd.pm +++ /dev/null @@ -1,172 +0,0 @@ -#!/usr/bin/perl -w -# This file was preprocessed, do not edit! - - -package Debconf::FrontEnd; -use strict; -use Debconf::Gettext; -use Debconf::Priority; -use Debconf::Log ':all'; -use base qw(Debconf::Base); - - -sub init { - my $this=shift; - - $this->elements([]); - $this->interactive(''); - $this->capb(''); - $this->title(''); - $this->requested_title(''); - $this->info(undef); - $this->need_tty(1); -} - - -sub elementtype { - my $this=shift; - - my $ret; - if (ref $this) { - ($ret) = ref($this) =~ m/Debconf::FrontEnd::(.*)/; - } - else { - ($ret) = $this =~ m/Debconf::FrontEnd::(.*)/; - } - return $ret; -} - -my %nouse; - -sub _loadelementclass { - my $this=shift; - my $type=shift; - my $nodebug=shift; - - if (! UNIVERSAL::can("Debconf::Element::$type", 'new')) { - return if $nouse{$type}; - eval qq{use Debconf::Element::$type}; - if ($@ || ! UNIVERSAL::can("Debconf::Element::$type", 'new')) { - warn sprintf(gettext("Unable to load Debconf::Element::%s. Failed because: %s"), $type, $@) if ! $nodebug; - $nouse{$type}=1; - return; - } - } -} - - -sub makeelement { - my $this=shift; - my $question=shift; - my $nodebug=shift; - - my $type=$this->elementtype.'::'.ucfirst($question->type); - $type=~s/::$//; # in case the question has no type.. - - $this->_loadelementclass($type, $nodebug); - - my $element="Debconf::Element::$type"->new(question => $question); - return if ! ref $element; - return $element; -} - - -sub add { - my $this=shift; - my $element=shift; - - foreach (@{$this->elements}) { - return if $element->question == $_->question; - } - - $element->frontend($this); - push @{$this->elements}, $element; -} - - -sub go { - my $this=shift; - $this->backup(''); - foreach my $element (@{$this->elements}) { - $element->show; - return if $this->backup && $this->capb_backup; - } - return 1; -} - - -sub progress_start { - my $this=shift; - my $min=shift; - my $max=shift; - my $question=shift; - - my $type = $this->elementtype.'::Progress'; - $this->_loadelementclass($type); - - my $element="Debconf::Element::$type"->new(question => $question); - unless (ref $element) { - return; - } - $element->frontend($this); - $element->progress_min($min); - $element->progress_max($max); - $element->progress_cur($min); - - $element->start; - - $this->progress_bar($element); -} - - -sub progress_set { - my $this=shift; - my $value=shift; - - return $this->progress_bar->set($value); -} - - -sub progress_step { - my $this=shift; - my $inc=shift; - - return $this->progress_set($this->progress_bar->progress_cur + $inc); -} - - -sub progress_info { - my $this=shift; - my $question=shift; - - return $this->progress_bar->info($question); -} - - -sub progress_stop { - my $this=shift; - - $this->progress_bar->stop; - $this->progress_bar(undef); -} - - -sub clear { - my $this=shift; - - $this->elements([]); -} - - -sub default_title { - my $this=shift; - - $this->title(sprintf(gettext("Configuring %s"), shift)); - $this->requested_title($this->title); -} - - -sub shutdown {} - - -1 |