#!/pkg/ldc/bin/perl

# ./copyFiles file.time

while(<>) {
    chop;
    @a = split(';', $_);
    @b = split(' ', $a[0]);
    $infile = $a[1];
    $file = "FINAL/".$b[0].".wav";
    if ($infile ne "") {
	print "Creating $file from $a[1]\n";
	`bhd $infile | /pkg/ldc/pkg/sox11/sox -c 1 -r 44100 -s -w -t .raw - $file`;
	`/bin/chgrp ldc $file`;
	`/bin/chmod 664 $file`;
    }
}