utility [options] <machinename> [<action>]

##</code><code>##

utility [options] <switchname> <port> [<action>]

##</code><code>##

#!/usr/local/bin/perl -w
###
### $RCSfile: twig,v $ $Revision: 0.1 $
### Last modified $Date: 2004/06/30 11:24:30 $ by $Author: Orsmo $
###
use strict;
use Getopt::Declare;
use File::Basename qw(basename);

$::VERSION = do { my @r = (q$Revision: 1.0 $ =~ /\d+/g);sprintf "%d."."%02d" x $
#r, @r }

my $basename = basename($0);

my $specification = qq(
  [strict]
  [pvtype: action /on|off|reboot/]
  -v[erbose]            Increase the verbosity of the output.
                        [repeatable]
  <machine> [<action>]  [required]
  <switchname> <port> [<action:action>] [required]
  [mutex: <machinename> <switchname> ]

);

my $getopt = new Getopt::Declare $specification;

##</code><code>##

Usage: twig [options]  <switchname> <port> [<action>]  <machine> [<action>]
       twig -help
       twig -version

Options:

  -v[erbose]            Increase the verbosity of the output.


##</code><code>##

Usage: twig [options]  <switchname> <port> [<action>]
       twig [options]  <machine> [<action>]
       twig -help
       twig -version

Options:

  -v[erbose]            Increase the verbosity of the output.