Uname:
Linux wputd 5.4.0-200-generic #220-Ubuntu SMP Fri Sep 27 13:19:16 UTC 2024 x86_64
Software:
Apache/2.4.41 (Ubuntu)
PHP version:
7.4.3-4ubuntu2.24 [ PHP INFO ] PHP os:
Linux
Server Ip:
158.69.144.88
Your Ip:
18.116.87.225
User:
www-data (33) | Group:
www-data (33)
Safe Mode:
OFF
Disable Function:
pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare,
#!/usr/bin/perl -w
# This file was preprocessed, do not edit!
use strict;
use Debconf::Db;
use Debconf::Log q{warn};
Debconf::Db->load;
if (! @ARGV || $ARGV[0] ne 'end') {
my $fix=0;
my $ok;
my $counter=0;
do {
$ok=1;
my %templates=();
my $ti=$Debconf::Db::templates->iterator;
while (my $t=$ti->iterate) {
$templates{$t}=Debconf::Template->get($t);
}
my %questions=();
my $qi=Debconf::Question->iterator;
while (my $q=$qi->iterate) {
if (! defined $q->template) {
warn "question \"".$q->name."\" has no template field; removing it.";
$q->addowner("killme",""); # make sure it has one owner at least, so removal is triggered
foreach my $owner (split(/, /, $q->owners)) {
$q->removeowner($owner);
}
$ok=0;
$fix=1;
}
elsif (! exists $templates{$q->template->template}) {
warn "question \"".$q->name."\" uses nonexistant template ".$q->template->template."; removing it.";
foreach my $owner (split(/, /, $q->owners)) {
$q->removeowner($owner);
}
$ok=0;
$fix=1;
}
else {
$questions{$q->name}=$q;
}
}
foreach my $t (keys %templates) {
my @owners=$Debconf::Db::templates->owners($t);
if (! @owners) {
warn "template \"$t\" has no owners; removing it.";
$Debconf::Db::templates->addowner($t, "killme","");
$Debconf::Db::templates->removeowner($t, "killme");
$fix=1;
}
foreach my $q (@owners) {
if (! exists $questions{$q}) {
warn "template \"$t\" claims to be used by nonexistant question \"$q\"; removing that.";
$Debconf::Db::templates->removeowner($t, $q);
$ok=0;
$fix=1;
}
}
}
$counter++;
} until ($ok || $counter > 20);
if ($fix) {
Debconf::Db->save;
exec($0, "end");
die "exec of self failed";
}
}
foreach my $templatefile (glob("/var/lib/dpkg/info/*.templates")) {
my ($package) = $templatefile =~ m:/var/lib/dpkg/info/(.*?).templates:;
Debconf::Template->load($templatefile, $package);
}
Debconf::Db->save;