#!/usr/bin/perl # # эта программа обслуживает функции, связанные с личной страницей пользователя # require 'lib/settings.pl'; require 'lib/lib.pl'; require 'lib/db_settings.pl'; use CGI; use English; use POSIX; use DBI; POSIX::setlocale (LC_ALL,$my_locale); # Parsing query $query = new CGI; # создаем пространство имен par:: с параметрами CGI-программы $query->import_names ('par'); # документ будет типа text/html, expiration - на сутки меньше текущего времени print $query->header(-type=>'text/html',-expires=>'-1d'); # печатаем заголовок страницы print < выберите магазин EOF # ------- соединяемся с БД ------------- $dbh = DBI->connect($db_dsn,$db_user,$db_password,{AutoCommit => 1}); print <