#!/usr/bin/perl
#
#title on small image
$alt="Big image";
#title  if no image
$no_image="-";

#Sizes window for preview
$hight_img=200;$width_img=250;
#Title for big image link
$big_img="photo";
# Select Background color for Web-page
$bgcolor="#FFFFFF";




&parse_get;

if ($GET{'package'}) {require ("./packages.pl"); }
 
if (($GET{'c'} eq "") and ($GET{'f'} eq "")) {require ("./main.pl"); }
else { if ($GET{'c'} eq "") {$GET{'c'}="prev"; }}
 
if ($GET{'c'} eq "prev") {require ("./prev_tovar.pl"); }

if ($GET{'c'} eq "search") {require ("./prev_tovar.pl"); }

if ($GET{'c'} eq "detail") {require ("./detail.pl"); }

if ($GET{'c'} eq "pt") {require ("./prev_korz.pl"); }

if ($GET{'c'} eq "img") {require ("./img.pl"); }

if ($GET{'c'} eq "image") {require ("./image.pl"); }

if ($GET{'c'} eq "form") {require ("./prev_end.pl"); }

sub parse_get {
   # Split the name-value pairs
   @pairs = split(/&/, $ENV{'QUERY_STRING'});
   foreach $pair (@pairs)
   {
      ($name, $value) = split(/=/, $pair);
      $value =~ tr/+/ /;
      $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
      $GET{$name} = $value;
   }
}