FileMgr

✏️ /usr/share/perl5/Debconf/AutoSelect.pm

✕ Tutup

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

package Debconf::AutoSelect;
use warnings;
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]);

BEGIN {
	eval {
		require Glib::Object::Introspection;
	};
}

my %fallback=(
	'Kde'			=>	['Qt', 'Dialog', 'Readline', 'Teletype'],
	'Qt'			=>	['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;
	$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 my $trytype ($starttype, @{$fallback{$starttype}}, 'Noninteractive') {
		if (! $showfallback) {
			debug user => "trying frontend $trytype";
		}
		else {
			warn(sprintf(gettext("falling back to frontend: %s"), $trytype));
		}
		$frontend=eval qq{
			use Debconf::FrontEnd::$trytype;
			Debconf::FrontEnd::$trytype->new();
		};
		if (defined $frontend) {
			$type = $trytype;
			return $frontend;
		}

warn sprintf(gettext("unable to initialize frontend: %s"), $trytype);
		$@=~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;
}

Batal

⬅ perl5 24 item

Nama	Tipe	Ukuran	Diubah	Perm	Aksi
📁 Client	dir	—	15/06/26 13:43	0755	📂
📁 DbDriver	dir	—	15/06/26 13:43	0755	📂
📁 Element	dir	—	15/06/26 13:43	0755	📂
📁 Format	dir	—	15/06/26 13:43	0755	📂
📁 FrontEnd	dir	—	15/06/26 13:43	0755	📂
📁 Template	dir	—	15/06/26 13:43	0755	📂
📄 AutoSelect.pm	pm	2 KB	12/04/24 12:40	0644	✏️ ⬇
📄 Base.pm	pm	510 B	12/04/24 12:40	0644	✏️ ⬇
📄 ConfModule.pm	pm	15.3 KB	12/04/24 12:40	0644	✏️ ⬇
📄 Config.pm	pm	7 KB	12/04/24 12:40	0644	✏️ ⬇
📄 Db.pm	pm	1.2 KB	12/04/24 12:40	0644	✏️ ⬇
📄 DbDriver.pm	pm	2.4 KB	12/04/24 12:40	0644	✏️ ⬇
📄 Element.pm	pm	206 B	12/04/24 12:40	0644	✏️ ⬇
📄 Encoding.pm	pm	1.4 KB	12/04/24 12:40	0644	✏️ ⬇
📄 Format.pm	pm	144 B	12/04/24 12:40	0644	✏️ ⬇
📄 FrontEnd.pm	pm	2.8 KB	12/04/24 12:40	0644	✏️ ⬇
📄 Gettext.pm	pm	311 B	12/04/24 12:40	0644	✏️ ⬇
📄 Iterator.pm	pm	209 B	12/04/24 12:40	0644	✏️ ⬇
📄 Log.pm	pm	926 B	12/04/24 12:40	0644	✏️ ⬇
📄 Path.pm	pm	305 B	12/04/24 12:40	0644	✏️ ⬇
📄 Priority.pm	pm	676 B	12/04/24 12:40	0644	✏️ ⬇
📄 Question.pm	pm	5.7 KB	12/04/24 12:40	0644	✏️ ⬇
📄 Template.pm	pm	8 KB	12/04/24 12:40	0644	✏️ ⬇
📄 TmpFile.pm	pm	388 B	12/04/24 12:40	0644	✏️ ⬇

✏️ Rename

🔑 Ubah Permission