package lib::module;
require Exporter;
@ISA = qw(Exporter);
my %SETTING = ();
my $FLAG = $ENV{DOCUMENT_ROOT}; # в этой переменной храним путь к сайту на сервере
@EXPORT = qw(&SiteSetting);
use strict;
use lib::database;
sub SiteSetting {
# получаем идентификатор настройки и выводим значение
my $key = shift || return();
# если путь вдруг поменялся, то обнуляем наши настройки, т.к. вклинился другой сайт
if ($ENV{DOCUMENT_ROOT} ne $FLAG) {
%SETTING = ();
$FLAG = $ENV{DOCUMENT_ROOT};
}
if (exists($SETTING{$key})) {return($SETTING{$key});}
else {
my $sql = sql("SELECT key,value FROM setting WHERE key='$key';");
if ($$sql[0] eq $key) {
$SETTING{$key} = $$sql[1];
return($SETTING{$key});
} else {return();}
}
}
package lib::module;
require Exporter;
@ISA = qw(Exporter);
my %SETTING = ();
@EXPORT = qw(&SiteSetting);
use strict;
use lib::database;
sub SiteSetting {
# получаем идентификатор настройки и выводим значение
my $key = shift || return();
if (exists($SETTING{$key})) {return($SETTING{$key});}
else {
my $sql = sql("SELECT key,value FROM setting WHERE key='$key';");
if ($$sql[0] eq $key) {
$SETTING{$key} = $$sql[1];
return($SETTING{$key});
} else {return();}
}
}