#!/pkg/bin/perl

use Network;
use Clog;

# set up rules to work; requires user-defined functions files to load in
$fnfilebase= "$ENV{'GRIDSPATH'}/rule_functions";
@fn_files=();
opendir(RF,$fnfilebase) || die "could not open rule_functions directory to get functions";
while ($file=readdir(RF)) {
  push(@fn_files,"$fnfilebase/$file") if $file =~ /\.p[^.]*$/;
}
close RF;
print "rules functions are going to be read in from: ",join(',',@fn_files),"\n";
&execute::init(@fn_files);

foreach $ruleset (@ARGV)
{
  print "\n\n\nRULESET: $ruleset\n\n";
  $ruleset_text = `cat $ruleset`;
  print join("\n",&check_ruleset($ruleset_text,1));
}
