Здравствуйте, дорогие форумчане! Помогите плиз. Сразу скажу, что в Perl не шарю.
Проблема такова. Я установил cms 4Site (может кто ставил?)(она на перле). Там есть регистрационная форма. После ввода нужных данных нажимаем на кнопку (данные правильные) и вылетает ошибка mkdir {: Permission denied at /usr/lib/perl5/site_perl/5.8.8/CGI/Session/Driver/file.pm line 34
Я залез в указанный файл и, как понял ошибка связана с невозможностью создать директорию для хранения там сессионных данных. Вроде бы директория эта должна создаваться в /tmp, куда все могут писать. Код в перл-модуле, вызывающем ошибку, в районе 34 строки такойsub init {
my $self = shift; #
$self->{Directory} ||= File::Spec->tmpdir(); #
unless ( -d $self->{Directory} ) {
require File::Path;
unless ( File::Path::mkpath($self->{Directory}) ) {
return $self->set_error( "init(): couldn't create directory path: $!" );
}
}
Эта функция и вызывает ошибку. Здесь ООП я смотрю. Расскажите пли, что делает эта функция, чтобы знать, куда копать?
Заранее спасибо.