AnonSec Shell

. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . AnonSec Shell AnonSec Shell

Server IP : 20.75.53.88 / Your IP : 216.73.217.165 [ Reverse IP ]
Web Server : Apache
System : Linux VMRALP-3 4.4.0-256-generic #290~14.04.1-Ubuntu SMP Thu Jun 20 09:24:50 UTC 2024 x86_64
User : www-data ( 33)
PHP Version : 5.5.9-1ubuntu4.29+esm15
Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,
Domains : 3 Domains
MySQL : ON | cURL : OFF | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON
Directory : /var/www/disk_so_ralp/usr/bin/

Upload File :

[ HOME ] [ BACKUP SHELL ] [ JUMPING ] [ MASS DEFACE ] [ SCAN ROOT ] [ SYMLINK ]

Current File : /var/www/disk_so_ralp/usr/bin/dh_phppear

#!/usr/bin/perl -w

=head1 NAME

dh_phppear - calculates PHP PEAR dependencies

=head1 SYNOPSIS

B<dh_phppear> [S<I<debhelper options>>]

=head1 DESCRIPTION

B<dh_phppear> is a debhelper program that is responsible for generating
the B<${phppear:*}> substitutions and adding them to substvars files.

The program will look at F<package.xml> (or F<package2.xml>) in your package,
and will use this information to generate:

=over 2

=item *

B<${phppear:summary}>, B<${phppear:description}> and B<${phppear:channel}>

=item *

B<${phppear:Debian-Depends}>, B<${phppear:Debian-Recommends}> and B<${phppear:Debian-Breaks}>

=back

The program will look at F<channel.xml> in your package,
and will use this information to generate:

=over 2

=item *

B<${phppear:channel-name}>, B<${phppear:channel-summary}> and B<${phppear:channel-alias}>

=item *

B<${phppear:channel-common-description}>

=back

Those variables will be substituted into your package's F<control>
file wherever you place the token B<${phppear:*}>.

=head1 FILES

=over 4

=item debian/pkg-php-tools-overrides

Package that don't want to follow automatic PEAR package name to Debian package
name conversion can override the conversion by creating this file.

It can be installed in B</usr/share/pkg-php-tools/overrides/>I<src:package>.

This feature requires pkg-php-tools (>= 1~).

The format is a set of lines, with each line having the following fields:

=over 6

=item I<channel_url>

The channel URL as found in package.xml (example: I<pear.phpunit.de>).

=item I<pear_package_name>

The PEAR package name (example: I<phpunit>).

=item I<debian_package_name>

The resulting Debian package name (example: I<phpunit>).

Use I<builtin> if the package is compiled from the php5 sourcepackage.

Use I<none> if the PEAR package can't be simply translated to Debian name.

=back

=back

=cut

use strict;
use Config;
use Debian::Debhelper::Dh_Lib;
use Text::Wrap;


sub _shell_exec {
	my $command=shift;
	my $output = `$command`;
	if ($? == -1) {
		error("$command failed to execute: $!");
	}
	elsif ($? & 127) {
		error("$command died with signal ".($? & 127));
	}
	elsif ($? != 0) {
		error("$command returned exit code ".($? >> 8));
	}
	return $output;
}

init();

foreach my $package (@{$dh{DOPACKAGES}}) {
	if (-e "package.xml" || -e "package2.xml") {
		my $deps = _shell_exec('/usr/share/pkg-php-tools/scripts/phppkginfo -d debian_deps .');
		for (split /^/, $deps) {
			/^(\w+):\s*(.*)$/;
			addsubstvar($package, "phppear:Debian-".$1, $2);
		}
		my $summary = _shell_exec('/usr/share/pkg-php-tools/scripts/phppkginfo -d summary .');
		$summary =~ s/\.$//;
		addsubstvar($package, "phppear:summary", $summary);
		my $description = _shell_exec('/usr/share/pkg-php-tools/scripts/phppkginfo -d description .');
		$description =~ s/^\s*//mg;
		$description =~ s/^\*/ */mg;
		local($Text::Wrap::separator) = '${Newline}';
		# Wrap and replace empty lines with a dot
		$description = join('${Newline}.${Newline}', split('${Newline}${Newline}', wrap("", "", $description)));
		$description =~ s/\t+/ /g;
		addsubstvar($package, "phppear:description", $description);
		addsubstvar($package, "phppear:channel", _shell_exec('/usr/share/pkg-php-tools/scripts/phppkginfo -d channel .'));
	}
	if (-e "channel.xml") {
		addsubstvar($package, "phppear:channel-name", _shell_exec('/usr/share/pkg-php-tools/scripts/phppkginfo -d channel_name channel.xml'));
		addsubstvar($package, "phppear:channel-summary", _shell_exec('/usr/share/pkg-php-tools/scripts/phppkginfo -d channel_summary channel.xml'));
		my $alias = _shell_exec('/usr/share/pkg-php-tools/scripts/phppkginfo -d channel_alias channel.xml');
		addsubstvar($package, "phppear:channel-alias", $alias);
		my $common_desc = "This is the PEAR channel registry entry for $alias.\n\n".
			"PEAR is a framework and distribution system for reusable PHP components. ".
			"A PEAR channel is a website that provides package for download and a few extra meta-information for files.";
		local($Text::Wrap::separator) = '${Newline}';
		# Wrap and replace empty lines with a dot
		$common_desc = join('${Newline}.${Newline}', split('${Newline}${Newline}', wrap("", "", $common_desc)));
		addsubstvar($package, "phppear:channel-common-description", $common_desc);
	}
}

=head1 CONFORMS TO

Debian policy, version 3.9.4

PHP PEAR policy, version yet-to-be-written

=head1 SEE ALSO

F</usr/share/doc/pkg-php-tools/README.PEAR>, L<pkg-php-tools(7)>

L<debhelper(7)> (Note: This program is not part of debhelper)

=head1 AUTHOR

Mathieu Parent <sathieu@debian.org>

Anon7 - 2022
AnonSec Team