Simple TSM perl interface made by an old co-worker

tsm.pm

#!/usr/bin/perl -w
# Oskar Liljeblad 2008-10-17

package TSM;

use strict;
use Encode;

$TSM::dsmadmc = 'dsmadmc';
$TSM::username = 'admin';
$TSM::password = 'secrets';

sub set_database {
  my ($dsmadmc, $username, $password) = @_;
  $TSM::dsmadmc = $dsmadmc;
  $TSM::username = $username;
  $TSM::password = $password;
}

sub do_query {
  my ($query) = @_;
  open(my $fh, '-|', $TSM::dsmadmc, '-id='.$TSM::username, '-password='.$TSM::password, '-tabdelimited', '-outfile', '-noconfirm', $query) || die "$!\n";
  while (<$fh>) {
    # no operation
  }
  close($fh);
  return ($? == 0);
}

sub get_query_result ($) {
  my ($query) = @_;
  open(my $fh, '-|', $TSM::dsmadmc, '-id='.$TSM::username, '-password='.$TSM::password, '-tabdelimited', '-outfile', '-noconfirm', $query) || die "$!\n";
  my @rows = ();
  my $state = 0;
  while (<$fh>) {
    chomp;
    if ($state < 2) {
      $state++ if (/^$/);
    } elsif ($state == 2) {
      if (/^$/) {
        $state++;
      } else {
        push @rows, $_;
      }
    }
  }
  close($fh);
  return ($?, @rows) if $? != 0;
  return ($?, map { [ split(/\t/, decode('IBM437', $_), -1) ] } @rows);
}

sub get_query_results ($) {
  my ($r,@rows) = get_query_result(@_);
  return $r == 0 ? @rows : ();
}

1;