use Debconf::Client::ConfModule q(:all);

version ('2.0');

my $class = "ispell";
my $question = "shared/packages-$class";

my @choices = ();
foreach (split (/\s*,\s*/, metaget ($question, "owners"))){
    my $entry = metaget ("$_/languages", "default");
    $entry =~ s/\s*(.*)\s*/$1/;
    push (@choices, split(/\s*,\s*/, $entry));
}
my $choices = join (', ', sort {lc $a cmp lc $b} @choices);

$question = "dictionaries-common/default-$class";
if ($choices ne metaget ($question, "choices")) {
  subst ($question, "choices", $choices);
  fset ($question, "isdefault", "true");
}

input ("critical", $question);
title ("Dictionaries-common: Ispell dictionary");
go ();
