#!/usr/local/bin/perl -w -s
#This script will allow the user to run a group of cells using a group file through the script.

$groupDir = &promptUser("Enter the entire directory path to your group file.");

print "$groupDir\n";

sub promptUser {
my($prompt, $default) = @_;
my $defaultValue = $default ? "$default" : "";
print "$prompt $defaultValue: ";
chomp(my $input = <STDIN>);
return $input ? $input : $default;
}

open(FH, "<$groupDir") || die "Sorry, I could not find a group file by that name here. $!\n";

use Getopt::Std;
my %Options;
getopt ('a', \%Options);

#this is the flow I want run on all of the cells in the file.
`$CLD_RV/rv_char.tcl`,

#it has 3 switches. The first is mandatory the last 2 are optional.
%Options = (c => `cell $cell`,
s => `use_slopefile 1`,
d => `dcc 1`)

close(FH);