# -*-perl-*-

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

# Front-end to list atoms in the db

# $Log: CreateFreeSpace.plm,v $
# 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::CreateFreeSpace;

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

sub main {
  my ($class) = shift;
  my $gigs = shift @ARGV;

  return Sushi::AfsBits::createFreeSpace ($gigs, 1);
}

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

sub shortHelp {
  return "Create free space to store atoms";
}

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

sub help {
  my $help = <<__Eof__

createfreespace <space>

<space> is the number of gigabytes of space needed

__Eof__
;
}

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

1;
