###
###			Dave Regan
###			regan@ao.com
###
###
###	GenerateTable
###
###	Generate a table given a filename.
###
sub GenerateTable
    {
    my($fname) = @_;
    my(@fields, $params);

    if (!open(FILE, "<$fname")) 
       	{
	print "Cannot open table file $fname  \n";
	0;
	}
     else
     {	
	    $params = $Symbols{'_TABLE-PARAMS_'} || "";
	    print OUT "<table $params>\n";
	    while (<FILE>)
    	{
	    	chomp;
		$_ = Expand($_);
	    	next if (/^\s*$/ || /^\s*#/);
	    	@fields = split(/\t/, $_);
	    	print OUT "<tr>";
	    	for $field (@fields)
		    {
		    if ($field =~ m#((http)|(mailto)|(ftp)):#)
		    	{
		    	$field =~ s#(.*)#<a href="$1">$1</a>#;
		    	}
		    print OUT "<td>$field</td>\n";
		    }
		print OUT "</tr>\n";
	 }
	 print OUT "</table>\n";
	 close FILE;
      }

   }

    1;	# Make perl happy