Gecko [ www.jobworksschool.com ]

Linux jobworks 6.8.0-136-generic #136-Ubuntu SMP PREEMPT_DYNAMIC Wed Jul 1 21:53:05 UTC 2026 x86_64
Apache/2.4.58 (Ubuntu)
Server IP : 10.0.1.5 & Your IP : 216.73.217.52
Domains : Cant Read [ /etc/named.conf ]
User : www-data

Name	Size	Permission	Date
Client	[ DIR ]	drwxr-xr-x	2025-08-05 16:55
DbDriver	[ DIR ]	drwxr-xr-x	2025-08-05 16:55
Element	[ DIR ]	drwxr-xr-x	2025-08-05 16:55
Format	[ DIR ]	drwxr-xr-x	2025-08-05 16:55
FrontEnd	[ DIR ]	drwxr-xr-x	2025-08-05 16:55
Template	[ DIR ]	drwxr-xr-x	2025-08-05 16:55
AutoSelect.pm	1.98 KB	-rw-r--r--	2024-04-12 12:40
Base.pm	510 B	-rw-r--r--	2024-04-12 12:40
ConfModule.pm	15.35 KB	-rw-r--r--	2024-04-12 12:40
Config.pm	7.01 KB	-rw-r--r--	2024-04-12 12:40
Db.pm	1.18 KB	-rw-r--r--	2024-04-12 12:40
DbDriver.pm	2.35 KB	-rw-r--r--	2024-04-12 12:40
Element.pm	206 B	-rw-r--r--	2024-04-12 12:40
Encoding.pm	1.45 KB	-rw-r--r--	2024-04-12 12:40
Format.pm	144 B	-rw-r--r--	2024-04-12 12:40
FrontEnd.pm	2.8 KB	-rw-r--r--	2024-04-12 12:40
Gettext.pm	311 B	-rw-r--r--	2024-04-12 12:40
Iterator.pm	209 B	-rw-r--r--	2024-04-12 12:40
Log.pm	926 B	-rw-r--r--	2024-04-12 12:40
Path.pm	305 B	-rw-r--r--	2024-04-12 12:40
Priority.pm	676 B	-rw-r--r--	2024-04-12 12:40
Question.pm	5.72 KB	-rw-r--r--	2024-04-12 12:40
Template.pm	8.01 KB	-rw-r--r--	2024-04-12 12:40
TmpFile.pm	388 B	-rw-r--r--	2024-04-12 12:40

Rename

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

package Debconf::Db;
use warnings;
use strict;
use Debconf::Log qw{:all};
use Debconf::Config;
use Debconf::DbDriver;
our $config;
our $templates;

sub load {
	my $class=shift;

Debconf::Config->load('', @_); # load default config file
	$config=Debconf::DbDriver->driver(Debconf::Config->config);
	if (not ref $config) {
		die "Configuration database \"".Debconf::Config->config.
			"\" was not initialized.\n";
	}
	$templates=Debconf::DbDriver->driver(Debconf::Config->templates);
	if (not ref $templates) {
		die "Template database \"".Debconf::Config->templates.
			"\" was not initialized.\n";
	}
}

sub makedriver {
	my $class=shift;
	my %config=@_;

my $type=$config{driver} or die "driver type not specified (perhaps you need to re-read debconf.conf(5))";

if (! UNIVERSAL::can("Debconf::DbDriver::$type", 'new')) {
		eval qq{use Debconf::DbDriver::$type};
		die $@ if $@;
	}
	delete $config{driver}; # not a field for the object

debug db => "making DbDriver of type $type";
	"Debconf::DbDriver::$type"->new(%config);
}

sub save {

$config->shutdown if $config;
	$templates->shutdown if $templates;
	$config='';
	$templates='';
}