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
|
#!/usr/bin/perl -w
use strict;
use Debian::DictionariesCommon q(:all);
use Debconf::Client::ConfModule q(:all);
dico_checkroot ();
version ('2.0');
my $class = "[I:ispell:][W:wordlist:]";
my $program = "select-default-$class";
my $question = "dictionaries-common/default-$class";
my $script = "/usr/share/dictionaries-common/dc-debconf-select.pl";
sub dico_force_question (){
# Force asking question for given \%languages, or for all if not given
my $class = shift;
my $languages = shift;
my $question = "dictionaries-common/default-$class";
my %title = ('ispell' => "Dictionaries-common: Ispell dictionary",
'wordlist' => "Dictionaries-common: Wordlist dictionary"
);
# If no explict $languages is given, ask for all, and return if none present
$languages = &dico_parse_languages($class,"languages") unless $languages;
return unless %$languages;
my ($choices, $echoices ) = &dico_get_all_choices($class,$languages);
fset ($question, "seen", "false");
subst ($question, "choices", $choices);
subst ($question, "echoices", $echoices);
input ("critical", $question);
title ($title{$class});
go ();
}
updatedb ($class);
my $dictionaries = loaddb ($class);
my $forced_default_regexp;
foreach my $option ( @ARGV ){
if ( $option =~ s/--set-default=// ){
$forced_default_regexp = $option;
} elsif ( $option eq "--debug") {
dico_debug;
} elsif ( $option eq "--show-choices") {
print STDERR join("\n",sort keys %$dictionaries), "\n";
exit;
}
}
if ( %$dictionaries ) {
if ( $forced_default_regexp ){
if ( my $forced_value = dico_find_matching_choice($dictionaries,$forced_default_regexp) ){
set($question,$forced_value);
} else {
die "$program: No (unique) match for \"$forced_default_regexp\". Aborting ...\n";
}
} else {
if (get $question) {
require $script;
&dico_force_question($class);
}
}
}
system "update-default-$class";
# Local Variables:
# perl-indent-level: 2
# End:
__END__
=head1 NAME
select-default-[I:ispell:][W:wordlist:] - select default [I:ispell dictionary:][W:wordlist:]
=head1 SYNOPSIS
select-default-[I:ispell:][W:wordlist:] [options]
Options (all long only options):
--set-default='regexp' Try 'regexp' to get a single match and set
it as default. Fail otherwise.
--show-choices Show available choices to STDERR and exit.
--debug Enable debug mode
=head1 DESCRIPTION
This program is responsible for selecting default
[I:ispell dictionary:][W:wordlist:].
If B<--show-choices> is used will just output a list of available
choices to STDERR and exit.
STDOUT cannot be used, this program loads B<debconf> and B<debconf>
captures STDOUT.
If B<--set-default> is used, program will try to get a single regexp
match from available choices, failing if not.
Will try case dependent match first, then case independent.
If B<--set-default> is not used this program will make debconf always
ask the shared question about the default [I:ispell
dictionary:][W:wordlist:] to be used in your system according to the
installed ones.
In both cases, will do the appropriate settings if needed.
Calls internally B<update-default-[I:ispell:][W:wordlist:]>.
=head1 SEE ALSO
The dictionaries-common policy document
=head1 AUTHORS
Rafael Laboissiere,
Agustin Martin
=cut
# LocalWords: ispell wordlist
|
