File Coverage

blib/lib/TSM.pm

Criterion	Covered	Total	%
statement	23	102	22.5
branch	8	44	18.1
condition	5	18	27.7
subroutine	4	10	40.0
pod	4	7	57.1
total	44	181	24.3

package TSM;

use strict;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
use Carp;

require Exporter;
require AutoLoader;

@ISA = qw(Exporter AutoLoader);
# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.
@EXPORT = qw(

);
@EXPORT_OK = qw(

);
$VERSION = '0.60';


# Preloaded methods go here.
#
# Constructor of the TSM instance. This object will be used to authenticate
# at the TSM server
#
sub new {
	my $self = shift;
	my $class = ref $self || $self;
	my $instance = {};
	my $rcfile = undef;
	#
	# Set $rcfile to either .tsmrc or ~/.tsmrc depending on which comes first.
	#
	$rcfile = "$ENV{HOME}/.tsmrc" if (exists $ENV{HOME} && -e "$ENV{HOME}/.tsmrc");
	$rcfile = ".tsmrc" if ( -e ".tsmrc");
	#
	# Populate the parameter hash with default values and overwrite them
	# with the parameter of the caller, if any.
	#
	my %parameter = (id => undef, pa => undef, file => $rcfile, @_);
	#
	# Read the ID and password from the parameters, if provided.
	#
	$instance->{id} = $parameter{id} if ($parameter{id});
	$instance->{pa} = $parameter{pa} if ($parameter{pa});
	#
	# Read the ID and password from $rcfile, if ID has not been
	# provided yet.
	#
	if (! defined($instance->{id}) and $parameter{file}) {
		open (TSMRC, "$parameter{file}") or croak "Error opening $parameter{file} to read ID and password: $!";
		while () {
			chomp($instance->{id} = $1) if (m/^ID\s+(.*)$/);
			chomp($instance->{pa} = $1) if (m/^PA\s+(.*)$/);
		};
		close (TSMRC) or croak "Error closing $parameter{file}: $!";
	};
	#
	# Read ID and/or password from STDIN if not provided yet.
	#
	unless ($instance->{id} and $instance->{pa}) {
		if ( -t STDIN ) {
			my $stty = `stty`;
			unless($instance->{id}){
				print "Enter your user id: ";
				chomp($instance->{id}=);
			};
			unless($instance->{pa}){
				# Turn off echoing
				`stty -echo`;
				print "Enter the password for $instance->{id}: ";
				chomp($instance->{pa}=);
				# Turn on echoing
				`stty echo`;
				print "\n";
			};
		};
	};
	#
	# Test if the ID and password could has been read from somewhere.
	#
	unless ($instance->{id} and $instance->{pa}){
		croak 	"You have not provided a user ID and/or a password. Exiting";
	};
	#
	# Bless the $instance into the $class package and return it to the caller.
	#
	bless($instance, $class);
	return $instance;
}

sub dsmadmc (@) {
	my $instance = shift;
	my $options = shift;
	my $command = join " ",@_;
	my $start = 0;
	my @output =();
	#
	# Open a session to the TSM server
	#
	open(DSMADMC, "dsmadmc -ID=$instance->{id} -PA=$instance->{pa} $options \"$command\"
		or croak "Cannot open TSM session: $!\n";
	#
	# Remove status messages and concatenate the output to a string
	#
	while()
	{
		last if (m/^(ANS800[12]I).*(\d+)\.$/);
    	if (m/^(ANS8000I)/)
    	{
    		$start = 1;
    		next;
    	};
    	if ($start and !/^\s*$/)
    	{
    		chomp;
    		push(@output,$_);
    	};
	};
	close(DSMADMC) or carp "Cannot close TSM session: $!";
	return @output;
};

sub select_single ($) {
	my $instance = shift;
	my $command = shift;
	#
	# Extraxt the column labels from the command
	#
	my @columns = $instance->get_columnlabels($command);
	#
	# Extract the values from the select command
	#
 	my @record = split(/\t/,($instance->dsmadmc("-TAB", "select $command"))[0]);
	#
	# Populate the hash with label/value as pairs
	#
    my $output =();
    for my $i (0 .. $#columns)
    {
    	$output->{"$columns[$i]"} = "$record[$i]";
	};
	#
	# Return a pointer to this hash
	#
	return $output;
};

sub select($){
	my $instance = shift;
	my $command = shift;
	#
	# Extraxt the column labels from the command
	#
	my @columns = $instance->get_columnlabels($command);
	#
	# Get the result from the TSM server
	#
	my @select = $instance->dsmadmc("-TAB", "select $command");
	#
	# Populate the array of hashes
	#
	my $output = ();
	for my $i (0..$#select)
	{
		my @record = split(/\t/,@select[$i]);
		for my $j (0 .. $#columns)
    	{
    		$output->[$i]{$columns[$j]} = "$record[$j]";
		};
	};
	#
	# Return a pointer to this array
	#
	return $output;
};

sub select_hash (@)
{
	my $instance = shift;
	my $hashref = shift;
	my $command = shift;
	#
	# Extraxt the column labels from the command
	#
	my @columns = $instance->get_columnlabels($command);
	#
	# Get the result from the TSM server
	#
	my @select = $instance->dsmadmc("-TAB", "select $command");
	#
	# Populate the hash of hashes
	#
	for my $i (0..$#select)
	{
		my @record = split(/\t/,@select[$i]);
		for my $j (1 .. $#columns)
    	{
    		$hashref->{$record[0]}{$columns[$j]} = "$record[$j]";
		};
	};
	#
	# Return the number of addedd/changed entries
	#
	return scalar @select;
};


sub get_columns($)
{
	my $instance = shift;
	my $table_name = uc(shift);
	#
	# Get the result from the TSM server
	#
	my @select = $instance->dsmadmc("-TAB", "select colname, colno from columns where tabname='$table_name' order by colno");
	#
	# Populate the columns array
	#
	my @columns =();
	foreach my $element (@select)
	{
		push (@columns, $1) if $element =~ (/^(\w+)\t\d{1,2}$/);
	};
	#
	# Return the columns array
	#
	return @columns;
};

sub get_columnlabels($)
{
	my $instance = shift;
	my $command = shift;
	#
	# Extract the table and column info
	#
	$command =~ /(.*)\s+from\s+(\w+)\s*.*/i;
	my $table_name = $2;
	my @columns = split (/\s*,\s*/,$1);
	#
	# Populate the columns array
	#
	for my $i (0 .. $#columns) {
		if($columns[$i] =~ /.*\s+as\s+\"*(\w+)\"*/) { $columns[$i] = $1; };
		if($columns[$i] eq '*'){
			@columns = $instance->get_columns($table_name);
		};
   	};
	#
	# Return the columns array
	#
   	return @columns;
};
# Autoload methods go after =cut, and are processed by the autosplit program.

1;
__END__