Gecko [ bayviewconstructionltd.com ]

Name	Size	Permission	Date
a2disconf	15.89 KB	-rwxr-xr-x	2019-06-16 09:49
a2dismod	15.89 KB	-rwxr-xr-x	2019-06-16 09:49
a2dissite	15.89 KB	-rwxr-xr-x	2019-06-16 09:49
a2enconf	15.89 KB	-rwxr-xr-x	2019-06-16 09:49
a2enmod	15.89 KB	-rwxr-xr-x	2019-06-16 09:49
a2ensite	15.89 KB	-rwxr-xr-x	2019-06-16 09:49
a2query	9.64 KB	-rwxr-xr-x	2019-10-13 15:43
accessdb	10.23 KB	-rwxr-xr-x	2016-12-13 13:10
add-shell	860 B	-rwxr-xr-x	2017-04-02 17:10
addgnupghome	3.01 KB	-rwxr-xr-x	2019-02-07 20:57
addgroup	33.7 KB	-rwxr-xr-x	2016-06-26 22:55
adduser	33.7 KB	-rwxr-xr-x	2016-06-26 22:55
apache2	651.13 KB	-rwxr-xr-x	2019-10-13 15:43
apache2ctl	7.05 KB	-rwxr-xr-x	2019-10-13 15:39
apachectl	7.05 KB	-rwxr-xr-x	2019-10-13 15:39
applygnupgdefaults	2.17 KB	-rwxr-xr-x	2019-02-07 20:57
arpd	46.84 KB	-rwxr-xr-x	2017-11-24 09:22
aspell-autobuildhash	13.22 KB	-rwxr-xr-x	2016-10-10 09:58
biosdecode	18.82 KB	-rwxr-xr-x	2016-09-01 02:59
check_forensic	952 B	-rwxr-xr-x	2011-04-26 15:10
chgpasswd	57.8 KB	-rwxr-xr-x	2017-05-17 11:59
chpasswd	49.9 KB	-rwxr-xr-x	2017-05-17 11:59
chroot	38.88 KB	-rwxr-xr-x	2017-02-22 12:23
cpgr	52 KB	-rwxr-xr-x	2017-05-17 11:59
cppw	52 KB	-rwxr-xr-x	2017-05-17 11:59
cron	47.48 KB	-rwxr-xr-x	2017-10-07 13:38
delgroup	15.43 KB	-rwxr-xr-x	2016-06-26 22:55
deluser	15.43 KB	-rwxr-xr-x	2016-06-26 22:55
dmidecode	102.49 KB	-rwxr-xr-x	2016-09-01 02:59
dpkg-preconfigure	3.52 KB	-rwxr-xr-x	2017-05-21 17:08
dpkg-reconfigure	4.23 KB	-rwxr-xr-x	2017-05-21 17:08
e2freefrag	10.07 KB	-rwxr-xr-x	2020-07-25 09:03
e4crypt	22.07 KB	-rwxr-xr-x	2020-07-25 09:03
e4defrag	25.99 KB	-rwxr-xr-x	2020-07-25 09:03
fdformat	30.66 KB	-rwxr-xr-x	2018-03-07 18:29
ferm	83.84 KB	-rwxr-xr-x	2016-03-30 12:16
filefrag	14.02 KB	-rwxr-xr-x	2020-07-25 09:03
genl	50.79 KB	-rwxr-xr-x	2017-11-24 09:22
groupadd	57.86 KB	-rwxr-xr-x	2017-05-17 11:59
groupdel	53.65 KB	-rwxr-xr-x	2017-05-17 11:59
groupmems	53.84 KB	-rwxr-xr-x	2017-05-17 11:59
groupmod	68.22 KB	-rwxr-xr-x	2017-05-17 11:59
grpck	53.77 KB	-rwxr-xr-x	2017-05-17 11:59
grpconv	49.65 KB	-rwxr-xr-x	2017-05-17 11:59
grpunconv	49.65 KB	-rwxr-xr-x	2017-05-17 11:59
grub-bios-setup	790.19 KB	-rwxr-xr-x	2019-06-12 11:20
grub-install	996.58 KB	-rwxr-xr-x	2019-06-12 11:20
grub-macbless	777.88 KB	-rwxr-xr-x	2019-06-12 11:20
grub-mkconfig	7.82 KB	-rwxr-xr-x	2019-06-12 11:20
grub-mkdevicemap	204.47 KB	-rwxr-xr-x	2019-06-12 11:20
grub-probe	790.19 KB	-rwxr-xr-x	2019-06-12 11:20
grub-reboot	4.01 KB	-rwxr-xr-x	2019-06-12 11:20
grub-set-default	3.48 KB	-rwxr-xr-x	2019-06-12 11:20
httxt2dbm	9.99 KB	-rwxr-xr-x	2019-10-13 15:43
iconvconfig	22.66 KB	-rwxr-xr-x	2019-02-06 21:17
import-ferm	16.81 KB	-rwxr-xr-x	2016-03-30 12:16
install-sgmlcatalog	4.44 KB	-rwxr-xr-x	2016-11-07 07:06
invoke-rc.d	17.69 KB	-rwxr-xr-x	2017-05-02 10:20
iotop	496 B	-rwxr-xr-x	2016-07-29 10:25
ip6tables-apply	6.85 KB	-rwxr-xr-x	2017-04-12 09:41
iptables-apply	6.85 KB	-rwxr-xr-x	2017-04-12 09:41
irqbalance	55.38 KB	-rwxr-xr-x	2017-03-10 18:56
ispell-autobuildhash	15.39 KB	-rwxr-xr-x	2016-10-10 09:58
laptop-detect	2.53 KB	-rwxr-xr-x	2016-12-27 03:11
ldattach	30.71 KB	-rwxr-xr-x	2018-03-07 18:29
locale-gen	1.5 KB	-rwxr-xr-x	2017-07-31 14:32
logrotate	75.27 KB	-rwxr-xr-x	2017-01-07 18:54
make-ssl-cert	3.78 KB	-rwxr-xr-x	2017-04-28 19:58
mkinitramfs	10.01 KB	-rwxr-xr-x	2017-04-26 01:00
mklost+found	9.99 KB	-rwxr-xr-x	2020-07-25 09:03
mysqld	17.05 MB	-rwxr-xr-x	2021-01-31 16:38
newusers	78.43 KB	-rwxr-xr-x	2017-05-17 11:59
nfnl_osf	13.99 KB	-rwxr-xr-x	2017-04-12 09:41
nologin	5.99 KB	-rwxr-xr-x	2017-05-17 11:59
ownership	10.13 KB	-rwxr-xr-x	2016-09-01 02:59
pam-auth-update	19.03 KB	-rwxr-xr-x	2017-05-27 15:44
pam_getenv	2.82 KB	-rwxr-xr-x	2017-05-27 15:44
pam_timestamp_check	10.37 KB	-rwxr-xr-x	2017-05-27 15:44
paperconfig	4.07 KB	-rwxr-xr-x	2016-11-11 11:28
phpdismod	7.11 KB	-rwxr-xr-x	2019-08-14 06:09
phpenmod	7.11 KB	-rwxr-xr-x	2019-08-14 06:09
phpquery	6.24 KB	-rwxr-xr-x	2019-08-14 06:09
pwck	49.84 KB	-rwxr-xr-x	2017-05-17 11:59
pwconv	45.74 KB	-rwxr-xr-x	2017-05-17 11:59
pwunconv	41.72 KB	-rwxr-xr-x	2017-05-17 11:59
readprofile	18.59 KB	-rwxr-xr-x	2018-03-07 18:29
remove-default-ispell	2.86 KB	-rwxr-xr-x	2016-10-10 09:58
remove-default-wordlist	2.86 KB	-rwxr-xr-x	2016-10-10 09:58
remove-shell	904 B	-rwxr-xr-x	2017-04-02 17:10
rmt	55.03 KB	-rwxr-xr-x	2016-10-30 06:35
rmt-tar	55.03 KB	-rwxr-xr-x	2016-10-30 06:35
rsyslogd	636.3 KB	-rwxr-xr-x	2017-01-18 22:14
rtcwake	42.81 KB	-rwxr-xr-x	2018-03-07 18:29
safe_finger	10.08 KB	-rwxr-xr-x	2016-12-25 23:08
select-default-ispell	3.23 KB	-rwxr-xr-x	2016-10-10 09:58
select-default-wordlist	3.21 KB	-rwxr-xr-x	2016-10-10 09:58
service	9.83 KB	-rwxr-xr-x	2017-05-02 10:20
setvesablank	10.36 KB	-rwxr-xr-x	2016-01-05 16:55
split-logfile	2.36 KB	-rwxr-xr-x	2019-10-13 15:43
sshd	772.48 KB	-rwxr-xr-x	2019-07-15 13:32
tarcat	936 B	-rwxr-xr-x	2016-10-30 06:35
tcpd	10 KB	-rwxr-xr-x	2016-12-25 23:08
tcpdchk	22.13 KB	-rwxr-xr-x	2016-12-25 23:08
tcpdmatch	18.04 KB	-rwxr-xr-x	2016-12-25 23:08
tcptraceroute	1.56 KB	-rwxr-xr-x	2016-08-29 15:45
tcptraceroute.db	1.56 KB	-rwxr-xr-x	2016-08-29 15:45
traceroute	67.16 KB	-rwxr-xr-x	2016-08-29 15:45
try-from	10 KB	-rwxr-xr-x	2016-12-25 23:08
tunelp	26.61 KB	-rwxr-xr-x	2018-03-07 18:29
tzconfig	106 B	-rwxr-xr-x	2019-10-11 07:23
update-ca-certificates	4.85 KB	-rwxr-xr-x	2020-06-05 16:52
update-catalog	9.15 KB	-rwxr-xr-x	2016-11-07 07:06
update-default-aspell	1 KB	-rwxr-xr-x	2016-10-10 09:58
update-default-ispell	9.68 KB	-rwxr-xr-x	2016-10-10 09:58
update-default-wordlist	7.5 KB	-rwxr-xr-x	2016-10-10 09:58
update-dictcommon-aspell	1 KB	-rwxr-xr-x	2016-10-10 09:58
update-dictcommon-hunspell	782 B	-rwxr-xr-x	2016-10-10 09:58
update-grub	64 B	-rwxr-xr-x	2019-06-12 11:20
update-grub2	64 B	-rwxr-xr-x	2019-06-12 11:20
update-gsfontmap	450 B	-rwxr-xr-x	2020-08-20 14:04
update-initramfs	8.02 KB	-rwxr-xr-x	2017-03-06 22:42
update-locale	2.99 KB	-rwxr-xr-x	2016-03-20 23:45
update-mime	8.84 KB	-rwxr-xr-x	2016-05-01 11:20
update-passwd	30.41 KB	-rwxr-xr-x	2017-01-16 15:52
update-pciids	2.84 KB	-rwxr-xr-x	2016-11-30 06:53
update-rc.d	15.69 KB	-rwxr-xr-x	2017-05-02 10:20
update-xmlcatalog	16.88 KB	-rwxr-xr-x	2016-11-07 14:53
upgrade-from-grub-legacy	1.49 KB	-rwxr-xr-x	2019-06-12 11:20
useradd	119.29 KB	-rwxr-xr-x	2017-05-17 11:59
userdel	82.49 KB	-rwxr-xr-x	2017-05-17 11:59
usermod	119.1 KB	-rwxr-xr-x	2017-05-17 11:59
validlocale	1.73 KB	-rwxr-xr-x	2016-03-20 23:45
vcstime	6.24 KB	-rwxr-xr-x	2016-01-05 16:55
vigr	60.22 KB	-rwxr-xr-x	2017-05-17 11:59
vipw	60.22 KB	-rwxr-xr-x	2017-05-17 11:59
visudo	200.34 KB	-rwxr-xr-x	2021-01-23 09:10
vpddecode	14.27 KB	-rwxr-xr-x	2016-09-01 02:59
zic	42.54 KB	-rwxr-xr-x	2019-02-06 21:17

Rename

#!/usr/bin/perl -w

use strict;
use Debian::DictionariesCommon q(:all);
use Debconf::Client::ConfModule q(:all);

dico_checkroot ();

my $triggered;
my $skip_symlinks_setting;
my $class   = "wordlist";
my $program = "update-default-$class";
my $debug   = 1 if defined $ENV{'DICT_COMMON_DEBUG'};

# Parse options
foreach my $option ( @ARGV ){
  if ( $option eq "--skip-symlinks" ){
    # Do not try to set symlinks at $linkdir.
    $skip_symlinks_setting++;
  } elsif ( $option eq "--rebuild" ){
    # info is always rebuilt, so this option is not needed.
    # It is preserved as a no-op for old maintainer scripts.
  } elsif ( $option eq "--triggered" ){
    # Do not try to enable update-default-$class} trigger but run the script.
    $triggered++;
  } else {
    die "update-default-$class: Bad option \"$option\". Aborting..."
  }
}

version ('2.0');

updatedb ($class);
my $dictionaries = loaddb ($class);

# Preprocess default symlinks
dico_preprocess_default_symlinks ($class,$dictionaries);

# Enable trigger if needed. Exit cleanly on success.
unless ( $triggered ){
  exit if dico_activate_trigger("update-default-$class");
}

my $manual;
my $question  = "dictionaries-common/default-$class";
my $iquestion = "dictionaries-common/invalid_debconf_value";
my $debconf_dbase_corruption_question = "dictionaries-common/debconf_database_corruption";
my $newflag   = "/var/cache/dictionaries-common/flag-$class-new";

# This flag is intended for remove-default-$class. If we are here we do not
# need it any longer, so we reset for future apt runs by cleaning it.
if ( -f $newflag ){
  print STDERR "$program: Removing $newflag\n" if $debug;
  unlink $newflag
    or print STDERR " $program: Warning: could not remove $newflag\n";
}

my ($ret, $value)  = get ($question);
if ( $ret == 0 && $value ){
  # Question has a value
  if ( $value =~ m/^Manual.*/i ){
    # Question is set to manual mode
    print STDERR "$program: Manual mode for \"$class\"\n" if $debug;
    $manual++;
  } elsif ( not %$dictionaries ) {
    # Question has a value, but no manual mode and no class elements available. Unset value.
    print STDERR "$program: No Manual mode and no $class elements. $question unset.\n" if $debug;
    $value = "";
    set($question,$value);
    $manual++;
  } else {
    # Normal case, question has a value and is set to one of the installed class elements.
    print STDERR "$program: Default is set to \"$value\" for \"$class\"\n" if $debug;
  }
} elsif ( not %$dictionaries ) {
  # Question is empty. No default nor class elements available. Proceed as for manual.
  print STDERR "$program: No \"$class\" elements left.\n" if $debug;
  $manual++;
} else { # Question is empty, but $class elements are installed.

# This seems to be debconf database corruption. Warn loudly about it.
  my %class_pkgs = ();
  foreach my $lang ( keys %{$dictionaries} ){
    if ( defined $dictionaries->{$lang}->{'package'} ){
      $class_pkgs{$dictionaries->{$lang}->{'package'}}++;
    }
  }
  my $class_packages = join (', ',sort keys %class_pkgs);

subst($debconf_dbase_corruption_question,"class_packages",$class_packages);
  subst($debconf_dbase_corruption_question,"question",$question);
  fset ($debconf_dbase_corruption_question,"seen","false");
  input("high",$debconf_dbase_corruption_question);
  title ("dictionaries-common: wordlists");
  go ();

# Try harder to get a value after default file
  my $dico_sysdefault = dico_getsysdefault($class);
  if ( defined $dico_sysdefault ){ # Not undef. Can be an empty or non-empty string.
    if ( $dico_sysdefault ){ # True: Non-empty string and not 0
      if ( defined $dictionaries->{$dico_sysdefault} ){
	$value = $dico_sysdefault;
	set($question,$value);
	print STDERR "$program: Missing value for \"$question\" question. Using \"$value\"\n";
      }
    } else { # False: The empty string or 0
      $value = "Manual symlinks setting (Forced after default file)";
      set($question,$value);
      $manual++;
    }
  }
}

unless ( $manual ){
  # Handle invalid debconf values
  if ( not exists $dictionaries->{$value} ){
    # This can happen because either an invalid debconf value or a
    # void value due to debconf database corruption. Try after stored
    # values to stay in the safe side.
    my @available_keys = sort {lc $a cmp lc $b} keys %$dictionaries;
    my $choices    = join (', ', sort {lc $a cmp lc $b} @available_keys);
    print STDERR "$program: Trying to get a default value from \"$choices\"\n";
    my $forced_key = $available_keys[0] ||
      die "$program: Selected wordlist" .
	" \"$value\" \n" .
	"does not correspond to any installed package in the system\n" .
	"and no alternative wordlist could be selected.\n";

# Warn about what might have happened if not debconf database corruption
    if ( $value ){
      subst($iquestion,"value",$value);
      fset ($iquestion,"seen","false");
      input("high",$iquestion);
    }

# Prepare a selection box to get a default.
    subst ($question, "choices", $choices);  # Put sane values in debconf choices field
    subst ($question, "echoices", $choices); # Put sane values in debconf echoices field
    set ($question, $forced_key);            # Set debconf value to a sane one
    fset ($question,"seen","false");
    input ("critical", $question);
    title ("dictionaries-common: wordlists");
    go ();
    ($ret, $value) = get ($question);
    die "\n Could not get a valid value for debconf question:\n" .
      "$question\n"
      if ( $ret != 0 ); # This should never be reached

# Set manual flag if needed to avoid later symlinking
    $manual++ if ( $value =~ m/^Manual.*/i );
  }
}

# Set default value for ispell dictionaries and wordlists
if ( $manual ){
  dico_setsysdefault ($class,"");
} else {
  dico_setsysdefault ($class,$value);
}

# Set default symlink(s) and complain if not possible.
# For ispell dictionaries using auto-buildhash this should not be done
# from dictionaries-common postinst, but from ispell dictionaries postinst.
# Otherwise this is called before hashes are autobuild and will fail.
# d-c.postinst will call update-default-ispell with --skip-symlinks option.
unless ( $skip_symlinks_setting or $manual ) {
 dico_set_default_symlink($class,$value);
}

# Local Variables:
#  perl-indent-level: 2
# End:

__END__

=head1 NAME

update-default-wordlist - update default wordlist

=head1 SYNOPSIS

update-default-wordlist [--skip-symlinks] [--triggered]

=head1 DESCRIPTION

WARNING: Not to be used from the command line unless you know very well what you are doing.

This program is intended to be called from wordlist package postinst,
from B<select-default-wordlist> or
from dictionaries-common postinst.

When called under dpkg control with the B<--trigger> option the
script is run normally, otherwise the dictionaries-common
B<update-default-wordlist> trigger is enabled
for later run.

With the B<--skip-symlinks> option the symlinks setting is skipped.

When run normally (from the command line or with B<--trigger>)
this script rebuilds the info at
F</var/cache/dictionaries-common/wordlist.db>
after files under F</var/lib/dictionaries-common/wordlist>,
reads the system default from the debconf database and
unless disabled, set default symlinks in F</etc/dictionaries-common>
pointing to the appropriate files in
F</usr/share/dict/>.

=head1 OPTIONS

--skip-symlinks  Do not try to set symlinks at /etc/dictionaries-common dir.
 --triggered      Run all the code instead of trying to enable
                  update-default-wordlist trigger

=head1 SEE ALSO

The dictionaries-common policy document

=head1 AUTHORS

Rafael Laboissiere,
Agustin Martin Domingo

=cut