Gecko [ v99win.today ]

Name	Size	Permission
Dialog.pm	7.65 KB	-rw-r--r--
Editor.pm	2.11 KB	-rw-r--r--
Gnome.pm	7.34 KB	-rw-r--r--
Kde.pm	2.04 KB	-rw-r--r--
Noninteractive.pm	734 B	-rw-r--r--
Passthrough.pm	6.99 KB	-rw-r--r--
Readline.pm	3.53 KB	-rw-r--r--
ScreenSize.pm	881 B	-rw-r--r--
Teletype.pm	1.54 KB	-rw-r--r--
Text.pm	155 B	-rw-r--r--
Web.pm	2.6 KB	-rw-r--r--

Code Editor : 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};
	}
}

${this.title}

Code Editor : Kde.pm