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, 172 insertions, 0 deletions
diff --git a/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd.pm b/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd.pm new file mode 100644 index 0000000..46c69a0 --- /dev/null +++ b/beagle/debian-rfs/usr/share/perl5/Debconf/FrontEnd.pm @@ -0,0 +1,172 @@ +#!/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 |