Отдел магазина
|
|
#!/usr/bin/perl
#
$razadelf = "data/razdel.txt";
$dir_shop = "/shop";
$dir_tov = "/shop/tov";
($DAY, $MONTH, $YEAR) = (localtime)[3,4,5];
$MONTH = $MONTH+1;
$YEAR = $YEAR+1900;
$query = $ENV{'QUERY_STRING'};
@pairs = split (/&/, $query);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
}
if ($value eq "0")
{
print "Content-type: text/html\n\n";
print "
";
exit;
}
if ($value eq "")
{
print "Content-type: text/html\n\n";
print "
";
exit;
}
open(rasf,"$razadelf");
@list1=;
for ($p==0;$p<100;$p++)
{
($r_num,$r_name,$r_stop)=split(/;;/,$list1[$p]);
if ($r_name ne "")
{
if ($r_num eq $value){goto M4}
}
}
close (rasf);
print "Content-type: text/html\n\n";
print "
";
exit;
M4:
close (rasf);
print "Content-type: text/html\n\n";
print "";
# print "
, , ";
print "
$r_name
$DAY.$MONTH.$YEAR.
";
print " ";
print " / | ";
print " | ";
print " | ";
print " | ";
print " ";
$table_html=<<"HTML";
HTML
print $table_html;
$s = 0;
open(news,"data/$r_num.txt");
@list=;
for ($i==1;$i<1000;$i++)
{
($number,$num_raz,$stop,$bold,$name,$opi,$cena1,$ue,$photo,$kod,$opi)=split(/ /,$list[$i]);
if ($cena1 ne "")
{
if ($stop eq "1")
{
$url_up = " ";
$url_end = "";
if ($kod ne "")
{
$url_up = "";
$url_end = "";
}
$zpt='';
if ($bold ne "")
{
if ($name ne "")
{
$zpt = ", "
}
}
$photo_mini = "";
$bb = "bb";
if ($photo eq "1")
{
$photo_mini = "";
}
$cena1 = sprintf("%.2f", $cena1);
$cena2 = sprintf("%.2f", $cena2);
$cena3 = sprintf("%.2f", $cena3);
if ($cena1==0)
{$cena1=''};
$valuta = ".";
if ($ue eq "1") {$valuta = ".."}
$s=$s+1;
print "";
print "$s | ";
print "$url_up$photo_mini$url_end $url_up$bold$zpt$name$url_end";
print " | $cena1 $valuta";
print " | |
";
$url="";
}
}
}
print "
";
print " .
- .";
print "
, , , - .";
print "
";