Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
Client	[ DIR ]	drwxr-xr-x	2025-10-09 12:24
DbDriver	[ DIR ]	drwxr-xr-x	2025-10-09 12:24
Element	[ DIR ]	drwxr-xr-x	2025-10-09 12:24
Format	[ DIR ]	drwxr-xr-x	2025-10-09 12:24
FrontEnd	[ DIR ]	drwxr-xr-x	2025-10-09 12:24
Template	[ DIR ]	drwxr-xr-x	2025-10-09 12:24
AutoSelect.pm	1.79 KB	-rw-r--r--	2019-05-08 18:33
Base.pm	499 B	-rw-r--r--	2019-05-08 18:33
ConfModule.pm	15.27 KB	-rw-r--r--	2019-05-08 18:33
Config.pm	6.86 KB	-rw-r--r--	2019-05-08 18:33
Db.pm	1.17 KB	-rw-r--r--	2019-05-08 18:33
DbDriver.pm	2.3 KB	-rw-r--r--	2019-05-08 18:33
Element.pm	196 B	-rw-r--r--	2019-05-08 18:33
Encoding.pm	1.45 KB	-rw-r--r--	2019-05-08 18:33
Format.pm	133 B	-rw-r--r--	2019-05-08 18:33
FrontEnd.pm	2.8 KB	-rw-r--r--	2019-05-08 18:33
Gettext.pm	301 B	-rw-r--r--	2019-05-08 18:33
Iterator.pm	198 B	-rw-r--r--	2019-05-08 18:33
Log.pm	914 B	-rw-r--r--	2019-05-08 18:33
Path.pm	291 B	-rw-r--r--	2019-05-08 18:33
Priority.pm	642 B	-rw-r--r--	2019-05-08 18:33
Question.pm	5.73 KB	-rw-r--r--	2019-05-08 18:33
Template.pm	8.01 KB	-rw-r--r--	2019-05-08 18:33
TmpFile.pm	410 B	-rw-r--r--	2019-05-08 18:33

Rename

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

package Debconf::AutoSelect;
use strict;
use Debconf::Gettext;
use Debconf::ConfModule;
use Debconf::Config;
use Debconf::Log qw(:all);
use base qw(Exporter);
our @EXPORT_OK = qw(make_frontend make_confmodule);
our %EXPORT_TAGS = (all => [@EXPORT_OK]);

my %fallback=(
	'Kde'			=>	['Dialog', 'Readline', 'Teletype'],
	'Gnome'			=>	['Dialog', 'Readline', 'Teletype'],
	'Web'			=>	['Dialog', 'Readline', 'Teletype'],
	'Dialog'		=>	['Readline', 'Teletype'],
	'Gtk'			=>	['Dialog', 'Readline', 'Teletype'],
	'Readline'		=>	['Teletype', 'Dialog'],
	'Editor'		=>	['Readline', 'Teletype'],
	'Slang'			=>	['Dialog', 'Readline', 'Teletype'],
	'Text'			=> 	['Readline', 'Teletype', 'Dialog'],

);

my $frontend;
my $type;

sub make_frontend {
	my $script=shift;
	my $starttype=ucfirst($type) if defined $type;
	if (! defined $starttype || ! length $starttype) {
		$starttype = Debconf::Config->frontend;
		if ($starttype =~ /^[A-Z]/) {
			warn "Please do not capitalize the first letter of the debconf frontend.";
		}
		$starttype=ucfirst($starttype);
	}

my $showfallback=0;
	foreach $type ($starttype, @{$fallback{$starttype}}, 'Noninteractive') {
		if (! $showfallback) {
			debug user => "trying frontend $type";
		}
		else {
			warn(sprintf(gettext("falling back to frontend: %s"), $type));
		}
		$frontend=eval qq{
			use Debconf::FrontEnd::$type;
			Debconf::FrontEnd::$type->new();
		};
		return $frontend if defined $frontend;

warn sprintf(gettext("unable to initialize frontend: %s"), $type);
		$@=~s/\n.*//s;
		warn "($@)";
		$showfallback=1;
	}

die sprintf(gettext("Unable to start a frontend: %s"), $@);
}

sub make_confmodule {
	my $confmodule=Debconf::ConfModule->new(frontend => $frontend);

$confmodule->startup(@_) if @_;
	
	return $confmodule;
}