# -*-perl-*-

# $Id: Help.plm,v 1.1.1.1 2002/05/21 14:13:35 thomas Exp $

# Front-end to add, remove, or list limits in the db.

# $Log: Help.plm,v $
# Revision 1.1.1.1  2002/05/21 14:13:35  thomas
# sushi - backup to disk
#

package Sushi::Command::Help;

use strict;
use Getopt::Long;

###############################################################################

sub main {
  if ($#ARGV>-1) {
    print "Sushi::Command::$main::cmds->{$ARGV[0]}"->help;
  } else {
    print &help;
  }
  return 1;
}

###############################################################################

sub aliases {
  return ();
}

###############################################################################

sub shortHelp {
  return "Get help on sushi commands";
}

###############################################################################

sub help {
  my $help = "\nAvailable commands:\n\n";

  my ($cmd, $h1);
  foreach $cmd (sort keys %$::cmds) {
    $help .=  sprintf "    %-16s  %s\n",$cmd, "Sushi::Command::$::cmds->{$cmd}"->shortHelp;
  }
  $help .= "\nhelp <command> gives more information.\n\n";
  $help;
}

###############################################################################

1;
