Fileset.pm

#!/usr/bin/perl
# $Id: Fileset.pm,v 1.3 2008/10/08 13:22:46 gonter Exp $

# NOTE:
# packages "AIX::Software::Package" and "AIX::Software::Fileset"
# are used to generate templates for mkinstallp

package AIX::Software::Fileset;

use strict;

my $verbose= 0;
my $doit= 1;

my %DEFAULTS=
(
  'Fileset Name' => 'dummy.package.fileset',
  'Fileset VRMF' => '1.0.0.0',
  'Fileset Description' => 'dummy fileset description',
  'Bosboot required' => 'N',
  'License agreement acceptance required' => 'N',
  'Include license files in this package' => 'N',
  'Requisites' => '',
);

my @Fileset_Fields=
(
  'Fileset Name',
  'Fileset VRMF',
  'Fileset Description',
  'Bosboot required',
  'License agreement acceptance required',
  'Include license files in this package',
  'Requisites',
);

sub new
{
  my $class= shift;

  my $obj=
  {
    'usr_files' => [],   # list of files
    'usr_catalog' => {}, # files and their md5 sums and size, if known
  };
  bless $obj, $class;

  $obj->defaults ();
  $obj->set (@_);

  $obj;
}

sub defaults
{
  my $obj= shift;

  foreach my $kw (keys %DEFAULTS)
  {
    $obj->{$kw}= $DEFAULTS{$kw} unless (exists ($obj->{$kw}));
  }
}

sub set
{
  my $obj= shift;
  my %par= @_;

  my %res;
  foreach my $par (keys %par)