Maintenance.pm

#!/usr/local/bin/perl
#
# FILE AIX/Software/Maintenance.pm
#
# written:       1998-05-09
# latest update: 2000-01-30  1:23:51
#
# $Id: Maintenance.pm,v 1.9 2008/10/08 07:31:43 gonter Exp $
#

package AIX::Software::Maintenance;

=pod

=head1 NAME

AIX::Software::Maintenance

=head1 DESCRIPTION

Module for AIX software maintenance

=cut

use strict;

my $VERSION= '0.11';

# --------------------------------------------------------------------------------
sub new
{
  my $class= shift;
  my %more= @_;

  my $obj=
  {
    'packages' => {},
    'hosts' => {},              # host names, value == time stamp
    'host_list' => [],
    'show_uninstalled' => 0,
    'show_unavailable' => 0,
  };

  my $k;
  foreach $k (keys %more)
  {
    $obj->{$k}= $more{$k};
  }

  bless $obj, $class;
}

# --------------------------------------------------------------------------------
sub show_uninstalled
{
  my $obj= shift;
  $obj->{show_uninstalled}= 1;
  # HTML output listing should contain also packages that are
  # not installed anywhere
}

# --------------------------------------------------------------------------------
sub show_unavailable
{
  my $obj= shift;
  $obj->{show_unavailable}= 1;
  # HTML output listing should contain also packages that are
  # not available on any fix media
}