#!/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 <selectrow_array (sprintf (" select descr,url from links where id=$par::id and shop=%s", $dbh->quote($par::shop) )); print "Посетить магазин\n"; print "

$par::shop

"; print < $descr; EOF $dbh->disconnect; print "\n";