#!/usr/bin/perl ####################### #->-Reception Param-<-# ####################### use CGI qw (param); my $page = param ("page"); $page = "intro" unless param ("page"); $page = "none" if param ("action"); my $link = param ("link"); my $action = param ("action"); ######################### #->-Open Option files-<-# ######################### open (FeedBack, "../_option/feedback.txt"); @feedback = ; $email = "@feedback[1]"; $email =~ s/\n//g; $pda = "@feedback[2]"; $pda =~ s/\n//g; $icq = "@feedback[3]"; $icq =~ s/\n//g; $phone_1 = "@feedback[4]"; $phone_1 =~ s/\n//g; $phone_2 = "@feedback[5]"; $phone_2 =~ s/\n//g; close (FeedBack); open (SiteInfo, "../_option/site_info.txt"); @sinfo = ; $url = "@sinfo[0]"; $url =~ s/\n//g; $title = "@sinfo[1]"; $title =~ s/\n//g; $keywords = "@sinfo[2]"; $keywords =~ s/\n//g; close (SiteInfo); ###################### #->-Open Data file-<-# ###################### unless ($page eq "intro") { open (Content, "../data/content/$page.htm") unless param ("link"); open (Content, "../data/content/$page/$link.htm") if param ("link"); @content = ; $content = "@content"; close (Content); } ########################### ###@>-HTML CODE BEGIN-<@### ########################### $html = qq{ $title }; #----------------#Intro Page#---------------------# $intro = qq{

}; #------------------#Guest Book#--------------------# $gbook = qq{

меня зовут: 

моя почта: 

}; if ($action eq "feedback") {$content = $gbook;} #----------------#Main Code#---------------------# $next_page = qq{
}; if ($page eq main) {$next_page = ""}; if ($page eq "none") { $condata = qq{
$content
} ;} else { $condata = qq{
$content
} ;} $mcode = qq{ $next_page
$condata

звоните:

$phone_1
(для регионов)
$phone_2
Волгоград, Волжский

пишите:

e-mail\@molhok.name
(когда дома)
pda\@molhok.name
(когда не дома и если это срочно)
}; $copyright = qq{
© 2009 Андрей (mOlh0k) Тарасов |
}; ######################### ###@>-HTML CODE END-<@### ######################### ############################### #->-Generation & print page-<-# ############################### unless ($page eq "intro") {$cpage = $mcode}; if ($page eq "intro") {$cpage = $intro}; print "Content-type: text/html \n\n"; unless ($page eq "intro") { print qq{Ошибка! - Проблема с обработкой запроса...

"сцука, ну у Вас и запросы!!!" - сказала База Данных и повисла...

} unless $content; exit unless $content; } print $html; print $cpage; print $copyright; print "\n\n"; print " \n\n"; print ""; #the HAPPY end