#!/usr/bin/perl

use strict;
use debian::scripts::dh_helper;

my $control = 'debian/control';
my $dir;
if ( -d 'debian/packages.d' ) {
    $dir = 'debian/packages.d';
} else {
    $dir = 'debian';
}

my $dh;
if (defined($ENV{'DH_COMPAT'})) {
    $dh = $ENV{'DH_COMPAT'};
} else {
    $dh = 0;
}

my %config =  ( 'debug'=>0 );

my $temp;
if (@ARGV) {
    $temp = shift;
    if ($temp eq "clean") { $config{'needclean'} = 1; }
    elsif ($temp eq "makedeps") { $config{'needlist'} = 1; }
    elsif ($temp eq "gendeps") { $config{'needdeps'} = 1; }
}

my @packages = ();
my ${package};
my $first_package = "";

open (CONTROL, "< $control");

while (<CONTROL>) {
    if (m/^Package:/) {
	$package = (split)[1];
	if ($first_package eq "" and $dh < 2) {
		$first_package = $package;
	}
	if ( -f "${dir}/${package}.in" ) {
	    push @packages, $package;
	}
    }
}

close CONTROL;
print( "firstpackage: $first_package\n") if ($config{'debug'});

while (@packages) {
    $package = shift(@packages);
    if ($config{'needdeps'}) {
	print "${dir}/${package}.in ";
	next;
    }
    debhelper_split("${package}.in", "${debiandir}/${package}", 
		    0, \%config );
#`                  ^ append = false
}
