OXIESEC PANEL

Name	Size	Modified	Perms
📁 ..	-	02/18/2024 07:58:20 PM	rwxr-xr-x
📄 AutoSelect.pm	1.79 KB	05/08/2019 06:33:33 PM	rw-r--r--
📄 Base.pm	499 bytes	05/08/2019 06:33:33 PM	rw-r--r--
📁 Client	-	02/18/2024 07:58:21 PM	rwxr-xr-x
📄 ConfModule.pm	15.27 KB	05/08/2019 06:33:33 PM	rw-r--r--
📄 Config.pm	6.86 KB	05/08/2019 06:33:33 PM	rw-r--r--
📄 Db.pm	1.17 KB	05/08/2019 06:33:33 PM	rw-r--r--
📁 DbDriver	-	02/18/2024 07:58:21 PM	rwxr-xr-x
📄 DbDriver.pm	2.3 KB	05/08/2019 06:33:33 PM	rw-r--r--
📁 Element	-	02/18/2024 07:58:21 PM	rwxr-xr-x
📄 Element.pm	196 bytes	05/08/2019 06:33:33 PM	rw-r--r--
📄 Encoding.pm	1.45 KB	05/08/2019 06:33:33 PM	rw-r--r--
📁 Format	-	02/18/2024 07:58:21 PM	rwxr-xr-x
📄 Format.pm	133 bytes	05/08/2019 06:33:33 PM	rw-r--r--
📁 FrontEnd	-	02/18/2024 07:58:21 PM	rwxr-xr-x
📄 FrontEnd.pm	2.8 KB	05/08/2019 06:33:33 PM	rw-r--r--
📄 Gettext.pm	301 bytes	05/08/2019 06:33:33 PM	rw-r--r--
📄 Iterator.pm	198 bytes	05/08/2019 06:33:33 PM	rw-r--r--
📄 Log.pm	914 bytes	05/08/2019 06:33:33 PM	rw-r--r--
📄 Path.pm	291 bytes	05/08/2019 06:33:33 PM	rw-r--r--
📄 Priority.pm	642 bytes	05/08/2019 06:33:33 PM	rw-r--r--
📄 Question.pm	5.73 KB	05/08/2019 06:33:33 PM	rw-r--r--
📁 Template	-	02/18/2024 07:58:20 PM	rwxr-xr-x
📄 Template.pm	8.01 KB	05/08/2019 06:33:33 PM	rw-r--r--
📄 TmpFile.pm	410 bytes	05/08/2019 06:33:33 PM	rw-r--r--

Editing: DbDriver.pm

#!/usr/bin/perl -w
# This file was preprocessed, do not edit!

package Debconf::DbDriver;
use Debconf::Log qw{:all};
use strict;
use base 1.01; # ensure that they don't have a broken perl installation

use fields qw(name readonly required backup failed
              accept_type reject_type accept_name reject_name);

our %drivers;

sub new {
	my Debconf::DbDriver $this=shift;
	unless (ref $this) {
		$this = fields::new($this);
	}
	$this->{required}=1;
	$this->{readonly}=0;
	$this->{failed}=0;
	my %params=@_;
	foreach my $field (keys %params) {
		if ($field eq 'readonly' || $field eq 'required' || $field eq 'backup') {
			$this->{$field}=1,next if lc($params{$field}) eq "true";
			$this->{$field}=0,next if lc($params{$field}) eq "false";
		}
		elsif ($field=~/^(accept|reject)_/) {
			$this->{$field}=qr/$params{$field}/i;
		}
		$this->{$field}=$params{$field};
	}
	unless (exists $this->{name}) {
		$this->{name}="(unknown)";
		$this->error("no name specified");
	}
	$drivers{$this->{name}} = $this;
	$this->init;
	return $this;
}

sub init {}

sub error {
	my $this=shift;

if ($this->{required}) {
		warn('DbDriver "'.$this->{name}.'":', @_);
		exit 1;
	}
	else {
		warn('DbDriver "'.$this->{name}.'" warning:', @_);
	}
}

sub driver {
	my $this=shift;
	my $name=shift;
	
	return $drivers{$name};
}

sub accept {
	my $this=shift;
	my $name=shift;
	my $type=shift;
	
	return if $this->{failed};
	
	if ((exists $this->{accept_name} && $name !~ /$this->{accept_name}/) ||
	    (exists $this->{reject_name} && $name =~ /$this->{reject_name}/)) {
		debug "db $this->{name}" => "reject $name";
		return;
	}

if (exists $this->{accept_type} || exists $this->{reject_type}) {
		if (! defined $type || ! length $type) {
			my $template = Debconf::Template->get($this->getfield($name, 'template'));
			return 1 unless $template; # no type to act on
			$type=$template->type || '';
		}
		return if exists $this->{accept_type} && $type !~ /$this->{accept_type}/;
		return if exists $this->{reject_type} && $type =~ /$this->{reject_type}/;
	}

return 1;
}

sub ispassword {
	my $this=shift;
	my $item=shift;

my $template=$this->getfield($item, 'template');
	return unless defined $template;
	$template=Debconf::Template->get($template);
	return unless $template;
	my $type=$template->type || '';
	return 1 if $type eq 'password';
	return 0;
}