OXIESEC PANEL

Name	Size	Modified	Perms
📁 ..	-	10/28/2024 06:50:33 AM	rwxr-xr-x
📄 AutoSelect.pm	1.85 KB	05/06/2019 04:30:30 PM	rw-r--r--
📄 Base.pm	499 bytes	05/06/2019 04:30:30 PM	rw-r--r--
📁 Client	-	10/21/2019 03:48:56 PM	rwxr-xr-x
📄 ConfModule.pm	15.27 KB	05/06/2019 04:30:30 PM	rw-r--r--
📄 Config.pm	6.86 KB	05/06/2019 04:30:30 PM	rw-r--r--
📄 Db.pm	1.17 KB	05/06/2019 04:30:30 PM	rw-r--r--
📁 DbDriver	-	10/21/2019 03:48:56 PM	rwxr-xr-x
📄 DbDriver.pm	2.3 KB	05/06/2019 04:30:30 PM	rw-r--r--
📁 Element	-	10/21/2019 03:48:56 PM	rwxr-xr-x
📄 Element.pm	196 bytes	05/06/2019 04:30:30 PM	rw-r--r--
📄 Encoding.pm	1.45 KB	05/06/2019 04:30:30 PM	rw-r--r--
📁 Format	-	10/21/2019 03:48:56 PM	rwxr-xr-x
📄 Format.pm	133 bytes	05/06/2019 04:30:30 PM	rw-r--r--
📁 FrontEnd	-	10/21/2019 03:48:56 PM	rwxr-xr-x
📄 FrontEnd.pm	2.8 KB	05/06/2019 04:30:30 PM	rw-r--r--
📄 Gettext.pm	301 bytes	05/06/2019 04:30:30 PM	rw-r--r--
📄 Iterator.pm	198 bytes	05/06/2019 04:30:30 PM	rw-r--r--
📄 Log.pm	914 bytes	05/06/2019 04:30:30 PM	rw-r--r--
📄 Path.pm	291 bytes	05/06/2019 04:30:30 PM	rw-r--r--
📄 Priority.pm	642 bytes	05/06/2019 04:30:30 PM	rw-r--r--
📄 Question.pm	5.73 KB	05/06/2019 04:30:30 PM	rw-r--r--
📁 Template	-	10/21/2019 03:48:56 PM	rwxr-xr-x
📄 Template.pm	8.01 KB	05/06/2019 04:30:30 PM	rw-r--r--
📄 TmpFile.pm	374 bytes	05/06/2019 04:30:30 PM	rw-r--r--

Editing: FrontEnd.pm

#!/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 {}