view release on metacpan or  search on metacpan

lib/Apache/HTTunnel/Keeper.pm  view on Meta::CPAN

	if (! defined($apache_uid)){
		$apache_uid = -1 ;
	}
	if (! defined($apache_gid)){
		$apache_gid = -1 ;
	}

	$slog->debug("HTTunnel Keeper: Apache User is '$apache_user' ($apache_uid)") ;
	$slog->debug("HTTunnel Keeper: Apache Group is '$apache_group' ($apache_gid)") ;
	chown($apache_uid, $apache_gid, $fifo) or die("Can't chown '$fifo': $!") ;
	chmod(0600, $fifo) or die("Can't chmod '$fifo': $!") ;
}


# Now that everything is all set, we can fork and let the child do the work.
my $lifeline = new IO::Pipe() ;
my $pid = fork() ;
die("Can't fork: $!") unless defined($pid) ;
if ($pid){
	# parent
	$slog->notice("HTTunnel Keeper: Keeper process forked, pid is $pid") ;