# -*-perl-*-

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

# Exit (duh...)

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

package Sushi::Command::RunDB;

use strict;

# This goes by pretty fast

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

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

  system ("/s/lab/bin/csldbs sushi");
}

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

sub aliases {
  return ();
}

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

sub shortHelp {
  return "Run the postgres interpreter";
}

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

sub help {
  my $help = <<__Eof__

Run the postgres interpreter.

__Eof__
;
}

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

1;
