# -*-perl-*-

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

# Create a daily group

# $Log: ReleaseGroup.plm,v $
# Revision 1.1  2002/07/08 15:56:35  thomas
# 0.2.3 release
#
# Revision 1.1.1.1  2002/05/21 14:13:33  thomas
# sushi - backup to disk
#

package Sushi::Command::ReleaseGroup;

use strict;
use Time::localtime;

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

sub main {

  my $class = shift;

  my $groupname = &Sushi::Misc::dailyGroup;

  my $atoms = Sushi::Atom->readAtoms (
				      schedule_group => $groupname,
				      state => 'Pending'
				     );

  my $atom;
  foreach $atom (@$atoms) {
    $atom->state ('Scheduled');
    $atom->writeAtom;
  }
  print "Released " . scalar (@$atoms) . " atoms.\n";
  return scalar (@$atoms);
}

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

sub shortHelp {
  return "Create today's daily group";
}

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

sub help {

  my $help = <<__Eof__

Create today's daily group.  It will remove the group if it's
already present.

__Eof__
;
}

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

1;
