Магазин
Быстрый вопрос
Тема закрыта
Генеральный в свое время решил сам изменить доступ к админке (говорит что менял только в коде пароли к доступу в MyADmin...)
Но вот после того в админку было можно было зайти но нельзя было что либо там делать - ошибка 400...
Теперь добавление новостей товаров и т.д. идет только напрямую через MyADmin - это геморой
ПОвозившись немного у меня теперь после ввода лога и паса в админку теперь ошибка - 500
Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.
Please contact the server administrator, devnull@hosting.ru and inform them of the time the error occurred, and anything you might have done that may have caused the error.
More information about this error may be available in the server error log.
Apache/1.3.37 Server at www.decotec.ru Port 80
Что это такое и как это исправить я уже не понимаю... много чего пересмотрел и не понимаю...
Ниже приведу структура папок самого сайта (мало ли вдруг нужно...)
[bin]
[cgi-bin]
[log]
[www]
Собственно в папке cgi-bin есть папка admin , а там есть один из, как я понимаю, самых основных файлов - index.pl
#!/usr/bin/perl
use lib "../lib";
use SysFunc;
use Templates;
use DBI;
use data;
print "Content-type: text/html;charset=windows-1251\n\n";
my $globals=&SysFunc::get_globals();
if(!$::globals->{id}){
Templates::show_page("../../www/admin.html",);
return 1;
}
%data=&data::get();
$data=Templates::add_translate($data,"cat_cr","<font color=blue>");
$data=Templates::add_translate($data,"gb_cr","<font color=blue>");
$data=Templates::add_translate($data,"passwd_cr","<font color=blue>");
$data=Templates::add_translate($data,"error","$data{error}");
Templates::show_page("../../www/html/admin.html",$data);
&SysFunc::add_globals;
exit(0);
собственно код файла admin.html из папки www
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
</head>
<body bgcolor=#eeeeee>
<!--#error--><!--#-->
<FORM action="/cgi-bin/admin/login/index.pl" method=POST>
<center>
<table style="height:120px;width: 200px;background:#7d7d7d;color:#ffffff">
<tr><td>Логин:</td><td align=right><input size=12 type=text name=login style="border: 1px solid"></td></tr>
<tr><td>Пароль:</td><td align=right><input size=12 type=password name=passwd style="border: 1px solid"></td></tr>
<tr><td colspan=2 align=center><input type=submit style="border: 2px solid" value="Вот так!"></td></tr>
</table>
</center>
</FORM>
</body>
И код из файла admin.html из папкм www/html
<head>
<meta http-equiv="Content-Type" content="text/html; windows-1251">
<link rel=stylesheet type=text/css href="styles.css">
</head>
<body>
<center><b><!--{error--><!--{--></b></center>
<table width=98% height=100% border=1 bgcolor="#d0d0d0">
<tr>
<td valign=top>
<table style="width: 120px; height: 300px; border: 1px solid #d0d0d0">
<tr><td width=150 height=10><a href=""><< Вернуться на сайт</a></td></tr>
<tr><td width=150 height=10> </td></tr>
<tr><td width=150 height=10><a href="/cgi-bin/admin/catalog/index.pl?a=3">Каталог</a></td></tr>
<tr><td width=150 height=10><a href="/cgi-bin/admin/news/index.pl">Новости</a></td></tr>
<tr><td width=150 height=10><a href="/cgi-bin/admin/tbp/index.pl">Лучший Товар</a></td></tr>
<tr><td width=150 height=10><a href="/cgi-bin/admin/advice/index.pl">Совет Дня</a></td></tr>
<tr><td width=150 height=10><a href="/cgi-bin/admin/passwd/index.pl">Изменить пароль</a></td></tr>
<tr><td width=150 height=10><a href="/cgi-bin/admin/login/index.pl?action=logout">Выход</a></td></tr>
<tr><td width=150 height=100%> </td></tr>
</table>
</td>
<td valign=top bgcolor="#f0f0f0" width=100%>
<div style="width:100%"><!--{adminfield1--><!--{-->
</div>
<div style="width:100%"><!--{adminfield2--><!--{-->
</div>
<!--{edit}-->
<!--{main--><!--main}-->
<!--{edit1}-->
</td></tr></table>
</body>
Как видно из всех кодов для входа в админскую зону используется файл index.pl из cgi-bin/admin/login/ , а вот его код
#!/usr/bin/perl
use lib "../../lib";
use SysFunc;
use Templates;
use DBI;
use data;
my $globals=&SysFunc::get_globals();
%data=&data::get();
if($data{action} eq "logout")
{
&SysFunc::logout();
print qq~<script language=javascript>location.href="/";</script>~;
# return 1;
}
if(&SysFunc::login($data{login},$data{passwd}))
{
print qq~<script language=javascript>location.href="/cgi-bin/admin/index.pl";</script>~;
}
else
{
print "Content-type: text/html;charset=windows-1251\n\n";
$data=Templates::add_translate($data,"error","<font color=red>Ne pravilnii password</font>");
Templates::show_page("../../../admin.html",$data);
}
&SysFunc::add_globals;
exit(0);
ГДЕ ТУТ НЕПРАВИЛЬНО????
ПОМОГИТЕ ПЛИЗЗЗЗ!!!
Сам не могу разобраться!
