File Coverage

blib/lib/MPE/Suprtool.pm

Criterion	Covered	Total	%
statement	6	32	18.7
branch	0	6	0.0
condition			n/a
subroutine	2	8	25.0
pod			n/a
total	8	46	17.3

package MPE::Suprtool;

require 5.005_62;
use strict;
use warnings;

require Exporter;
require DynaLoader;
our @ISA = qw(Exporter DynaLoader);

our @EXPORT_OK = ( );
our @EXPORT = ( );
our $VERSION = '0.51';


bootstrap MPE::Suprtool $VERSION;
my $plabel;

sub new {
  my $class = shift;
  my %defaults = (
     pri => '  ',
     printstate => 'ER',
     xl => configst2loc()
  );
  my %opt = (%defaults, @_);
  my $self;
  $plabel = getsuprcall("\0$opt{xl}\0") unless defined($plabel);
  if (!$plabel) {
    return undef;
  }
  $self = pack("nnA256A2NA2A2A18A270NA20",
        4, 0, " ", $opt{pri}, 0, $opt{printstate}, "AS", " ", " ", 0, " ");
#       n  n  A256  A2        N   A2               A2   A18   A270 N  A20
  return bless \$self, $class;
}

sub cmd {
  my $self = shift;
  my $cmdstr;
  my $result;
  for $cmdstr (@_) {
    substr($$self, 4, 256) = pack("A256", $cmdstr);
    last unless $result=suprcall($$self);
  }
  return $result;
}

sub status {
  my $self = shift;
  unpack("n",substr($$self, 2,2));
}

sub lastcmd {
  my $self = shift;
  unpack("A256",substr($$self, 4, 256));
}

sub count {
  my $self = shift;
  unpack("N",substr($$self, 558,4));
}

sub totals {
  my $self = shift;
  my $totalstr = substr($$self, 288, 270);
  my @j;
  my @k;

  $totalstr =~ s/( {18})+$//;
  unpack "A18"x(length($totalstr)/18), $totalstr;
}


1;
__END__