#!/usr/local/bin/perl
$PLOTDIR = "/home/vipera/detn_db/plots/gplots";
$DATADIR = "/home/vipera/detn_db/data/plotdata";

foreach $file (@ARGV) {

# Test for update necessity
# Warning : Tests are somewhat fragile
   $necessary = 0;
   $srcfile = $file;
   $psfile = $file;
   $psfile =~ s/\.gs//;
   $psfile =~ /[^\s]*\/([^\s]*)$/;
   $rtfile = $1;
   $psfile = $rtfile.".ps";
   if (! -e $PLOTDIR."/".$psfile)
      { print "$psfile doesn't exist\n";
        $necessary++; }
   if (-M $srcfile < -M $PLOTDIR."/".$psfile)
      { print "$srcfile newer than $psfile\n";
        $necessary++;  }
   open(SRCFILE, $srcfile) || die "Couldn't open $srcfile\n";
   foreach $line (<SRCFILE>) {
      if ($line =~ /'\w*.txt'/)
         { $line =~ s/^\w*\s'//;
           $line =~ s/(\w*.txt)'[\w\W]*$/\1/;
           if (-M $DATADIR."/".$line < -M $PLOTDIR."/".$psfile)
           { print "$line is newer than $psfile \n";
             $necessary++; }
         }
   }
   close (SRCFILE);
   if ($necessary)
      { system("gnuplot $file");
        $file =~ s/\.gs//;
# Changed pstogif to ps2gif and removed transgif step - MJK, 6/16/98
        system("cd $PLOTDIR; ps2gif $rtfile.ps");
#        system("\\rm $PLOTDIR/$rtfile"."_trans.gif");
#        system("cd $PLOTDIR; transgif -rgb 1 1 1 $rtfile.gif > $rtfile"."_trans.gif");
#        system("\\rm $PLOTDIR/$rtfile.gif");
      }

}