~ubuntu-branches/ubuntu/utopic/dictionaries-common/utopic
» Revision
25
: debian/dictionaries-common.config-base
« back to all changes in this revision
Viewing changes to debian/dictionaries-common.config-base
- browse files at revision 25
- compare with another revision
- download diff
- download tarball
- view history from revision 25
- Committer: Bazaar Package Importer
- Author(s): Chris Cheney
- Date: 2010-05-17 20:15:00 UTC
- mfrom: (1.1.12 sid)
- Revision ID: james.westby@ubuntu.com-20100517201500-94c51rzr51ohoi41
Tags: 1.5.5ubuntu1
* Merge from debian unstable. Remaining changes:
- scripts/system/dc-debconf-select.pl: Drop default debconf priority
from 'high' to 'medium'.
- scripts/system/dc-debconf-select.pl: Drop default debconf priority
from 'high' to 'medium'.
- files added:
- debian/dictionaries-common.config-footer
- debian/source
- files removed:
- debian/dictionaries-common.config-base
- files modified:
- Makefile.in
added
removed
debian/dictionaries-common.config-base
1
#!/usr/bin/perl -w
2
# -------------------------------------------------------------------------------
3
# dictionaries-common.config-base:
4
# dc-debconf-select.pl will be added to the end of this file
5
# to make dictionaries-common.config
6
# -------------------------------------------------------------------------------
7
8
use Debconf::Client::ConfModule q(:all);
9
10
version ('2.0');
11
12
if ( -l "/etc/dictionary" ) {
13
input ("medium","dictionaries-common/old_wordlist_link");
14
}
15
16
if ( not -l "/usr/dict" ){
17
set("dictionaries-common/remove_old_usr_dict_link","false");
18
}
19
20
go();
21
22
# Trying to find a reasonable guess for default ispell dictionary and wordlist
23
# from the debian-installer settings, envvars or pre-policy symlinks and the
24
# list of ispell dictionaries and wordlists to be installed
25
26
$priority{"ispell"} = "critical";
27
$priority{"wordlist"} = "critical";
28
$di_language = "debian-installer/language";
29
$di_country = "debian-installer/country";
30
$dcscript = "/usr/share/dictionaries-common/dc-debconf-select.pl";
31
$fromdcconfig = "yes";
32
$debug = "yes" if exists $ENV{'DICT_COMMON_DEBUG'};
33
34
35
my %debconf_vals = ();
36
my @suffixes = ("","-large","-medium","-small","-gut");
37
my %equivs = ("bg" => "bulgarian",
38
"ca" => "catalan",
39
"cs" => "czech",
40
"da" => "danish",
41
"de" => "ngerman",
42
"de:1" => "ogerman",
43
"de_CH" => "swiss",
44
"en_US" => "american",
45
"en_US:1" => "miscfiles",
46
"en_CA" => "canadian",
47
"en_CA:1" => "american",
48
"en_GB" => "british",
49
"en_AU" => "british",
50
"eo" => "esperanto",
51
"es" => "spanish",
52
"fi" => "finnish",
53
"fo" => "faroese",
54
"fr" => "french",
55
"ga" => "irish",
56
"gd" => "gaelic",
57
"gl" => "galician-minimos",
58
"gv" => "manx",
59
"hu" => "hungarian",
60
"it" => "italian",
61
"lt" => "lithuanian",
62
"nb" => "norwegian->bokmal",
63
"nl" => "dutch",
64
"nn" => "norwegian->nynorsk",
65
"pl" => "polish",
66
"pt" => "portuguese",
67
"pt_BR" => "brazilian",
68
"ru" => "russian",
69
"sv" => "swedish",
70
"tl" => "tagalog",
71
"uk" => "ukrainian");
72
my %pending_keys = ();
73
my %reverse_equivs = ();
74
my %alternatives = ("ispell" => "ispell-dictionary.hash",
75
"wordlist" => "dictionary");
76
77
# -------------------------------------------------------------
78
sub dc_debugprint(){
79
# -------------------------------------------------------------
80
# Show info if in debug mode
81
# -------------------------------------------------------------
82
print STDERR "@_" if $debug;
83
}
84
85
# -------------------------------------------------------------
86
sub dc_set (){
87
# -------------------------------------------------------------
88
# Set debconf value unless already set
89
# -------------------------------------------------------------
90
my $question = shift;
91
my $value = shift;
92
my $priority = $priority{$class} || "";
93
94
my ($errorcode, $oldvalue) = get($question);
95
96
$oldvalue = "unset" unless $oldvalue;
97
98
if ( $errorcode or $oldvalue eq "unset" ){
99
&dc_debugprint(" $question: errorcode: $errorcode; priority: $priority\n" .
100
" Old:[$oldvalue] --> New:[$value]\n");
101
set("$question","$value");
102
} elsif ( $oldvalue eq $value ) {
103
print STDERR "Info: $question is already set to
104
[$oldvalue]. Preserving it.\n";
105
} else {
106
print STDERR "Warning: $question is already set to
107
[$oldvalue].
108
Not setting to [$value]\n";
109
}
110
111
if ( $debug ){ # --- Check if question value is actually set
112
($errorcode, $oldvalue) = get($question);
113
if ( $errorcode ){
114
print STDERR "dictionaries-common: $question reading failed with $errorcode\n";
115
} elsif ( $oldvalue) {
116
print STDERR "dictionaries-common: $question actually set to [$oldvalue]\n";
117
} else {
118
print STDERR "dictionaries-common: $question value is void, bad thing\n";
119
}
120
}
121
&dc_debugprint ("Not tried: " . join(', ',sort keys %pending_keys) . "\n---\n");
122
}
123
124
# -------------------------------------------------------------
125
sub extractlangname (){
126
# -------------------------------------------------------------
127
# Look if a dict matching $langkey in %equivs is to be installed
128
# and return the preferred language name if so.
129
# -------------------------------------------------------------
130
my $langkey = shift;
131
my $thestring = '';
132
my $thepackage = '';
133
my $thevariant = '';
134
my @thevalues = ();
135
136
if ( exists $pending_keys{$langkey} ){ # Make sure we do not try it again
137
&dc_debugprint("Trying langkey $langkey\n");
138
delete $pending_keys{$langkey};
139
} else {
140
if ( exists $equivs{$langkey} ){
141
# This $langkey was already tried, no need to try it again
142
&dc_debugprint("Already done langkey $langkey\n");
143
} else {
144
# This $langkey does not exist
145
&dc_debugprint("Non-existant langkey $langkey\n");
146
}
147
return;
148
}
149
150
if ( exists $equivs{$langkey} ){
151
($thepackage,$thevariant) = split ("->",$equivs{$langkey});
152
foreach $suffix ( @suffixes ){
153
if ( $thepackage eq "miscfiles" ){
154
$pkgfullname = "$thepackage$suffix";
155
} else {
156
$pkgfullname = "$classprefix$thepackage$suffix";
157
}
158
&dc_debugprint(" Trying package $pkgfullname\n");
159
if ( exists $debconf_vals{"$pkgfullname"} ){
160
if ( exists $debconf_defaultvals{"$pkgfullname"} ){
161
$thestring = $debconf_defaultvals{"$pkgfullname"};
162
} else {
163
$thestring = $debconf_vals{"$pkgfullname"};
164
}
165
@thevalues = sort split (/\s*,\s*/,$thestring);
166
if ( $thevariant ){
167
@thevalues = grep {/$thevariant/i} @thevalues;
168
}
169
@thevalues = sort {
170
$a =~ m/tex/i <=> $b =~ m/tex/i # Sort tex variants last
171
||
172
$a cmp $b } @thevalues;
173
if ( scalar @thevalues >= 1 ){
174
return "$thevalues[0]";
175
} else {
176
return;
177
}
178
}
179
}
180
}
181
}
182
183
# -------------------------------------------------------------
184
sub guesslang (){
185
# -------------------------------------------------------------
186
# Try different combinations of $language and $country and possible
187
# fallbacks in case extractlangname() does not find a good guess
188
# -------------------------------------------------------------
189
my $class = shift;
190
my $language = shift;
191
my $country = shift;
192
my $guessed = '';
193
my @possible_fallbacks = ();
194
195
if ( $guessed = &extractlangname("$language" . "_" . uc($country))
196
|| &extractlangname("$language" . "_" . uc("$country") . ":1")
197
|| &extractlangname("$language")
198
|| &extractlangname("$language:1")
199
){
200
$priority{$class} = "low";
201
return $guessed;
202
} else {
203
@possible_fallbacks = grep {/$language\_/} sort keys %equivs;
204
$priority{$class} = "medium";
205
foreach ( @possible_fallbacks ){
206
return $guessed if ( $guessed = &extractlangname($_));
207
}
208
$priority{$class} = "high";
209
return;
210
}
211
}
212
213
# -------------------------------------------------------------
214
sub guessotherlang (){
215
# -------------------------------------------------------------
216
# Iterate over the not yet tried $langkey values for a dict to be
217
# installed. Return first match
218
# -------------------------------------------------------------
219
my $guessed = '';
220
221
foreach ( sort keys %pending_keys ){
222
return $guessed if ( $guessed = &extractlangname($_));
223
}
224
}
225
226
# -------------------------------------------------------------
227
sub guesslang4link(){
228
# -------------------------------------------------------------
229
# Try guessing default value after (woody or older) former symlink
230
# -------------------------------------------------------------
231
my $class = shift;
232
my $prefix = '';
233
my $guess = '';
234
my $language = '';
235
my $link = "/etc/alternatives/$alternatives{$class}";
236
237
return if not ( -l $link );
238
239
if ( $guess = readlink($link) ){
240
241
&dc_debugprint("Found link $guess. ");
242
243
$guess =~ s/\.hash$//;
244
$guess =~ s/^.*\///;
245
$guess =~ s/(\-\.)(small|medium|large)$//;
246
$guess =~ s/\-english$//;
247
248
$guess = "norwegian->bokmal" if ($guess eq "bokm�l");
249
$guess = "norwegian->nynorsk" if ($guess eq "nynorsk");
250
$guess = "ogerman" if ($guess eq "german");
251
$guess = "miscfiles" if ($guess eq "web2");
252
$guess = "danish" if ($guess eq "dansk");
253
$guess = "french" if ($guess eq "francais");
254
$guess = "swedish" if ($guess eq "svenska");
255
256
&dc_debugprint("Fine tuned to $guess.\n");
257
258
if ( exists $reverse_equivs{$guess} ){
259
$language = $reverse_equivs{$guess};
260
} else {
261
return;
262
}
263
return $guessed if ( $guessed = &extractlangname($language) );
264
}
265
return;
266
}
267
268
# -------------------------------------------------------------
269
sub dc_manual_alternative (){
270
# -------------------------------------------------------------
271
# Check if woody (or older) alternative exists and is set to manual
272
# -------------------------------------------------------------
273
my $class = shift;
274
my $file = "/var/lib/dpkg/alternatives/$alternatives{$class}";
275
my $status = '';
276
277
if ( -r $file ){
278
open(FILE,"< $file") or return;
279
$status = <FILE>;
280
close FILE;
281
$status = "" unless $status;
282
chomp $status;
283
return "Manual (previous alternative setting)" if ( $status eq "manual" );
284
}
285
}
286
287
# -------------------------------------------------------------
288
sub dc_debconf_rebuild (){
289
# -------------------------------------------------------------
290
# Gather info from debconf for the (to be) installed packages for class
291
# %debconf_vals : pkg -> languages provided by package
292
# %debconf_defaultvals : pkg -> default language for package
293
# -------------------------------------------------------------
294
my $class = shift;
295
return unless $class;
296
my $question = "shared/packages-$class";
297
my ($errorcode,$pkgowners) = metaget ($question, "owners");
298
return if $errorcode;
299
300
%debconf_vals = ();
301
%debconf_defaultvals = ();
302
foreach ( split (/\s*,\s*/,$pkgowners) ){
303
#$debconf_vals{$_} = metaget ("$_/languages", "default");
304
$debconf_vals{$_} = get ("$_/languages");
305
my ($errorcode,$pkgdefaults) = get ("$_/defaults");
306
$debconf_defaultvals{$_} = $pkgdefaults if not $errorcode;
307
}
308
return "ok";
309
}
310
311
# -----------------------------------------------------------------
312
313
&dc_debugprint("dictionaries-common: (re)configuring ...\n");
314
315
if ( not -e $dcscript ){
316
if ( -e "/etc/default/locale" ){
317
$language = $ENV{'LANG'} if exists $ENV{'LANG'};
318
}
319
&dc_debugprint("LANG is set to $language\n") if $language;
320
unless ( $language ){
321
($errorcode,$language) = get($di_language);
322
$language = '' if $errorcode;
323
&dc_debugprint("Debconf gives language: $language\n") if $language;
324
}
325
unless ( readlink ("/etc/alternatives/ispell-dictionary.hash") ||
326
readlink ("/etc/alternatives/dictionary")){
327
$language = $language ||
328
$ENV{'LANG'} ||
329
$ENV{'LC_MESSAGES'} ||
330
$ENV{'LC_ALL'} ||
331
'';
332
}
333
if ( $language ){ # Installing from scratch
334
$language = "en" if ( $language eq "C" );
335
# Deal with de_DE:de_DE@euro:de:en_GB.UTF-8:en like entries
336
$language = ( split(":",$language) )[0];
337
$language =~ s/[\.@].*$//; # Remove variant and charset
338
($language,$country) = split("_",$language);
339
if ( not $country ){
340
($errorcode,$country) = get($di_country);
341
if ( $errorcode or not $country ){
342
$country = "unset";
343
}
344
}
345
foreach $class ("ispell","wordlist"){
346
$classprefix = substr($class,0,1);
347
if ( &dc_debconf_rebuild($class) ){
348
%pending_keys = %equivs;
349
if ( $guessed = &guesslang($class,$language,$country) ){
350
&dc_debugprint("* Guessed [d-i]->($class,$language,$country)\n");
351
&dc_set("dictionaries-common/default-$class","$guessed");
352
} else {
353
if ( $guessed = &guesslang($class,"en","US")
354
|| &guessotherlang ){
355
&dc_debugprint("*** Forcing [$guessed] for ($class,$language,$country) ***\n");
356
$priority{$class} = "medium";
357
&dc_set("dictionaries-common/default-$class","$guessed");
358
&dc_debugprint("** --- **\n");
359
} else {
360
&dc_debugprint("* Nothing found\n");
361
$priority{$class} = "critical";
362
}
363
}
364
}
365
}
366
} else { # Upgrading from woody or previous release
367
foreach ( keys %equivs ){
368
$reverse_equivs{$equivs{$_}} = $_;
369
}
370
&dc_debugprint("dictionaries-common: Trying pre-sarge symlinks\n");
371
foreach $class ("ispell","wordlist"){
372
$classprefix = substr($class,0,1);
373
if ( &dc_debconf_rebuild($class) ){
374
%pending_keys = %equivs;
375
if ( $guessed = &guesslang4link($class) ){
376
if ( &dc_manual_alternative($class) ){
377
&dc_debugprint("- $class was in manual mode. Setting critical priority\n");
378
$priority{$class} = "critical";
379
} else {
380
$priority{$class} = "low";
381
foreach ( keys %debconf_vals ){
382
my $oldpackage = $_;
383
next if ( $oldpackage eq "dictionaries-common" );
384
$oldpackage = "wenglish" if ( $oldpackage eq "wamerican" );
385
# critical priority if exists debconf entry without a
386
# previous package installed. This means that besides
387
# upgrading, new dicts are being installed.
388
if ( not -e "/var/lib/dpkg/info/$oldpackage.list" ){
389
$priority{$class} = "critical";
390
&dc_debugprint("* New dict [$oldpackage] is to be installed\n");
391
last;
392
}
393
}
394
}
395
&dc_set("dictionaries-common/default-$class","$guessed");
396
}
397
}
398
}
399
}
400
}
401
402
# Unregistering no longer used dictionaries-common/languages and
403
# dictionaries-common ownership of other two shared questions
404
405
unregister("dictionaries-common/languages");
406
unregister("shared/packages-ispell");
407
unregister("shared/packages-wordlist");
408
409
# Prompting the questions if required
410
411
if ( not -e $dcscript ){ # First dictionaries-common installation
412
foreach $class ("ispell","wordlist"){
413
&dc_debconf_select($class,$priority{$class});
414
# This might have been pre-seeded and question not asked.
415
# Make sure question is tagged as seen in this case
416
if ( $priority{$class} ne "critical" ){
417
fset ("dictionaries-common/default-$class", "seen", "true");
418
go();
419
}
420
}
421
} else { # Reconfiguring or upgrading
422
foreach $class ("ispell","wordlist"){
423
&dc_debconf_select($class);
424
}
425
}
426
427
&dc_debugprint("dictionaries-common: (re)configuring ...Done.\n");
428
429
# Local Variables:
430
# perl-indent-level: 2
431
# coding: iso-8859-1
432
# End:
433
Loggerhead is a web-based interface for Breezy
Version: 2.0.1