#!/usr/bin/perl use CGI::Carp qw(fatalsToBrowser); use Fcntl qw(:flock); push(@INC,'share'); require "basic_functions.pl"; &readParse(); my ($n_rid, @sz_rinfo); my $sz_arq; my $n_count = 0; if (length($FORM{subclasse}) > 0) { $sz_arq = "$ENV{DOCUMENT_ROOT}/media/gerenciamento/$FORM{subclasse}/$FORM{subclasse}.txt"; } if ($FORM{opcao} eq 'busca') { if ($FORM{subclasse} eq 'rodas_e_rodizios') { $f_rodas_e_rodizios{$FORM{lista}} = 'selected'; if (length($FORM{item})>0) { $f_rodas_e_rodizios_lista{$FORM{item}} = 'selected'; } } elsif ($FORM{subclasse} eq 'acessorios_componentes_para_moveis') { $f_acessorios_componentes_para_moveis{$FORM{lista}} = 'selected'; if (length($FORM{item})>0) { $f_acessorios_componentes_para_moveis_lista{$FORM{item}} = 'selected'; } } } print "Cache-Control: no-cache\n"; print "Content-type: text/html\n\n"; print <<"HTML_TAGS"; D’Zainer

COMPRE COM CARTÃO

RODAS E RODÍZIOS
  HTML_TAGS # BUSCA - RODAS E RODIZIOS if (($FORM{opcao} eq 'busca') && ($FORM{subclasse} eq 'rodas_e_rodizios')) { if ($FORM{lista} eq 'nomes') { print <<"HTML_TAGS"; HTML_TAGS } print <<"HTML_TAGS"; HTML_TAGS } print <<"HTML_TAGS";
COMPONENTES P/ MÓVEIS
  HTML_TAGS # BUSCA - ACESSORIOS - COMPONENTES PARA MOVEIS if (($FORM{opcao} eq 'busca') && ($FORM{subclasse} eq 'acessorios_componentes_para_moveis')) { if ($FORM{lista} eq 'nomes') { print <<"HTML_TAGS"; HTML_TAGS } print <<"HTML_TAGS"; HTML_TAGS } print <<"HTML_TAGS";
HTML_TAGS # # BUSCA RAPIDA DESABILITADA # # # # # # # # print <<"HTML_TAGS";
# Rodas e Rodízios   # Comp. Cadeiras   # Comp. Móveis #
BUSCA RÁPIDA   # #
HTML_TAGS if ( ($FORM{subclasse} ne 'movimentacao') && ($FORM{subclasse} ne 'caixas_e_pisos') && ($FORM{subclasse} ne 'kit_roldana_inox') ){ print <<"HTML_TAGS";
HTML_TAGS # LISTAGEM DO(S) PRODUTO(S) if ($FORM{opcao} eq 'busca') { if (length($FORM{item})>0) { open(HFILEPRODUTOS,"$sz_arq") || &error("reading $sz_arq"); flock(HFILEPRODUTOS, LOCK_SH); while () { chop($_) if $_ =~ /\n$/; $n_rid = $_; $_ = ; chop($_) if $_ =~ /\n$/; @sz_rinfo = split(/{/,$_); if ($FORM{lista} eq 'nomes') { if ($FORM{item} eq $sz_rinfo[0]) { $n_count++; print <<"HTML_TAGS"; HTML_TAGS } } else { for ($i=7; $i<=26; $i++) { if (($sz_rinfo[$i] eq 'checked') && ($FORM{item} == $i)) { $n_count++; print <<"HTML_TAGS"; HTML_TAGS } } } } close(HFILEPRODUTOS); } } else { if (length($FORM{subclasse}) > 0){ open(HFILEPRODUTOS,"$sz_arq") || &error("reading $sz_arq"); flock(HFILEPRODUTOS, LOCK_SH); while () { chop($_) if $_ =~ /\n$/; $n_rid = $_; $_ = ; chop($_) if $_ =~ /\n$/; @sz_rinfo = split(/{/,$_); if (length($FORM{grupo}) > 0){ if (pop(@sz_rinfo) eq $FORM{grupo}) { $n_count++; print <<"HTML_TAGS"; HTML_TAGS } } } close(HFILEPRODUTOS); } else { print <<"HTML_TAGS";

Você pode pesquisar nossos produtos pela ferramenta de busca acima
ou pelo menu ao lado.

HTML_TAGS } } if (($n_count == 0) && (length($FORM{item}>0))) { print <<"HTML_TAGS";

Nenhum item encontrado.

HTML_TAGS } print <<"HTML_TAGS";
HTML_TAGS } # MOVIMENTACAO elsif ($FORM{subclasse} eq 'movimentacao') { if ($FORM{grupo} eq 'TRANSBOX'){ &includeFile("$ENV{DOCUMENT_ROOT}/$FORM{idioma}_produtos_transbox.htm"); } } # CAIXAS E PISOS elsif ($FORM{subclasse} eq 'caixas_e_pisos') { if ($FORM{grupo} eq 'CAIXAS'){ &includeFile("$ENV{DOCUMENT_ROOT}/$FORM{idioma}_produtos_caixas.htm"); } elsif ($FORM{grupo} eq 'PISOS'){ &includeFile("$ENV{DOCUMENT_ROOT}/$FORM{idioma}_produtos_pisos.htm"); } } # KIT ROLDANA INOX elsif ($FORM{subclasse} eq 'kit_roldana_inox') { &includeFile("$ENV{DOCUMENT_ROOT}/$FORM{idioma}_produtos_kit_roldana_inox.htm"); } print <<"HTML_TAGS";
HTML_TAGS exit();