#!/usr/local/bin/perl -w
# Get the week number (input)
if (!$ARGV[0]) {
    print "Usage: $0 <weeknum>\n";
    exit;
}
$week = $ARGV[0];

$datadir = "/xte/stab/";
$bin = 0.04;

$binapp = "~kvand/fft/bin";
$fftapp = "~kvand/fft/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");
}