#!/usr/bin/perl $debug_flag = (-e 'debug.flag'); $self = url(-absolute=>1); # # глобальные переменные, загружаемые из БД # $sendmail_path; # путь к почтовой программе $from_email; # адрес, от имени кого отправляется почта $to_email; # адрес, кому отправляется почта $company_name; # наименование компании $use_banners; # признак использования баннеров $temp_dir; use CGI qw(:standard); use db_work; require("utils.pl"); ############################ # # Main # ############################ if ($debug_flag) { $sendmail_path = "D:/www/x-change/cgi-bin/admin/sendmail.exe"; $temp_dir = "C:/Temp/"; } else { $sendmail_path = "/usr/sbin/sendmail"; $temp_dir = "/var/tmp/"; } $page = param('page'); $page = 'catalog' unless($page); print "Content-type: text/html; charset=WINDOWS-1251\n\n"; $dbh = db_connect(); draw_html_include('/inc/head3.html'); print <<"START_HTML1"; \n"; draw_html_include('/inc/footer.html'); END { db_disconnect($dbh) if ($dbh); } 1;
КрЄрыюу чряўрёЄхщ ш ¤ыхъЄЁюэшъш START_HTML1 draw_html_include('/catalog/menut.html'); print <<"START_HTML2";
START_HTML2 print "\n"; print " \n"; print "\n"; draw_script_include($page); print "\n"; print " \n"; print "
\n"; print "

\n"; print "