Server IP : 85.214.239.14 / Your IP : 3.15.18.73 Web Server : Apache/2.4.62 (Debian) System : Linux h2886529.stratoserver.net 4.9.0 #1 SMP Tue Jan 9 19:45:01 MSK 2024 x86_64 User : www-data ( 33) PHP Version : 7.4.18 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, MySQL : OFF | cURL : OFF | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : OFF Directory : /proc/3/root/usr/share/perl5/Debconf/ |
Upload File : |
#!/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