Автор Тема: Помогите пожалуйста с сайтом  (Прочитано 3377 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн lexraf

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 1
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
Помогите пожалуйста с сайтом
« : 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; #вывод сформированного темплейта на экран
« Последнее редактирование: 08 Января 2019, 12:53:45 от NAS »

Оффлайн Ecanmadi

  • Новичок
  • *
  • Сообщений: 2
  • +0/-0
    • Просмотр профиля
Re: Помогите пожалуйста с сайтом
« Ответ #1 : 08 Января 2019, 12:32:23 »
Oh, it was the answer I searched for a long time.

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28