#acupoftea - translucent.aimfirst.dev

System	:	Linux c09cd04ddcf6 5.15.0-151-generic #161-Ubuntu SMP Tue Jul 22 14:25:40 UTC 2025 x86_64
Software	:	Apache/2.4.51 (Debian)
Server	:	115.78.7.179
Domains	:	Cant read /etc/named.conf
Permission	:	[ drwxr-xr-x ]
	:	/ usr / share / perl5 / Debconf / FrontEnd /

10.0.1.161

Home

File Kde.pm

package Debconf::FrontEnd::Kde;

use strict;
use warnings;
use IO::Handle;
use Fcntl;
use POSIX ":sys_wait_h";
use Debconf::Config;
use base "Debconf::FrontEnd::Passthrough";

sub clear_fd_cloexec {
	my $fh = shift;
	my $flags;
	$flags = $fh->fcntl(F_GETFD, 0);
	$flags &= ~FD_CLOEXEC;
	$fh->fcntl(F_SETFD, $flags);
}

sub init {
	my $this = shift;

$this->need_tty(0);

pipe my $dc2hp_readfh, my $dc2hp_writefh;
	pipe my $hp2dc_readfh, my $hp2dc_writefh;

my $helper_pid = fork();
	if (!defined $helper_pid) {
		die "Unable to fork for execution of debconf-kde-helper: $!\n";
	} elsif ($helper_pid == 0) {
		close $hp2dc_readfh;
		close $dc2hp_writefh;
		clear_fd_cloexec($dc2hp_readfh);
		clear_fd_cloexec($hp2dc_writefh);
		my $debug = Debconf::Config->debug;
		local $ENV{QT_LOGGING_RULES} = 'org.kde.debconf.debug=false'
			unless $debug && 'kde' =~ /$debug/;
		my $fds = sprintf("%d,%d", $dc2hp_readfh->fileno(), $hp2dc_writefh->fileno());
		if (!exec("debconf-kde-helper", "--fifo-fds=$fds")) {
			print STDERR "Unable to execute debconf-kde-helper - is debconf-kde-helper installed?";
			exit(10);
		}
	}

close $dc2hp_readfh;
	close $hp2dc_writefh;

$this->{kde_helper_pid} = $helper_pid;
	$this->{readfh} = $hp2dc_readfh;
	$this->{writefh} = $dc2hp_writefh;
	$this->SUPER::init();

my $timeout = 15;
	my $tag = $this->talk_with_timeout($timeout, "X_PING");
	unless (defined $tag && $tag == 0) {
		close $hp2dc_readfh;
		close $dc2hp_writefh;
		if (waitpid($helper_pid, WNOHANG) == $helper_pid) {
			die "debconf-kde-helper terminated abnormally (exit status: " . WEXITSTATUS($?) . ")\n";
		} elsif (kill(0, $helper_pid) == 1) {
			kill 9, $helper_pid;
			waitpid($helper_pid, 0);
		}
		if (defined $tag) {
			die "debconf-kde-helper failed to respond to ping. Response was $tag\n";
		} else {
			die "debconf-kde-helper did not respond to ping in $timeout seconds\n";
		}
	}
}

sub shutdown {
	my $this = shift;
	$this->SUPER::shutdown();
	if (defined $this->{kde_helper_pid}) {
	    waitpid $this->{kde_helper_pid}, 0;
		delete $this->{kde_helper_pid};
	}
}

Name	Type	Size	Permission	Last Modified	Actions
.	DIR	-	drwxr-xr-x	2021-12-20 12:00:00
..	DIR	-	drwxr-xr-x	2021-12-20 12:00:00
Dialog.pm	text/x-perl	7.65 KB	-rw-r--r--	2021-06-10 05:17:49
Editor.pm	text/x-perl	2.11 KB	-rw-r--r--	2021-06-10 05:17:49
Gnome.pm	text/x-perl	7.34 KB	-rw-r--r--	2021-06-10 05:17:49
Kde.pm	text/plain	2.04 KB	-rw-r--r--	2021-06-10 05:17:49
Noninteractive.pm	text/x-perl	734 B	-rw-r--r--	2021-06-10 05:17:49
Passthrough.pm	text/x-perl	6.99 KB	-rw-r--r--	2021-06-10 05:17:49
Readline.pm	text/x-perl	3.53 KB	-rw-r--r--	2021-06-10 05:17:49
ScreenSize.pm	text/x-perl	881 B	-rw-r--r--	2021-06-10 05:17:49
Teletype.pm	text/x-perl	1.54 KB	-rw-r--r--	2021-06-10 05:17:49
Text.pm	text/x-perl	155 B	-rw-r--r--	2021-06-10 05:17:49
Web.pm	text/x-perl	2.6 KB	-rw-r--r--	2021-06-10 05:17:49