#!/xte/bin/linux/perl -w

$datadir = "/xte/stab/";
$week = current;
$bin = 0.05;

$binapp = "~kvand/fft/bin_aml";
$fftapp = "~kvand/fft/fft_aml1";
$pds2gifapp = "~kvand/fourier/data/pds_to_gif.pl";

@list = `cd $datadir && ls *_$week.dat`;
@list = sort(@list);
    
foreach $ii (@list) {
	chop($ii);
	$infile = $datadir.$ii;
	@root = split('_', $ii);
	$outfile = $root[0]."_current.pds";

	print("awk '{print \$1,\$8,\$9}' $infile | $binapp 500 $bin | $fftapp 500 $bin > $outfile\n");
	print("$pds2gifapp $root[0]\n\n");
}