#!/usr/bin/perl print "Content-type: text/html\n\n"; require "header.pl"; #opendir(DIR,"../upload/tender"); # @dir = readdir(DIR); # close(DIR); open (INFILE,"../upload/tender.txt"); @tender_desc = ; close(INFILE); #$jj=1; # print "$dir[$i]   
"; print '
Current Tenders

   

'; for($i=0;$i<=$#tender_desc;$i++) { $j = $i+1; ($fi,$de) = split(/,/,"$tender_desc[$i]"); $filen = "../upload/tender/$fi"; print ' "; } # for ($i=0;$i<=$#dir;$i++) { # if($dir[$i] ne "." and $dir[$i] ne ".." ) { # $filen = "../upload/tender/$dir[$i]"; # print "$jj.$dir[$i]
"; $jj++; # print ''; # } } print '
';print "$j";print '.    '; print "$de







'; require "footer.pl";