#!/usr/bin/perl -w

=head1 NAME

dh_phpcomposer - calculates PHP Composer substvars

=head1 SYNOPSIS

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

=head1 DESCRIPTION

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

The program will look for F<composer.json> file in your package root,
and will use this information to generate:

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

=over 2

=item *

B<${phpcomposer:name}> and B<${phpcomposer:description}>

=item *

B<${phpcomposer:Debian-require}>, B<${phpcomposer:Debian-require-dev}>,
B<${phpcomposer:Debian-conflict}>, B<${phpcomposer:Debian-replace}>,
B<${phpcomposer:Debian-provide}> and B<${phpcomposer:Debian-suggest}>

=back

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

=head1 FILES

=over 4

=item debian/pkg-php-tools-overrides

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

More information is available L<dh_phppear(1)>

=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 "composer.json") {
		my $substvars = _shell_exec('/usr/share/pkg-php-tools/scripts/phppkginfo -d composer_substvars .');
		for (split /^/, $substvars) {
			if (/^([\w-]+):\s*(.*)$/) {
				if ($1 eq 'description') {
					local($Text::Wrap::separator) = '${Newline}';
					# Wrap and replace empty lines with a dot
					my $description = join('${Newline}.${Newline}', split('${Newline}${Newline}', wrap("", "", $2)));
					addsubstvar($package, "phpcomposer:description", $description);
				} else {
					addsubstvar($package, "phpcomposer:".$1, $2);
				}
			} else {
				warning("Malformed line: $_");
			}
		}
	}
}

=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.Composer>, L<pkg-php-tools(7)>

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

=head1 AUTHOR

Mathieu Parent <sathieu@debian.org>

