Server IP : 85.214.239.14 / Your IP : 3.137.162.107 Web Server : Apache/2.4.62 (Debian) System : Linux h2886529.stratoserver.net 4.9.0 #1 SMP Tue Jan 9 19:45:01 MSK 2024 x86_64 User : www-data ( 33) PHP Version : 7.4.18 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, MySQL : OFF | cURL : OFF | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : OFF Directory : /proc/2/cwd/proc/2/root/proc/2/cwd/usr/share/debconf/ |
Upload File : |
#!/usr/bin/perl -w # This file was preprocessed, do not edit! use strict; use Debconf::Db; use Debconf::Template; use Debconf::AutoSelect qw(:all); use Debconf::Log qw(:all); Debconf::Db->load; debug developer => "frontend started"; my $frontend=make_frontend(); shift @ARGV if $ARGV[0] eq '--'; my $package; my $no_title=0; my $root=$ENV{DPKG_ROOT} // ''; if ($ENV{DEBCONF_PACKAGE}) { $package=$ENV{DEBCONF_PACKAGE}; } elsif ($ARGV[0]=~m!^.*/(.*?)\.(?:postinst|postrm|prerm)$!) { $package=$1; my $action=$ARGV[1]; $no_title=1 if $action eq 'triggered'; } elsif (-e "$root/var/lib/dpkg/tmp.ci/control") { open (CONTROL, "< $root/var/lib/dpkg/tmp.ci/control") || die "Debconf: unable to open control file: $!"; while (<CONTROL>) { if (/^Package: (.*)/) { $package=$1; last; } } close CONTROL; if (! exists $ENV{PERL_DL_NONLAZY} || ! $ENV{PERL_DL_NONLAZY}) { warn "PERL_DL_NONLAZY is not set, if debconf is running from a preinst script, this is not safe"; } } else { $package=''; debug developer => 'Trying to find a templates file..'; sub trytemplate { my $fn=shift; debug developer => "Trying $fn"; if (-e $fn) { debug developer => "I guess it is $fn"; Debconf::Template->load($fn, $package); return 1; } else { return; } } unless (trytemplate("$ARGV[0].templates")) { unless ($ARGV[0]=~m/(.*)config$/ && trytemplate("${1}templates")) { unless ($ARGV[0]=~m!^(?:.*/)?(.*)! && trytemplate("/usr/share/debconf/templates/${1}.templates")) { debug developer => "Couldn't find a templates file." } } } } debug developer => "frontend running, package name is $package"; $frontend->default_title($package) if length $package and !$no_title; $frontend->info(undef); if ($ARGV[0] =~/^(.*[.\/])(?:preinst|postinst|prerm|postrm)$/) { my $base=$1; my $templates=$base."templates"; Debconf::Template->load($templates, $package) if -e $templates; } if ($ARGV[0] =~/^(.*[.\/])(?:postinst|preinst)$/) { my $base=$1; my $config=$base."config"; if (-e $config) { my $version=$ARGV[2]; if (! defined($version)) { $version=''; } my $confmodule=make_confmodule($config, "configure", $version); $confmodule->owner($package); 1 while ($confmodule->communicate); exit $confmodule->exitcode if $confmodule->exitcode > 0; } } my $confmodule=make_confmodule(@ARGV); $confmodule->owner($package); 1 while ($confmodule->communicate); $frontend->shutdown; Debconf::Db->save; exit $confmodule->exitcode;