#!/usr/bin/perl


print "Content-type: text/html \n\n";
require "header.pl";



print '<br>
<center ><font color=red size=5>Council Proceedings </font></center>
';



 opendir(DIR,"../upload/attach");
      @dir = readdir(DIR);
      close(DIR);
      
      
      
      for ($i=0;$i<=$#dir;$i++)
      {
	    if($dir[$i] ne "." and $dir[$i] ne ".." )
	    {
	  		$filen = "../upload/attach/$dir[$i]";
      		print "<a href=\"$filen\" >Download Council Proceedings File</a>";
      	}	
      	  
	  }
print "<br><br>";

print '<a href="Lakshman.ttf">Download Tamil Font</a>';

open(FILE,"data/updated.txt")or die"";
	@file = <FILE>;
	close(FILE);
	
	%data;

	$update;
foreach $var (@file)
{
	($sc,$da) = split(/,/,$var);
	$data{$sc} = $da;
	
	if($scheme eq $sc)
	{
		$update = $da;	
		
	}
	
	
}

	print "<br><div align=right><font color=green>updated since $update  </font></div>";
	
	
	
print '
<br><br>
<center>

<b>

<table width=90%>

<tr>

<td bgcolor=#4C4FD0 align=center>

<a href="../sugg.htm"><font face=arial color=white size=3><b>

We welcome suggestions!</a>

</td>

</tr>

</table>

</b>

</center>

</td>

<td width=5>&nbsp;</td>

</tr>

</table>

<table bgcolor=#9FBFE0 width=100% height=15 align=center>
<tr><td></td></tr>
</table>
</body></html>
';