1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
|
#!/usr/bin/perl
=head1 NAME
Debconf::AutoSelect - automatic FrontEnd selection library.
=cut
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]);
# Perl's distinction between the compilation phase and the execution phase
# is extremely unhelpful. Glib::Object::Introspection is a dependency of
# Gtk3 and has an INIT block, so trying to require it from anywhere inside a
# string eval results in a "Too late to run INIT block" diagnostic. From
# our point of view, there seems to be no workaround for this other than
# requiring it unconditionally here and ignoring any errors.
BEGIN {
eval {
require Glib::Object::Introspection;
};
}
=head1 DESCRIPTION
This library makes it easy to create FrontEnd and ConfModule objects. It
starts with the desired type of object, and tries to make it. If that fails,
it progressively falls back to other types in the list.
=cut
my %fallback=(
# preferred frontend # fall back to
'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'],
# Here to make upgrades clean for those who used to use the slang
# frontend.
'Slang' => ['Dialog', 'Readline', 'Teletype'],
# And the Text frontend has become the Readline frontend.
'Text' => ['Readline', 'Teletype', 'Dialog'],
);
my $frontend;
my $type;
=head1 METHODS
=over 4
=item make_frontend
Creates and returns a FrontEnd object. The type of FrontEnd used varies. It
will try the preferred type first, and if that fails, fall back through
other types, all the way to a Noninteractive frontend if all else fails.
=cut
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));
}
## no critic (BuiltinFunctions::ProhibitStringyEval)
$frontend=eval qq{
use Debconf::FrontEnd::$trytype;
Debconf::FrontEnd::$trytype->new();
};
## use critic
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"), $@);
}
=item make_confmodule
Pass the script (if any) the ConfModule will start up, (and optional
arguments to pass to it) and this creates and returns a ConfModule.
=cut
sub make_confmodule {
my $confmodule=Debconf::ConfModule->new(frontend => $frontend);
$confmodule->startup(@_) if @_;
return $confmodule;
}
=back
=head1 AUTHOR
Joey Hess <joeyh@debian.org>
=cut
1
|
