Forum Webscript.Ru

Программирование => Perl => Тема начата: lexraf от 18 Января 2011, 22:08:06

Название: Помогите пожалуйста с сайтом
Отправлено: lexraf от 18 Января 2011, 22:08:06
Пытался делать сайт на 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; #вывод сформированного темплейта на экран
Название: Re: Помогите пожалуйста с сайтом
Отправлено: Ecanmadi от 08 Января 2019, 12:32:23
Oh, it was the answer I searched for a long time.