Gecko [ contributie.vriendennsm.nl ]

Name	Size	Permission	Date
aa-exec	22.16 KB	-rwxr-xr-x	2023-06-29 11:30
aa-remove-unknown	2.86 KB	-rwxr-xr-x	2023-06-29 11:30
aa-status	7.11 KB	-rwxr-xr-x	2023-06-29 11:30
add-shell	695 B	-rwxr-xr-x	2016-01-26 18:17
addgroup	36.4 KB	-rwxr-xr-x	2015-07-02 20:11
adduser	36.4 KB	-rwxr-xr-x	2015-07-02 20:11
apparmor_status	7.11 KB	-rwxr-xr-x	2023-06-29 11:30
arp	54.09 KB	-rwxr-xr-x	2014-06-30 13:19
arpd	46.74 KB	-rwxr-xr-x	2019-04-16 12:37
chat	26.01 KB	-rwxr-xr-x	2020-07-23 15:09
chgpasswd	53.33 KB	-rwxr-xr-x	2024-02-07 10:59
chpasswd	49.43 KB	-rwxr-xr-x	2024-02-07 10:59
chroot	38.8 KB	-rwxr-xr-x	2017-03-02 18:07
cpgr	51.48 KB	-rwxr-xr-x	2024-02-07 10:59
cppw	51.48 KB	-rwxr-xr-x	2024-02-07 10:59
cron	43.43 KB	-rwxr-xr-x	2022-05-10 22:15
delgroup	16.13 KB	-rwxr-xr-x	2015-07-02 20:11
deluser	16.13 KB	-rwxr-xr-x	2015-07-02 20:11
dnsmasq	452.91 KB	-rwxr-xr-x	2024-04-23 19:46
dpkg-preconfigure	3.52 KB	-rwxr-xr-x	2019-05-08 18:33
dpkg-reconfigure	4.23 KB	-rwxr-xr-x	2019-05-08 18:33
e2freefrag	10.24 KB	-rwxr-xr-x	2022-06-03 20:47
e4defrag	26.53 KB	-rwxr-xr-x	2022-06-03 20:47
faillock	14.4 KB	-rwxr-xr-x	2024-03-19 16:18
fanatic	35.21 KB	-rwxr-xr-x	2017-12-12 16:13
fanctl	41.97 KB	-rwxr-xr-x	2019-04-23 10:35
fdformat	22.57 KB	-rwxr-xr-x	2022-06-14 21:28
filefrag	14.31 KB	-rwxr-xr-x	2022-06-03 20:47
genl	46.69 KB	-rwxr-xr-x	2019-04-16 12:37
groupadd	57.42 KB	-rwxr-xr-x	2024-02-07 10:59
groupdel	65.83 KB	-rwxr-xr-x	2024-02-07 10:59
groupmod	67.7 KB	-rwxr-xr-x	2024-02-07 10:59
grpck	53.31 KB	-rwxr-xr-x	2024-02-07 10:59
grpconv	49.19 KB	-rwxr-xr-x	2024-02-07 10:59
grpunconv	49.2 KB	-rwxr-xr-x	2024-02-07 10:59
iconvconfig	26.66 KB	-rwxr-xr-x	2025-02-07 13:34
invoke-rc.d	19.41 KB	-rwxr-xr-x	2016-11-29 17:28
ip6tables-apply	6.85 KB	-rwxr-xr-x	2016-02-19 15:20
iptables-apply	6.85 KB	-rwxr-xr-x	2016-02-19 15:20
ldattach	26.63 KB	-rwxr-xr-x	2022-06-14 21:28
logrotate	63.11 KB	-rwxr-xr-x	2017-08-10 15:16
mkinitramfs	10.24 KB	-rwxr-xr-x	2019-10-07 10:53
mklost+found	10.25 KB	-rwxr-xr-x	2022-06-03 20:47
netplan	17.94 KB	-rwxr-xr-x	2019-09-27 16:27
newusers	73.84 KB	-rwxr-xr-x	2024-02-07 10:59
nfnl_osf	14.37 KB	-rwxr-xr-x	2016-02-19 15:21
nologin	5.95 KB	-rwxr-xr-x	2024-02-07 10:59
pam-auth-update	19.09 KB	-rwxr-xr-x	2024-03-19 16:16
pam_getenv	2.82 KB	-rwxr-xr-x	2024-03-19 16:16
pam_timestamp_check	10.38 KB	-rwxr-xr-x	2024-03-19 16:18
pppd	385.73 KB	-rwsr-xr--	2020-07-23 15:09
pppdump	18.1 KB	-rwxr-xr-x	2020-07-23 15:09
pppoe-discovery	18 KB	-rwxr-xr-x	2020-07-23 15:09
pppstats	13.99 KB	-rwxr-xr-x	2020-07-23 15:09
pwck	45.36 KB	-rwxr-xr-x	2024-02-07 10:59
pwconv	41.27 KB	-rwxr-xr-x	2024-02-07 10:59
pwunconv	36.43 KB	-rwxr-xr-x	2024-02-07 10:59
readprofile	14.52 KB	-rwxr-xr-x	2022-06-14 21:28
remove-shell	749 B	-rwxr-xr-x	2016-01-26 18:17
rfkill	10.29 KB	-rwxr-xr-x	2018-06-20 11:54
rmt	54.95 KB	-rwxr-xr-x	2023-12-06 12:12
rmt-tar	54.95 KB	-rwxr-xr-x	2023-12-06 12:12
rsyslogd	585.28 KB	-rwxr-xr-x	2022-05-23 17:31
rtcwake	38.8 KB	-rwxr-xr-x	2022-06-14 21:28
service	9.82 KB	-rwxr-xr-x	2016-09-12 08:57
setvesablank	10.27 KB	-rwxr-xr-x	2016-09-22 17:33
sshd	772.48 KB	-rwxr-xr-x	2025-02-18 15:23
tarcat	936 B	-rwxr-xr-x	2023-12-06 12:12
tunelp	22.53 KB	-rwxr-xr-x	2022-06-14 21:28
tzconfig	106 B	-rwxr-xr-x	2025-04-03 16:57
update-alternatives	46.61 KB	-rwxr-xr-x	2022-05-27 10:37
update-ca-certificates	5.25 KB	-rwxr-xr-x	2024-09-25 19:45
update-initramfs	8.38 KB	-rwxr-xr-x	2019-10-07 10:53
update-mime	8.84 KB	-rwxr-xr-x	2015-10-30 15:39
update-passwd	30.41 KB	-rwxr-xr-x	2016-01-02 23:13
update-rc.d	14.1 KB	-rwxr-xr-x	2016-02-29 12:24
useradd	118.72 KB	-rwxr-xr-x	2024-02-07 10:59
userdel	81.92 KB	-rwxr-xr-x	2024-02-07 10:59
usermod	118.5 KB	-rwxr-xr-x	2024-02-07 10:59
vcstime	6.26 KB	-rwxr-xr-x	2016-09-22 17:33
vigr	55.7 KB	-rwxr-xr-x	2024-02-07 10:59
vipw	55.7 KB	-rwxr-xr-x	2024-02-07 10:59
visudo	187.89 KB	-rwxr-xr-x	2025-06-26 17:58
zic	50.54 KB	-rwxr-xr-x	2025-02-07 13:34

Rename

#!/usr/bin/perl -w
# This file was preprocessed, do not edit!

if (exists $ENV{DEBCONF_USE_CDEBCONF} and $ENV{DEBCONF_USE_CDEBCONF} ne '') {
    exec "/usr/lib/cdebconf/dpkg-reconfigure", @ARGV;
}

use strict;
use Debconf::Db;
use Debconf::Gettext;
use Debconf::Template;
use Debconf::Config;
use Debconf::AutoSelect qw(:all);
use Debconf::Log qw(:all);

Debconf::Config->priority('low');

my $unseen_only=0;
my $force=0;
my $default_priority=0;
my $reload=1;
Debconf::Config->getopt(
gettext(qq{Usage: dpkg-reconfigure [options] packages
  -u,  --unseen-only		Show only not yet seen questions.
       --default-priority	Use default priority instead of low.
       --force			Force reconfiguration of broken packages.
       --no-reload		Do not reload templates. (Use with caution.)}),
	"unseen-only|u"		=> \$unseen_only,
	"default-priority"	=> \$default_priority,
	"force"			=> \$force,
	"reload!"		=> \$reload,
);

if ($> != 0) {
	print STDERR sprintf(gettext("%s must be run as root"), $0)."\n";
	exit 1;
}

Debconf::Db->load;

if ($default_priority) {
	Debconf::Config->priority(Debconf::Question->get('debconf/priority')->value);
}

if (lc Debconf::Config->frontend eq 'noninteractive' &&
    ! Debconf::Config->frontend_forced) {
	Debconf::Config->frontend('dialog');
}

my $frontend=make_frontend();

unless ($unseen_only) {
	Debconf::Config->reshow(1);
}

my @packages=@ARGV;
if (! @packages) {
	print STDERR "$0: ".gettext("please specify a package to reconfigure")."\n";
	exit 1;
}

$ENV{DEBCONF_RECONFIGURE}=1;

my %initial_triggers=map { $_ => 1 } triggers_pending();

foreach my $pkg (@packages) {
	$frontend->default_title($pkg);
	$frontend->info(undef);

$_=`dpkg --status $pkg`;
	my ($version)=m/Version: (.*)\n/;
	my ($status)=m/Status: (.*)\n/;
	my ($package)=m/Package: (.*)\n/;
	my ($arch)=m/Architecture: (.*)\n/;
	if (! $force) {
		if (! defined $status || $status =~ m/not-installed$/) {
			print STDERR "$0: ".sprintf(gettext("%s is not installed"), $pkg)."\n";
			exit 1;
		}
		if ($status !~ m/ ok installed$/) {
			print STDERR "$0: ".sprintf(gettext("%s is broken or not fully installed"), $pkg)."\n";
			exit 1;
		}
	}
	
	my @control_paths=`dpkg-query --control-path $pkg`;
	map chomp, @control_paths;
	my $control_path = sub {
		my $file = shift;
		my $path = (grep /\.\Q$file\E$/, @control_paths)[0];
		chomp($path) if defined $path;
		return $path;
	};

if ($reload) {
		my $templates=$control_path->('templates');
		if ($templates and -e $templates) {
			Debconf::Template->load($templates, $pkg);
		}
	}

foreach my $info (['prerm',    'upgrade',     $version],
		          ['config',   'reconfigure', $version],
			  ['postinst', 'configure',   $version]) {
		my $script=shift @$info;
		my $path_script=$control_path->($script);

next unless $path_script and -x $path_script;

my $is_confmodule='';

$ENV{DPKG_MAINTSCRIPT_PACKAGE}=$package;
		$ENV{DPKG_MAINTSCRIPT_ARCH}=$arch;
		$ENV{DPKG_MAINTSCRIPT_NAME}=$script;

if ($script ne 'config') {
			open (IN, "<$path_script");
			while (<IN>) {
				if (/confmodule/i) {
					$is_confmodule=1;
					last;
				}
			}
			close IN;
		}
		
		if ($script eq 'config' || $is_confmodule) {
			my $confmodule=make_confmodule($path_script, @$info);
	
			$confmodule->owner($pkg);
		
			1 while ($confmodule->communicate);
	
			exit $confmodule->exitcode if $confmodule->exitcode > 0;
		}
		else {
			run_external($path_script, @$info);
		}
	}
}

my @new_triggers;
do {
	@new_triggers=();
	foreach my $trigpend (triggers_pending()) {
		push @new_triggers, $trigpend
			if not exists $initial_triggers{$trigpend};
	}
	if (@new_triggers) {
		run_external("dpkg", "--configure", @new_triggers);
	}
} while (@new_triggers);

$frontend->shutdown;

Debconf::Db->save;

sub run_external {
	Debconf::Db->save;
	
	delete $ENV{DEBIAN_HAS_FRONTEND};
	my $ret=system(@_);
	if (int($ret / 256) != 0) {
		exit int($ret / 256);
	}
	$ENV{DEBIAN_HAS_FRONTEND}=1;
	
	Debconf::Db->load;
}

sub triggers_pending {
	my @ret;
	local $_;

open (QUERY, '-|', 'dpkg-query', '-W',
		'-f', '${Package} ${binary:Package}\t${Triggers-Pending}\n');
	while (<QUERY>) {
		chomp;
		my ($pkgnames, $triggers) = split /\t/;
		if (length $triggers) {
			my ($pkg, $binpkg) = split ' ', $pkgnames;
			push @ret, (length $binpkg ? $binpkg : $pkg);
		}
	}
	close QUERY;

return @ret;
}