#!/usr/local/bin/perl -w

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

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

@list = `cd $datadir && ls *_current.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 $week $bin | $fftapp $week $bin > $outfile\n");
	print("$pds2gifapp $root[0]\n\n");
}