SkidSec WebShell

Server Address : 172.31.38.4

Web Server : Apache/2.4.58 (Ubuntu)

Uname : Linux ip-172-31-38-4 6.14.0-1017-aws #17~24.04.1-Ubuntu SMP Wed Nov 5 10:48:17 UTC 2025 x86_64

PHP Version : 7.4.33

#!/usr/bin/perl =head1 NAME debconf - run a debconf-using program =cut =head1 SYNOPSIS debconf [options] command [args] =head1 DESCRIPTION Debconf is a configuration system for Debian packages. For a debconf overview and documentation for sysadmins, see L<debconf(7)> (in the debconf-doc package). The B<debconf> program runs a program under debconf's control, setting it up to talk with debconf on stdio. The program's output is expected to be debconf protocol commands, and it is expected to read result codes on stdin. See L<debconf-devel(7)> for details about the debconf protocol. The command to be run under debconf must be specified in a way that will let your PATH find it. This command is not the usual way that debconf is used. It's more typical for debconf to be used via L<dpkg-preconfigure(8)> or L<dpkg-reconfigure(8)>. =head1 OPTIONS =over 4 =item B<-o>I<package>, B<--owner=>I<package> Tell debconf what package the command it is running is a part of. This is necessary to get ownership of registered questions right, and to support unregister and purge commands properly. =item B<-f>I<type>, B<--frontend=>I<type> Select the frontend to use. =item B<-p>I<value>, B<--priority=>I<value> Specify the minimum priority of question that will be displayed. =item B<--terse> Enables terse output mode. This affects only some frontends. =back =head1 EXAMPLES To debug a shell script that uses debconf, you might use: DEBCONF_DEBUG=developer debconf my-shell-prog Or, you might use this: debconf --frontend=readline sh -x my-shell-prog =head1 SEE ALSO L<debconf-devel(7)>, L<debconf(7)> =cut use warnings; use strict; use Debconf::Db; use Debconf::AutoSelect qw(:all); use Debconf::Gettext; use Debconf::Config; # Find the end of the options for this command, and the beginning of the # command to run, which may have arguments. Break those arguments out. my (@argv, @command); for (my $x=0; $x <= $#ARGV; $x++) { if ($ARGV[$x] =~ /^-(o|f|p|-(owner|frontend|priority))$/) { push @argv, $ARGV[$x++]; push @argv, $ARGV[$x] if defined $ARGV[$x]; # skip option argument next; } elsif ($ARGV[$x] =~ /^-/) { push @argv, $ARGV[$x]; } else { # end of arguments, start of command @command=@ARGV[$x..$#ARGV]; last; } } @ARGV=@argv; my $usage = gettext("Usage: debconf [options] command [args]"); my $owner=''; Debconf::Config->getopt($usage.gettext(qq{ -o, --owner=package Set the package that owns the command.}), "o|owner=s" => \$owner, ); die "$usage\n" unless @command; Debconf::Db->load; my $frontend=make_frontend(); my $confmodule=make_confmodule(@command); $confmodule->owner($owner) if length $owner; 1 while ($confmodule->communicate); my $code=$confmodule->exitcode; $frontend->shutdown; $confmodule->finish; Debconf::Db->save; exit $code; =head1 AUTHOR Joey Hess <joeyh@debian.org> =cut