#!/usr/bin/perl

use lib 'mod';
use DBI();
use DBD::mysql;
use CGI qw/:standard/;
use CGI::Cookie;
use Time::Local;
use CGI::Carp 'fatalsToBrowser';
use HTML::Template;


require "setup.inf"; #переменные

#my %HTML_SITE;

#подключение БД
$dbh = DBI->connect("DBI:mysql:database=$db;host=$host","$user","$password");
$dbh->do("SET NAMES 'utf8'");

$fid    = param('id1');
$fid2   = param('id2');
$eng   = ( param('lang') eq 'en/' )?'_eng':'';
$action = param('action');

$login_in = param('login_in');  # для входа по паролю
$pass_in  = param('pass_in');   #


$buffer2 = $ENV{'QUERY_STRING'};

#От SQL Иньекций
$fid    =~ s/('|"|\||-|=|~|>|<|(|)|\$|#)//g;
$fid2   =~ s/('|"|\||-|=|~|>|<|(|)|\$|#)//g;
$action =~ s/('|"|\||-|=|~|>|<|(|)|\$|#)//g;

#$login_in =~ s/('|"|\||-|=|~|>|<|(|)|\$|#)//g;
#$pass_in  =~ s/('|"|\||-|=|~|>|<|(|)|\$|#)//g;
#/От SQL Иньекций

@pairs2 = split(/&/, $buffer2);
foreach $pair2 (@pairs2) {
        ($name2, $value2) = split(/=/, $pair2);
        $value2 =~ tr/+/ /;
        $value2 =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $FORM{$name2} = $value2;
}

$form_fid = $FORM{"id1"}; $form_fid =~ s/('|"|\||-|=|~|>|<|(|)|\$|#)//g;

$act = $FORM{"act"};

if ($act eq ''){ #если $act пусто. Возможно при нажатии на кнопку в форме
($xxx) = $ENV{'REQUEST_URI'} =~ m#([^\\/:]+)$#;
($act) = split (/\./,$xxx);
($act, $fid) = split (/-/,$act);
                }
else {$fid = $form_fid;}

#Оставляем только числа
if ($fid) {$fid  =~ s/(\d+)/$1/;$fid  = $1;}
if ($fid2){$fid2 =~ s/(\d+)/$1/;$fid2 = $1;}
#/Оставляем только числа

#------------------------------Время------------------------
$timeoffset = 0;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time + (3600*$timeoffset));
$mon++;
$mday = "0$mday" if ($mday < 10);
$mon  = "0$mon" if ($mon < 10);
$hour = "0$hour" if ($hour < 10);
$min = "0$min" if ($min < 10);
$year = 2000 + ($year - 100);
$data_form = "$mon.$mday.$year";
$reg_date = "$year-$mon-$mday";
$time_form = "$hour:$min:$sec";
#-----------------------------------------------------------

my $q = new CGI;
print $q->header('-charset' => 'utf-8');

require "module.pl";
require "param.pl";          #Параметры
require "meta.pl";           #META
require "menu.pl";      #Основное меню
####<<< SEREDINKA

$HTML_SITE{eng}=$eng;
my $query_request=( $ENV{QUERY_STRING} ne '' )?"?$ENV{QUERY_STRING}":'';
$query_request=~ s/(eng=(eng)?&?|act=[^&]+&?|id[12]+=[^&]+&?)//ig;
$query_request=~ s/^\?$//;
$HTML_SITE{langurl}=($fid eq '')?"$act.html":"$act-$fid.html$query_request" if($act ne '');
$HTML_SITE{langurl}='' if($act eq 'index');

if( $act eq ''){           $HTML{tmpl}='ind';      require "ind.pl"; }
elsif ($act eq 'doc'){        $HTML{tmpl}='doc';      require "doc.pl";}
elsif ($act eq 'contacts'){   $HTML{tmpl}='contacts'; require "doc.pl";}
elsif ($act eq 'photo'){      $HTML{tmpl}='photo';    require "photo.pl";}
elsif ($act eq 'collection'){ $HTML{tmpl}='photo';    require "photo.pl";}
elsif ($act eq 'feedback'){   $HTML{tmpl}='feedback'; require "feedback.pl";}
elsif ($act eq 'video'){      $HTML{tmpl}='video';    require "video.pl";}
elsif ($act eq 'faq'){        $HTML{tmpl}='faq';      require "faq.pl";}
elsif ($act eq 'news'){       $HTML{tmpl}='news';     require "blog.pl";}
elsif ($act eq 'blog'){       $HTML{tmpl}='news';     require "blog2.pl";}
else  { $HTML{tmpl}='doc'; require "unknown.pl"; }
#print "Location: http://$ENV{'SERVER_NAME'}/\n\n"; exit;
#print "act:$act eng:$eng";

####>>>       


my $template = HTML::Template->new(filename => "html/$HTML{tmpl}.html");
$template->param(%HTML_SITE);
my $HTML_SITE_out = $template->output;

print <<EOF;
$HTML_SITE_out
EOF




#отключение БД
$dbh->disconnect();