#! /usr/local/bin/perl
&ReadParse(*input);
$vCod=$input{"cod"};
open(fhp,"<../public/arq3.txt");
print &PrintHeader;
print &HtmlTop("Consulta"); 
print "<TABLE BORDER>";
print "<CAPTION> DADOS DO PRODUTO</CAPTION>";
print "<TR>
<TH>Cdigo
<TH>Nome
<TH>Preo 
<TH>Quantidade";
$reg=" ";
while($reg)
{
 $reg=<fhp>;
 if ($reg=~/^$vCod/)
 {
  @areg=split(/:/,$reg);
  $COD=@areg[0];
  $NOME=@areg[1];
  $PRECO=@areg[2];
  $PRECOB=sprintf("%8.2f",$PRECO);
  $PRECOB=~s/\./,/;
  $QTD=@areg[3];
  print "<TR><TD>$COD  
             <TD>$NOME
             <TD>$PRECOB
	     <TD>$QTD";
  }
   
}
close(fhp);
print "</TABLE>";
print &HtmlBot;
#Colocar o MAGIC.TXT a partir daqui