#!/bin/sh
#! -*- perl -*-
eval 'exec $PERLLOCATION/bin/perl -x $0 ${1+"$@"} ;'
 if 0;

use English;

$txDir = "/productionName/textures";
opendir(CURRDIR, ".") or die "Cannot open current directory: $!";
foreach my $file (readdir(CURRDIR)) {
	my($basename, $frame) =
		$file =~ /([^\/]*)	# basename - non-slash chars
			\.		# literal dot
			(\d+)		# frame number - digits
			\.tif$/x;	# extention - ends w/ ".tif"

	next if ($MATCH eq '');		# skip if file didn't match
	my $newName = $txDir . "/" . $basename . '.' . $frame . '.tx';

	system 'txmake', $file, $newName;
}
closedir CURRDIR;