#!/usr/bin/perl
#    Gera número inicial de secao e inicia a pesquisa
#    de produtos
#
# PERL 5
#=============================================================================
# Ajuste do diretorio de trabalho (para servidores sem auto-ajuste de path)
#chdir ("/www/netguide/ped");
# !!!! NAO ALTERE AS INFORMACOES A SEGUIR !!!!
#-----------------------------------------------------------------------------

if ($ENV{'CONTENT_LENGTH'}) 
   {read(STDIN, $x, $ENV{'CONTENT_LENGTH'});}
else 
   {$x=$ENV{'QUERY_STRING'};}

@A = split(/&/,$x);$max=@A;
for ($i=0;$i<=$max;$i++) {$y=$A[$i];$y =~ tr/+/ /;
     $y =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
     $y =~ s/\|/:/g;$y =~ s///g;$name=substr($y,0,index($y,"="));
     $value=substr($y,index($y,"=")+1);$FORM{$name} = $value;}

if ("\U$FORM{'cmd'}\E" eq "NETSAY")
   {print "Location: http://www.netsay.com.br\n\n";exit;}

print "Content-type: text/html\n\n";

&lock("secao.cgi");

open (FILE,"<secao.cgi");$cnt=<FILE>;close(FILE);
$cnt++;
open (OUT,">secao.cgi");print OUT "$cnt";close OUT;

&unlock("secao.cgi");

open (IN,"<../index1.htm");while ($v=<IN>) {$mask=$mask.$v;}close IN;$v=$mask;
$v=~ s/<#secao>/$cnt/g;

print $v;

#print "$cnt\n";
exit;

sub lock {local($arq)=@_;
local($time)=time();$arq=$arq."_LK";
while (-e "$arq") {sleep(1);
if ((time()-$time)>=15) {print "Content-type: text/html\n\n";
print "FILE LOCK ERROR - Tente Novamente";exit;}}open (XXX,">$arq");
close XXX;}

sub unlock {local($arq)=@_;$arq=$arq."_LK";unlink("$arq");}
sub jday {local($d,$m,$y) = @_;local($ya,$c);$y = (localtime(time))[5] + 1900  if ($y eq '');
if ($m > 2) { $m -= 3; } else {$m += 9;--$y;}$c = int($y/100);$ya = $y - (100 * $c);
$jd =  int((146097 * $c) / 4) + int((1461 * $ya) / 4) + int((153 * $m + 2) / 5) + $d + 1721119;
if ($jd < $brit_jd) { $jd = -1; }$jd;}