#!/usr/bin/perl

########################################################################
#
# pmcommand Ver 2.1 beta2
#
# Portmaster   : ComOS 3.3.1
#
#######################################################################

require 'pm.pl';

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

portmaster::Connect("$Host", $Pass);
do {
  print "$Host Command> ";
  $_ = <STDIN>;
  s/[\r\n]//g;
  &portmaster::Command($_) if ($_ && $_ ne "quit");
} until (/[Qq][Uu][Ii][Tt]/ || ($_ eq ""));

print "Quiting\n";

close(portmaster::DS);
