# -*-perl-*-

# $Id$

# Create volumes, directories, and/or PTS ids for a group

# $Log$
# Revision 1.2  2002/07/08 15:56:34  thomas
# 0.2.3 release
#
# Revision 1.1.1.1  2002/05/21 14:13:33  thomas
# sushi - backup to disk
#

package Sushi::Command::AuditGroup;

use strict;
use Data::Dumper;
# use DirHandle;
use Time::localtime;
use IO::Pipe;

sub main {

  my $class = shift;
  my $group = shift;

  my $atom;

  defined $group or $group = &Sushi::Misc::dailyGroup;

  # Get the list of atoms
  my $atoms = Sushi::Atom->readAtoms (
				      debug => $main::debug,
				      schedule_group => $group
				     );
  if (!defined $atoms) {
    $main::log->error ("Can't read atoms for group ($group).\n");
    return 0;
  }
  foreach $atom (@{$atoms}) {
    # Make sure the destination exists
    $atom->createPts;
  }
}

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

sub Aliases {
  return ();
}

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

sub shortHelp {
  return "Create afs and other objects needed to run a group";
}

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

sub help {
  my $help = <<__Eof__

auditgroup <group>

Create afs volumes, pts ids, host-based limits, and other
objects needed to execute a group.  If no group is specified, it performs
checks on today's default group.

__Eof__
;
}

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

1;
