#!G:/Prg_internet/Perl/bin/perl.exe


$db = "database.dat";

require "cgi-lib.pl";

&ReadParse(*in);
print &PrintHeader;	

if ($in{'type'} eq "recherche")
{	&Recherche;
}
elsif ($in{'type'} eq "recherche2")
{	&Recherche2;
}
else
{	print "Y a un stuuuuuut :)";
}

exit 0;


sub Recherche
{	
	open (DATABASE, "<$db") || die "Can't open $db: $!\n";
	@LINES=<DATABASE>;
	close(DATABASE);
	$SIZE=@LINES;
	for ($i = 0; $i <= $SIZE; $i++) 
	{	$_=$LINES[$i];
		if (/$in{'cle'}/) 
		{ # trouvé enregistrement ok
			print $_,"<br>\n";
		}
	}
	print "<a href=\"$ENV{'HTTP_REFERER'}\">retour à la page de ref</a>";
}


sub Recherche2
{	open (DATABASE, "<$db") || die "Can't open $db: $!\n";
	@LINES=<DATABASE>;
	close(DATABASE);
	$SIZE=@LINES;
	
	print "<table border=1>\n";
	for ($i = 0; $i <= $SIZE; $i++) 
	{	$_=$LINES[$i];
		if (/$in{'cle'}/) 
		{ # trouvé enregistrement qui contient la clé
			@data = split(/\|/,$_);
			$_ = $data[$in{'colonne'}];
			if (/$in{'cle'}/)
			{ #cette fois la "cellule" contient bien la valeur 
				print "<tr>\n";
				for ($j=0;$j<6;$j++)
				{
					print "<td>$data[$j]&nbsp;</td>\n";
				}
				print "</tr>\n";
			}
		}
	}
	print "</table>\n";
	print "<a href=\"$ENV{'HTTP_REFERER'}\">retour à la page de ref</a>";
}