/usr/sbin/select-default-wordlist is in dictionaries-common 1.23.17.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
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 | #!/usr/bin/perl -w
use strict;
use Debian::DictionariesCommon q(:all);
use Debconf::Client::ConfModule q(:all);
dico_checkroot ();
version ('2.0');
my $class = "wordlist";
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);
if ( %$dictionaries ) {
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-wordlist - select default wordlist
=head1 SYNOPSIS
select-default-wordlist
=head1 DESCRIPTION
This program will make debconf always ask the shared question about
the default wordlist to be used in your
system according to the installed ones, and will do the appropriate
settings.
Calls internally B<update-default-wordlist>.
=head1 SEE ALSO
The dictionaries-common policy document
=head1 AUTHORS
Rafael Laboissiere
=cut
# LocalWords: ispell wordlist
|