Навигация: В начало : Парфюмерия мужская

#!/usr/bin/perl $|=1; use Digest::MD5; use lib '../lib'; use dtopcms::init; use dtopcms::file; use dtopcms::randomu; use s05000002buildcore; our($init); if($ENV{QUERY_STRING}) { my($s,$nm,$id,$un) = split ';',$ENV{QUERY_STRING}; my $Config = {}; $Config->{MODULE} = '05000002'; $Config->{SITE} = $s; $Config->{LNG} = 'AdmAll,AdmMoney,05000002U'; $init = dtopcms::init->new($Config); $init->{FILE} = dtopcms::file->new({init=>$init}); $init->{RANDOMU} = dtopcms::randomu->new({init=>$init}); $init->{core} = s05000002buildcore->new({init => $init}); undef $Config; print 'Content-type: text/html', $init->{SITE}{charset} ? '; charset='.$init->{SITE}{charset} : '', "\nPragma: no-cache\n\n"; if($s and $nm and $id and $un) { my($x,$ctx,$fn,$design,$fid,$tbl); if($init->{SITE}{'05000002'}{adm}{'bl'.$fid} > 10) { $tbl = 'exblocks'; }else { $tbl = 'blocks'; } if( $init->{SQL}->TblExist('dtopcms_s'.$s.'s05000002'.$tbl) and $init->{SQL}->TblExist('dtopcms_s'.$s.'s05000002offers') ) { $ctx = Digest::MD5->new; $ctx->add( $nm.'_'.$id.'_'.$un ); $fn = $init->{SITE}{setup}{adm}{siteHTMLpath}.$init->{SITE}{'05000002'}{adm}{ModFolder}.'/05000002/pbl/'.$ctx->hexdigest.'.html'; if($init->{SITE}{'05000002'}{adm}{'blREF'} or !-r $fn) { $init->{core}{offerstable} = 'dtopcms_s'.$init->{SITE}{setup}{adm}{id}.'s05000002offers'; $design = $init->{RANDOMU}->GetDesign(); $init->{core}->DesignCor(\$design); $fid = $nm.$id; _MakeProdBlock(\$design,\$fid,\$fn); } if(-r $fn) { open(local *F,"<$fn"); while(){ print $_; } close F; } } } } exit; sub _MakeProdBlock { my($design,$i0,$i1) = @_; my($d0,$d1,$x,$x0,$x1,$x2,$x3,$rand,$offers,$vendors,$prod,$path); my $p = ''; if($$design->{'p_bl'.$$i0}{vl} and $$design->{'p_bl'.$$i0.'_p'}{vl}) { $d0 = $$design->{'p_bl'.$$i0}{vl}; $d1 = $$design->{'p_bl'.$$i0.'_p'}{vl}; }else { $d0 = '{START MAX=5}{END}

{ITEM}

'; $d1 = $init->{core}{d_pre}{vl}; } $d0 =~ s/\n//g; $d0 =~ s/\x0D//g; $d0 =~ s/\x0A//g; $d1 =~ s/\n//g; $d1 =~ s/\x0D//g; $d1 =~ s/\x0A//g; $x = $d0; $x =~ s/\{START.*?\}/\{START\}/; $x = $init->GetStr($x,'{START}','{END}'); my($di0,$di1) = split '{ITEM}',$x; $x = $d0; $x =~ s/\{START.*?\}.*?\{END\}/\{ITM\}/; my($d00,$d01) = split '{ITM}',$x; $x0 = $d0; $x0 =~ s/^.*?\{START//; $x0 =~ s/\}.*?$//; $x0 =~ s/[^0-9]//g; $x0 = 5 if !$x0; if($init->{SITE}{'05000002'}{adm}{'bl'.$$i0} == 1) { $x1 = 'SELECT COUNT(id) FROM dtopcms_s'.$init->{SITE}{setup}{adm}{id}.'s05000002blocks'; $x1 = $init->{SQL}->Query({ type => 'value', query => $x1, debug => $init->{SYS}{debug} || 0 }); foreach(1..$x0) { $rand = int(rand($x1)); $init->{core}->_PrepareOffers(\$rand,\$offers,\$vendors); } }elsif($init->{SITE}{'05000002'}{adm}{'bl'.$$i0} == 2) { $x1 = 'SELECT id FROM dtopcms_s'.$init->{SITE}{setup}{adm}{id}.'s05000002blocks where picexist=1'; $x1 = $init->{SQL}->Query({ type => 'array', query => $x1, debug => $init->{SYS}{debug} || 0 }); foreach(1..$x0) { $rand = int(rand($#{$x1})); $x2 = $$x1[$rand]; $init->{core}->_PrepareOffers(\$x2,\$offers,\$vendors); } }elsif($init->{SITE}{'05000002'}{adm}{'bl'.$$i0} == 11) { $x1 = 'SELECT id,page,pmin,pmax FROM dtopcms_s'.$init->{SITE}{setup}{adm}{id}.'s05000002exblocks'; $x1 = $init->{SQL}->Query({ type => 'array_hashref', query => $x1, debug => $init->{SYS}{debug} || 0 }); foreach(1..$x0) { $rand = int(rand($#{$x1})); $x2 = $$x1[$rand]->{id}; $x3->{$x2}{page} = $$x1[$rand]->{page}; $x3->{$x2}{min} = $$x1[$rand]->{pmin}; $x3->{$x2}{max} = $$x1[$rand]->{pmax}; $init->{core}->_PrepareOffers(\$x2,\$offers,\$vendors); } }elsif($init->{SITE}{'05000002'}{adm}{'bl'.$$i0} == 12) { $x1 = 'SELECT id,page,pmin,pmax FROM dtopcms_s'.$init->{SITE}{setup}{adm}{id}.'s05000002exblocks where picexist=1'; $x1 = $init->{SQL}->Query({ type => 'array_hashref', query => $x1, debug => $init->{SYS}{debug} || 0 }); foreach(1..$x0) { $rand = int(rand($#{$x1})); $x2 = $$x1[$rand]->{id}; $x3->{$x2}{page} = $$x1[$rand]->{page}; $x3->{$x2}{min} = $$x1[$rand]->{pmin}; $x3->{$x2}{max} = $$x1[$rand]->{pmax}; $init->{core}->_PrepareOffers(\$x2,\$offers,\$vendors); } } $x1 = undef; if($offers) { foreach(keys %{$offers}) { if($init->{SITE}{'05000002'}{adm}{'bl'.$$i0} == 11 or $init->{SITE}{'05000002'}{adm}{'bl'.$$i0} == 12) { $path->{page} = $x3->{$offers->{$_}{id}}{page} || ''; $offers->{$_}{min} = $x3->{$offers->{$_}{id}}{min} || 0; $offers->{$_}{max} = $x3->{$offers->{$_}{id}}{max} || 0; } $prod = $init->{core}->GetProd(\$offers->{$_}{id}); $p .= $di0.$init->{core}->_MakeProductPre(\$offers->{$_},\$prod,\$path,\$$design,'4:'.$$i0).$di1; } } open(local *F,">$$i1"); if($p) { if($init->{SYS}{AEncode}) { Encode::from_to($d00,$init->{ADM}{charset},$init->{SITE}{charset}); Encode::from_to($d01,$init->{ADM}{charset},$init->{SITE}{charset}); Encode::from_to($p,$init->{ADM}{charset},$init->{SITE}{charset}); } print F $d00,$p,$d01; } close F; }