# -*-perl-*-

# $Id: NewScheduledSet.plm,v 1.1 2002/07/08 15:56:35 thomas Exp $

# Poke the relation to tell sushid to check for new atoms

# $Log: NewScheduledSet.plm,v $
# Revision 1.1  2002/07/08 15:56:35  thomas
# 0.2.3 release
#

package Sushi::Command::NewScheduledSet;

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

sub main {
  my ($class) = shift;

  print "Previous check value: " . ctime (Sushi::Misc::newScheduledCheck()) . ".\n";

  Sushi::Misc::newScheduledSet();

  print "New check value: " . ctime (Sushi::Misc::newScheduledCheck()) . ".\n";

  return;
}

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

sub shortHelp {
  return "Force sushid to check for more atoms";
}

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

sub help {
  my $help = <<__Eof__

newscheduledset Force sushid to check for more atoms.

__Eof__
;
}

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

1;
