JezK
Edit File: remove-default-wordlist
#!/usr/bin/perl -w use strict; use Debian::DictionariesCommon q(dico_checkroot); use Debconf::Client::ConfModule q(:all); dico_checkroot (); die "Usage: $0 package-name\n" if (scalar @ARGV != 1); version ('2.0'); my $class = "wordlist"; my $question = "dictionaries-common/default-$class"; my $script = "/usr/share/dictionaries-common/dc-debconf-select.pl"; my $program = "remove-default-$class"; my $debug = 1 if exists $ENV{'DICT_COMMON_DEBUG'}; my $newflag = "/var/cache/dictionaries-common/flag-$class-new"; my %title = ('ispell' => "Dictionaries-common: Ispell dictionary", 'wordlist' => "Dictionaries-common: Wordlist dictionary" ); my ($errorcode, $value) = get $question; if ($errorcode == 0) { require $script; my $pkg = $ARGV[0]; my $languages = &dico_parse_languages($class,"languages"); my @newchoices = (); my %langsinpkg = (); # Get list of languages provided by package being removed. Check # first if package is already removed, some packages using cdbs # call this script twice, the second with package already removed if ( exists $languages->{$pkg} ){ foreach ( split (/\s*,\s*/, $languages->{$pkg}) ){ $langsinpkg{$_}++; } # Update $languages removing $pkg entry delete $languages->{$pkg}; # Update question variables with new values my ($choices, $echoices ) = &dico_get_all_choices($class,$languages); subst ($question, "choices", $choices); subst ($question, "echoices", $echoices); # Ask with new values if current value is being removed and langs are left if ( %$languages && exists $langsinpkg{$value} ) { fset ($question, "seen", "false"); input ("critical", $question); title ($title{$class}); go (); } } } # If $newflag exists, we are removing an IDWP in the same run another IDWP of the same # class is to be installed. If the to-be-installed IDWP is the new selection update-default- # -$class will fail because the new IDWP is not yet unpacked. Since in this case update- # -default-$class will be run in new IDWP postinst, we do not it here and so avoid problems. if ( -f $newflag ) { print STDERR "$program: $newflag exists, defer update-default-$class run\n" if $debug; } else { system "update-default-$class"; } # Local Variables: # perl-indent-level: 2 # End: __END__ =head1 NAME remove-default-wordlist - remove default wordlist =head1 SYNOPSIS remove-default-wordlist <package> =head1 DESCRIPTION WARNING: Not to be used from the command line unless you know very well what you are doing. When called from package postrm, this program will take care of removing the entries associated to a wordlist package from the dictionaries-common database and call for the new selection if it was the default one. =head1 SEE ALSO The dictionaries-common policy document =head1 AUTHORS Rafael Laboissiere =cut # LocalWords: ispell wordlist