# -*-perl-*-

# $Id$

# Exit (duh...)

# $Log$
# Revision 1.1.1.1  2002/05/21 14:13:32  thomas
# sushi - backup to disk
#

package Sushi::Command::Exit;

use strict;

# This goes by pretty fast

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

sub main {
  my ($class) = shift;
  my ($log) = shift;

  print "Ok, bye for now.\n";
  exit 0;
}

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

sub aliases {
  return ("quit", "bye");
}

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

sub shortHelp {
  return "Exit the Sushi program";
}

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

sub help {
  my $help = <<__Eof__

What do mean \"Help exit?\"  Get a clue.

__Eof__
;
}

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

1;
