(perl+html)
    ~
Advanced Hosters -

kocmocivan
: 10.09.2009
: 1
# : 11, 2009 1:46 pm
2 (www.decotec.ru), ...
, perl ...
1) " " (http://www.decotec.ru/?catalog) -
Set-Cookie: decotec=zcatalogz#; path=/
(http://www.decotec.ru/?catalog=0&fid=53) -
Set-Cookie: decotec=zcatalogzzcatalog=0&fid=53z#; path=/

2 - cgi-bin->lib
SysFunc.pm , SysFunc2.pm

-
my $session_cookie = "SESSION_ID=$session_id; path=/";
print "Content-type: text/html\n\n";
print "Set-Cookie: $session_cookie\n\n";

Set-Cookie ....
, ... , ...

? ?

2) , - ...
- .. , "" ( ), -
Internal Server Error
The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator, [email protected] 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

perl + html... ...
.htaccess , -

DirectoryIndex index.pl
Options +ExecCGI
RewriteEngine Off

"" .. - http://www.decotec.ru/cgi-bin/admin/login/index.pl

-
#!/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="/decotec/";</script>~;
# return 1;
}
if(&SysFunc::login($data{login},$data{passwd}))
{
print qq~<script language=javascript>location.href="/decotec/cgi-bin/admin/";</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?quot;,$data);
}
&SysFunc::add_globals;
exit(0);
, :
Templates::show_page("../../../admin.html?quot;,$data); -< ?
.. admin.html 2 /www/admin.html ( ), /www/html/admin.html ( ).

../../../ ( , 2 (..) , 3 ...) ????


{
&SysFunc::logout();
print qq~<script language=javascript>location.href="/decotec/";</script>~;
# return 1;
}

():
_______________________
ocation.href="/decotec/"
_______________________
$ROOT = "/decotec/";
_______________________
="/decotec/cgi-bin/admin/";

.. /decotec/ .... ???? /decotec/ ??? ????

!!!!! bums
    ~