#!/usr/bin/perl
#----------------------------------------------------------------------
use CGI;
$query = new CGI;
print $query->header;
$|=0;  
#-----------------------------------------------------------------------        	
$unixPath = "/home/ohainaut/public_html";
$htmlPath = "http://www.sc.eso.org/~ohainaut";
$dirPath = "prog/tmag";
$file = tmag;


#- print the main page

foreach $i (`cat $unixPath/$dirPath/$file.html`)
{
    print $i;
}

#- build the file archive

print "<p> <h2>File archive:</h2>\n";
print "Retreive the latest version from this list\n";
print "<pre>";
foreach $i (`cd $unixPath/$dirPath; ls -1 $file*tar.gz`)
{
    print "<a href=\"$htmlPath/$dirPath/$i\">$i</a>";
}
print "</pre>";

#------------------------------------------------------------------------------