#!/bin/perl
$output = `/bin/foo-pre $ARGV[0] $ARGV[1]`;
print $output;
open (LOG, ">/bin/prelog");
print LOG "ARGS: $ARGV[0] $ARGV[1]\n";
print LOG "OUTPUT: $output\n";
if ($output =~/\* Updating userfiles \.\./){
        open(CFG, "</etc/pre.cfg") or die "can't open pre.cfg\n";
        $search = "section.".$ARGV[1].".dir=";
        $line = "";
        while(<CFG>){
                if (/$search/i){
                        $line = $_;
                        $line =~s/$search(.+?)\n/$1/;
                        last;
                }
        }
        close CFG;
        print LOG "line: $line\n";
        if (($line eq "")||(!(-d "$line/$ARGV[0]"))){
                exit 0;
        }
#       $test .= `/bin/prestat.pl $ARGV[0] 1>/dev/null 2>/dev/null`;
#       $test .= `/bin/prebw.pl $ARGV[0] 1>/dev/null 2>/dev/null`;
        print $test;
}
close LOG;