#!/usr/bin/perl

#

# CDDL HEADER START

#

# The contents of this file are subject to the terms of the

# Common Development and Distribution License (the "License").

# You may not use this file except in compliance with the License.

#

# You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE

# or http://www.opensolaris.org/os/licensing.

# See the License for the specific language governing permissions

# and limitations under the License.

#

# When distributing Covered Code, include this CDDL HEADER in each

# file and include the License file at usr/src/OPENSOLARIS.LICENSE.

# If applicable, add the following below this CDDL HEADER, with the

# fields enclosed by brackets "[]" replaced with your own identifying

# information: Portions Copyright [yyyy] [name of copyright owner]

#

# CDDL HEADER END

#

# Copyright (c) 2011, 2013, Oracle and/or its affiliates. All rights reserved.

#

#

# incorporator - an utility to incorporate packages in a repo

#

use Getopt::Long;

sub enumerate_packages {

	local ($repository, $publisher, @fmris) = @_;

        my @packages = ();

	#printf "/usr/bin/pkg list -ng $repository @fmris\n";

	open($fp, "-|", "/usr/bin/pkgrepo", "list", "-H", "-s", $repository,

		  "-p", $publisher, @fmris) ||

                  die "pkg: $!";

	while (<$fp>) {

		# lines should be in the form:

		#   publisher   package   [r|o] version,5.12-branch:timestamp

		# or lines should be in the form:

		#   publisher   package   [r|o] version-branch:timestamp

		if ((/^(\S+)\s+(\S+)\s+\S?\s+([\d.]+),[\d.]+-([\d.]+):.+$/) ||

		   (/^(\S+)\s+(\S+)\s+\S?\s+([\d.]+)-([\d.]+):.+$/)) { 

			my ($package) = ();

			$package->{publisher} = $1;

			$package->{name} = $2;

			$package->{version} = $3;

			$package->{branch} = $4;

			if ($package->{name} !~ m/incorporation/) {

				push(@packages, $package);

			} 

		} else {

			die "error: cannot handle: ", $_;

		}

	}

	#printf "returning %s\n", $_->{name} for (@packages);

	return @packages;

}

sub print_incorporate {

	local (%package) = @_;

	my $facet = "facet.version-lock.$package->{name}";

	printf "depend fmri=%s@%s-%s %s=true type=incorporate\n",

		$package->{name}, $package->{version}, $package->{branch},

		$facet;

}

my ($repository, $fmri, $summary, $description, $consolidation) = ();

my %seen = ();

$consolidation = 'userland';

GetOptions("R|repository=s" => \$repository, "v|version=s" => \$version,

	   "s|summary=s" => \$summary, "d|description=s" => \$description,

	   "p|package=s" => \$fmri, "f|fmri=s" => \@fmris,

	   "c|consolidation=s" => \$consolidation);

#

# print the incorporation

#

printf "set name=pkg.fmri value=%s\n", $fmri;

printf "set name=pkg.summary value='%s'\n", $summary;

printf "set name=pkg.description value='%s'\n", $description;

printf "set name=org.opensolaris.consolidation value=%s\n",

		$consolidation;

printf "set name=pkg.depend.install-hold value=core-os.%s\n",

		$consolidation;

printf "set name=info.classification value='org.opensolaris.category.2008:Meta Packages/Incorporations'\n";

@packages = enumerate_packages($repository, $consolidation, @fmris);

for (@packages) {

	if ($seen->{$_->{name}} == 1) {

		die "error: duplicate package ", $_->{name};

	}

	printf "depend fmri=pkg:/%s@%s-%s %s=true type=incorporate\n",

		$_->{name}, $_->{version}, $_->{branch},

		"facet.version-lock.".$_->{name}; 

	$seen->{$_->{name}} = 1;

}