#!/usr/bin/perl

########################################################################
#
# pmreset Ver 2.1 beta2
#
# Portmaster   : ComOS 3.3.1
#
#######################################################################
require 'pm.pl';

$Port = $ARGV[0] || die "Usage: pmreset <port> <host> <password>\n";
$Host = $ARGV[1] || die "Usage: pmreset <port> <host> <password>\n";
$Pass = $ARGV[2] || $Password;

$Port =~ s/[Ss]//g;
portmaster::Connect("$Host", $Pass);
print "$Host Command> reset S$Port\n";
&portmaster::Command("reset s$Port");
close(portmaster::DS);