Пытался делать сайт на Perl,вроде код написал правильно, но пытаюсь запустить, пишет ошибку:
Content-type: text/HТМL
Software error:
Can\'t locate auto/CGI/Session/load.al in @INC (@INC contains: F:/Perl/lib F:/Perl/site/lib .) at f:\\EASYPH~1\\cgi-bin\\GOSTIN~1\\index.pl line 16
For help, please send mail to the webmaster (admin@localhost), giving this error message and the time and date of the error.
Может кто нить подсказать что делать и как?
Там может какого нить модуля не хватает?
Заранее спасибо.
Вот код первой страницы:
#!F:/Perl/bin/perl.exe
use HTML::Template;
use CGI::Carp qw (fatalsToBrowser);
use CGI::Cookie;
use CGI::Session qw/-ip-match/;
print "Content-type: text/html\\n\\n";
my $tmpl = HTML::Template->new(filename => \'index.tmpl\'); #загружаем темплейт
if((%cookies = fetch CGI::Cookie) && (defined($cookies{\'sid\'})))
{
$sid=$cookies{\'sid\'}->value;
}
$session = CGI::Session->load($sid);
if((!$session->is_empty) && (!$session->is_expired))
{
$log = $session->param(\'Login\');
$lev = $session->param(\'Level\');
$log="Вы вошли как ".$log."
<a href=\'logout.pl\'>Выйти</a>";
if($lev eq \'1\') #если мы работник то добавляем в меню пункт режим работы
{
$menu=\'<td><a href="regim.pl">Режим работы</a></td>\';
}
if($lev eq \'2\')
{
$menu=\'<td><a href="regim.pl">Режим работы</a></td><td><a href="admin.pl">Админка</a></td>\';
}
}
else
{
$log="
<form action=\'login.pl\' method=\'post\' >
<table width=\'228\' border=\'0\' cellspacing=\'0\' cellpadding=\'0\'>
<tr>
<td height=\'0\'></td><td rowspan=\'5\' width=\'25\'>
</td>
</tr>
<tr>
<td height=\'17\'><div align=\'right\'><span class=\'стиль4\'>логин
<input name=\'login\' height=\'17\'/>
</span><></td>
</tr>
<tr>
<td height=\'1\'></td>
</tr>
<tr>
<td height=\'17\'><div align=\'right\'><span class=\'стиль4\'>пароль
<input name=\'pass\' type=\'password\' height=\'17\' />
</span><></td>
</tr>
<tr>
<td height=\'17\'><input type=\'submit\' name=\'submit\' value=\'Войти\'>
<div align=\'left\'><span class=\'стиль4\'><a href=\'register.pl\'>регистрация</a></span><></td>
</tr>
</table>
</form>";
}
$tmpl->param(login => $log); # запись переменной в темплейт
$tmpl->param(menu => $menu);
print $tmpl->output; #вывод сформированного темплейта на экран
