#!/usr/bin/perl

########################################################################
#
# pmdebug Ver 2.1 beta 2
#
# Patches      : Gary E. Miller <gem@rellim.com>
# Interpreter  : Perl v5.003
# Portmaster   : ComOS 3.3.1
# Description  : a hack to suck variables from Livingston 
#                products.
#
# Usage        : pmdebug host [passwd]
#######################################################################
# Version 1.0
# Author       : Brian Pollack
#######################################################################
require 'pm.pl';

$| = 1;

$Host = $ARGV[0];
$Pass = $ARGV[1] || $Password;

portmaster::Connect("$Host", $Pass);

$Cnt = 0;
&portmaster::Who("$Cnt");
foreach ( sort(keys %PortValue)) {
  $K = $_;
  s/^..//;
  print "the value of $_ is $PortValue{$K}\n";
}

close(portmaster::DS);
