#!/usr/local/bin/perl
$glovis = "http://glovis.usgs.gov/ImgViewer/";
$l7 = "l7";
$l7slcoff = "l7slc_off";
$l5 = "http://glovis.usgs.gov/ImgViewer/l5";
$cur = $glovis.$l7slcoff;

open (F, ">filelist.ion");
for ($path=1; $path<=233; $path++) {
	for ($row=1; $row<=248; $row++) {
		if ($path<=9 & $row<=9) {print F "path00${path}row00${row}.toc $cur/p00$path/r00$row/TOC\n";}
		if ($path<=9 & $row>=10 & $row<=99) {print F "path00${path}row0${row}.toc $cur/p00$path/r0$row/TOC\n";}
		if ($path<=9 & $row>=100) {print F "path00${path}row${row}.toc $cur/p00$path/r$row/TOC\n";}
		if ($path>=10 & $path<=99 & $row<=9) {print F "path0${path}row00${row}.toc $cur/p0$path/r00$row/TOC\n";}
		if ($path>=10 & $path<=99 & $row>=10 & $row<=99) {print F "path0${path}row0${row}.toc $cur/p0$path/r0$row/TOC\n";}
		if ($path>=10 & $path<=99 & $row>=100) {print F "path0${path}row${row}.toc $cur/p0$path/r$row/TOC\n";}
		if ($path>=100 & $row<=9) {print F "path${path}row00${row}.toc $cur/p$path/r00$row/TOC\n";}
		if ($path>=100 & $row>=10 & $row<=99) {print F "path${path}row0${row}.toc $cur/p$path/r0$row/TOC\n";}
		if ($path>=100 & $row>=100) {print F "path${path}row${row}.toc $cur/p$path/r$row/TOC\n";}
	}
}
close (F);