# -*-perl-*-

# $Id$

# Show various versions within sushi

# $Log$
# Revision 1.1  2004/03/02 21:07:35  thomas
# show some version information
#

package Sushi::Command::Version;

use strict;
use Getopt::Long;

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

sub main {
  my ($class) = shift;
  print help();
  return 1;
}

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

sub shortHelp {
  return "Get version information";
}

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

sub help {
  my $help = <<__Eof__

Sushi version 0.3.22
Postgres module version: CSL::Pg
Postgres connect string: $CSL::DBs::sushi

__Eof__
;
}

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

1;
