#!/usr/bin/perl

$pattern = shift @ARGV;

if ($pattern) { $alltrips = `ls $pattern`; }
else { $alltrips = `ls 0*.gtf`; }

$alltrips =~ s/\n//g;

@trips = split(/\.gtf/,$alltrips);

$i=0;
$iterate_max=10;
$resolution=10;
$lowest_res = 300;
$highest_res = 400;
foreach $trip (@trips) {
	print STDERR "Processing trip $i: " . $trip . " ... ";
	$result = `sh genmap.sh $trip 10 2>&1`;
	($points) = split(/\n/,$result);
	$points =~ s/.* ([0-9]+) points used.*/$1/;
	print STDERR " $points points at resolution $resolution ... ";
	while (($points < $lowest_res || $points > $highest_res) && ($i < $iterate_max)) {
		if ($points < $lowest_res) {
			$resolution--;
			print STDERR " too low! ... ";
			$result = `sh genmap.sh $trip $resolution 2>&1`;
			($points) = split(/\n/,$result);
			$points =~ s/.* ([0-9]+) points used.*/$1/;
			print STDERR " $points points at resolution $resolution ... ";

		}
		elsif ($points > $lowest_res) {
			$resolution++;
			print STDERR " too high! ...";
			$result = `sh genmap.sh $trip $resolution 2>&1`;
			($points) = split(/\n/,$result);
			$points =~ s/.* ([0-9]+) points used.*/$1/;
			print STDERR " $points points at resolution $resolution ... ";

		} else { die "Fuck!\n"; }
	}

	# Print this on stdout for later collection
	print "<TR><TD>\n";
	print "<A href=\"$trip.gtf\">$trip.gtf</A><PRE>\n";
	print "\n$result\n";
	print "</PRE></TD><TD>\n";
	print "<A href=\"$trip" . "_genmap.html\"><IMG src=\"$trip" . "_sm.png\"></A>\n";
	print "</TD></TR>\n";

	# Put same details in a textfile that corresponds to the GTF
	open (WRITE_FH,">$trip.txt");
	print WRITE_FH $result;
	close (WRITE_FH);

	$i++;
	$resolution=10;
}