#/usr/local/bin/perl
$|=1;

$path = "table.txt";
$html_dir="../planetary_datasets/";
open(SOURCE, "< $path") or die "Can't open $path: $!\n";


 while(<SOURCE>){
        $line .= $_;
        if($line ne ''){
        chomp($line);
        ($name, $jpg, $alt) = split(/;/,$line,3);
        chomp($name, $jpg, $alt);
        #if($name =~ /^../) print "\n<br>\n";
        print "<a href=\"$html_dir$name\"><img src=\"/planetary_datasets/$jpg\" alt=\"$alt\" border=\"0\" hspace=15></a>\n";
        $line ='';
      }
 }

