# -*-perl-*-

# $Id$

# Front-end to list atoms in the db

# $Log$
# Revision 1.2  2003/06/09 14:45:11  thomas
# schema version of database
#
# Revision 1.1  2002/07/08 15:56:34  thomas
# 0.2.3 release
#
# Revision 1.1.1.1  2002/05/21 14:13:35  thomas
# sushi - backup to disk
#

package Sushi::Command::ClearSushid;

use strict;
use Getopt::Long;
use Time::localtime;
###############################################################################

sub main {
  my ($class) = shift;

  my $rows = $::sudbh->do ("delete from sushid_lock");
  print "Delete $rows row(s).\n";
  $::sudbh->commit;
  return;
}

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

sub shortHelp {
  return "Clear a sushid lock";
}

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

sub help {
  my $help = <<__Eof__

clearsushid

Warning:  Improper use of the command could result in data inconsistencies.
          Please do not use this command unless you are sure that there
          is no sushid running for the lock you are clearing...

__Eof__
;
}

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

1;
