Test::AutoBuild::Stage::Apt - Create index for APT package management tool

  use Test::AutoBuild::Stage::Apt

  # Create an index of RPMs, structured by module, restricted
  # to only include the module 'autobuild-dev'
  my $stage = Test::AutoBuild::Stage::Apt->new(name => "apt",
					       label => "Create apt index",
					       options => {
						 directory => "/var/lib/builder/public_html/dist",
						 format => "rpm",
						 type => "modules",
						 components => ["autobuild-dev"],
					       });




  # Create an index of RPMs, structured by module, for all
  # configured modules
  my $stage = Test::AutoBuild::Stage::Apt->new(name => "apt",
					       label => "Create apt index",
					       options => {
						 directory => "/var/lib/builder/public_html/dist",
						 format => "rpm",
						 type => "modules",
					       });

  # Create an index of RPMs, structured by group, for all
  # configured groups
  my $stage = Test::AutoBuild::Stage::Apt->new(name => "apt",
					       label => "Create apt index",
					       options => {
						 directory => "/var/lib/builder/public_html/dist",
						 format => "rpm",
						 type => "groups",
					       });




  $stage->run($runtime);

# -*- perl -*-
#
# Test::AutoBuild::Stage::Apt
#
# Copyright (C) 2005 Daniel Berrange <dan@berrange.com>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
#
# $Id: Apt.pm,v 1.9 2007/12/08 17:35:16 danpb Exp $

package Test::AutoBuild::Stage::Apt;

use base qw(Test::AutoBuild::Stage);
use warnings;
use strict;
use Log::Log4perl;
use File::Spec::Functions;
use File::Path;
use Test::AutoBuild::Lib;

sub process {
    my $self = shift;
    my $runtime = shift;

    my $log = Log::Log4perl->get_logger();
    my $directory = $self->option('directory');
    my $format = $self->option("format") || "rpm";
    my $type = $self->option("type") || "module";
    my $components = $self->option("components");

    mkpath($directory);

    if ($type eq "module") {
	my @modules = $components ? @{$components} : $runtime->modules;
	foreach my $name (@modules) {
	    my $module = $runtime->module($name);

	    if ($format eq "rpm") {
		my $rpmdir = catfile($directory, "RPMS.$name");
		my $srpmdir = catfile($directory, "SRPMS.$name");

		mkpath($rpmdir);
		mkpath($srpmdir);

		foreach my $filename (keys %{$module->packages}) {
		    if ($filename =~ /\.src\.rpm$/) {
			$log->info("Copy $filename $srpmdir");
			Test::AutoBuild::Lib::_copy({ 'link' => 1 }, $filename, $srpmdir);
		    } elsif ($filename =~ /\.rpm$/) {
			$log->info("Copy $filename $rpmdir");
			Test::AutoBuild::Lib::_copy({ 'link' => 1 }, $filename, $rpmdir);
		    }
		}
	    } elsif ($format eq "debian") {
		my $debdir = catfile($directory, "debian.$name");
		mkpath($debdir);

		foreach my $filename (keys %{$module->packages}) {
		    if ($filename =~ /\.deb$/) {
			$log->info("Copy $filename $debdir");
			Test::AutoBuild::Lib::_copy({ 'link' => 1 }, $filename, $debdir);
		    }
		}
	    }
	}
    } else {
	my @groups = $components ? @{$components} : $runtime->groups;
	foreach my $name (@groups) {
	    my $group = $runtime->group($name);

	    if ($format eq "rpm") {
		my $rpmdir = catfile($directory, "RPMS.$name");
		my $srpmdir = catfile($directory, "SRPMS.$name");

		mkpath($rpmdir);
		mkpath($srpmdir);

		foreach my $modname (@{$group->modules}) {
		    my $module = $runtime->module($modname);
		    print "Got $modname $module\n";
		    foreach my $filename (keys %{$module->packages}) {
			if ($filename =~ /\.src\.rpm$/) {
			    $log->info("Copy $filename $srpmdir");
			    Test::AutoBuild::Lib::_copy({ 'link' => 1 }, $filename, $srpmdir);
			} elsif ($filename =~ /\.rpm$/) {
			    $log->info("Copy $filename $rpmdir");
			    Test::AutoBuild::Lib::_copy({ 'link' => 1 }, $filename, $rpmdir);
			}
		    }
		}
	    } elsif ($format eq "debian") {
		my $debdir = catfile($directory, "debian.$name");
		mkpath($debdir);

		foreach my $module ($group->modules) {
		    foreach my $filename (keys %{$module->packages}) {
			if ($filename =~ /\.deb$/) {
			    $log->info("Copy $filename $debdir");
			    Test::AutoBuild::Lib::_copy({ 'link' => 1 }, $filename, $debdir);
			}
		    }
		}
	    }
	}

    }

    my $cmdopt = $self->option("command") || {};
    my $mod = $cmdopt->{module} || "Test::AutoBuild::Command::Local";
    my $opts = $cmdopt->{options} || {};
    eval "use $mod;";
    die "cannot load $mod: $!" if $@;

    my @cmd = ("genbasedir",
	       "--flat",
	       $directory);
    my $c = $mod->new(cmd => \@cmd,
		      dir => $directory,
		      options => $opts);

    my ($output, $errors);
    my $status = $c->run(\$output, \$errors);

    $output = "" unless defined $output;
    $errors = "" unless defined $errors;

    $log->debug("Output: [$output]") if $output;
    $log->debug("Errors: [$errors]") if $errors;

    die "command '" . join("' '", @cmd) . "' exited with status $status\n$errors" if $status;
}

1 # So that the require or use succeeds.

__END__