>P.S. The embperl mailing list is the right place to discuss this
Add this to your footer sign, Gerald. :-)
>Could be a problem of your session handler, when no session id is defined,
>but I don't know. Try to set some id in the function:
I did... my class is well tested, I hate these fatal exceptions... Please
look at my log:
[264]SES: Received user session id 3kwwlkM8Zq6iQTvKJm3w5g
[264]Reading d:/inetpub/wwwroot/embperl/base.epl as input using PerlIO ...
[264]EVAL<
sub getPageTitle
{
return "SUAR test application";
}
sub getLoginInfo
{
if (defined($udat{username})) {
return "LOGGED AS $udat{username}";
} else {
return "NOT LOGGED IN";
}
}
sub authentificated
{
$req = shift;
return 1 if $ENV{SCRIPT_NAME} =~ /(index.phtml)|(login.phtml)/i;
unless ($udat{auth}) {
$http_headers_out{'Location'} = "login.phtml?msgbox=Please+login+first";
exit;
}
}
[264]EVAL> <undefined>
[264]PERF: input = d:\inetpub\wwwroot\embperl\base.epl
[264]PERF: Time: 10 ms Evals: 8 Cache Hits: 0 (0%)
[264]Request finished. Mon Aug 20 13:08:18 2001
. Entry-SVs: 34926 -OBJs: 22 Exit-SVs: 35173 -OBJs: 24
[264]MEM: Free buffer for d:\inetpub\wwwroot\embperl\base.epl in
HTML::Embperl::DOC::_1
[264]SES: Received user session id 3kwwlkM8Zq6iQTvKJm3w5g
[264]Reading d:/inetpub/wwwroot/embperl/index.phtml as input using PerlIO
...
[264]PERF: input = d:\inetpub\wwwroot\embperl\index.phtml
[264]PERF: Time: 0 ms Evals: 4 Cache Hits: 0 (0%)
[264]Request finished. Mon Aug 20 13:08:18 2001
. Entry-SVs: 35191 -OBJs: 24 Exit-SVs: 35340 -OBJs: 26
[264]MEM: Free buffer for d:\inetpub\wwwroot\embperl\index.phtml in
HTML::Embperl::DOC::_2
[264]SES: Received user session id 3kwwlkM8Zq6iQTvKJm3w5g
[264]Formdata... length = 0
[264]Open STDOUT for output...
[264]Reading d:\inetpub\wwwroot\embperl\base.epl as input using PerlIO ...
[264]EVAL<
$req = shift;
Execute('global.epl');
# Execute('init.epl');
$req->authentificated();
[264]MEM: Load d:/inetpub/wwwroot/embperl/global.epl in
HTML::Embperl::DOC::_3
[264]CACHE: New File for 'd:/inetpub/wwwroot/embperl/global.epl' (224ad98)
in 'HTML::Embperl::DOC::_3' hash cache-key
'd:/inetpub/wwwroot/embperl/global.epl'
[264]REQ: No Safe Eval All Opcode allowed mode = CGI-Script (1)
[264]REQ: Package = HTML::Embperl::DOC::_3
[264]Reading d:/inetpub/wwwroot/embperl/global.epl as input using PerlIO ...
[264]EVAL<
use Weber;
use Carp;
$req = shift;
$req->{appname} = "CentrßlnÝ rejst°Ýk";
#tie %udat, 'Weber::Session::DB_File', "TESTXXX", {'directory' =>
"d:/temp"};
[264]EVAL> CentrßlnÝ rejst°Ýk
[264]PERF: input = d:\inetpub\wwwroot\embperl\global.epl
[264]PERF: Time: 10 ms Evals: 1 Cache Hits: 0 (0%)
[264]Sub-Request finished. Mon Aug 20 13:08:18 2001
. Entry-SVs: 35595 -OBJs: 27 Exit-SVs: 35726 -OBJs: 29
[264]EVAL> 1
[264]CMD-: Cmd = 'html'
[264]CMD-: Cmd = 'head'
[264]CMD-: Cmd = 'title'
[264]EVAL< $req->getPageTitle()
[264]EVAL> SUAR test application
[264]CMD-: Cmd = '/title'
[264]CMD+: Cmd = 'meta'
[264]CMD-: Cmd = '/head'
[264]CMD+: Cmd = 'body'
[264]EVAL< (defined($fdat{msgbox})) ? "onload=\"alert('$fdat{msgbox}');\" "
: ''
[264]EVAL>
[264]CMD+: Cmd = 'table'
[264]CMD+: Cmd = 'tr'
[264]CMD-: Cmd = 'td'
[264]CMD-: Cmd = 'div'
[264]CMD-: Cmd = 'b'
[264]EVAL< $req->getLoginInfo()
[264]EVAL> NOT LOGGED IN
[264]CMD-: Cmd = '/b'
[264]CMD-: Cmd = '/div'
[264]CMD-: Cmd = '/td'
[264]CMD+: Cmd = '/tr'
[264]CMD+: Cmd = 'tr'
[264]CMD-: Cmd = 'td'
[264]EVAL< Execute('menu.phtml')
[264]MEM: Load d:/inetpub/wwwroot/embperl/menu.phtml in
HTML::Embperl::DOC::_4
[264]CACHE: New File for 'd:/inetpub/wwwroot/embperl/menu.phtml' (229eb6c)
in 'HTML::Embperl::DOC::_4' hash cache-key
'd:/inetpub/wwwroot/embperl/menu.phtml'
[264]REQ: No Safe Eval All Opcode allowed mode = CGI-Script (1)
[264]REQ: Package = HTML::Embperl::DOC::_4
[264]Reading d:/inetpub/wwwroot/embperl/menu.phtml as input using PerlIO ...
[264]CMD-: Cmd = 'strong'
[264]CMD+: Cmd = 'a'
[264]CMD-: Cmd = '/a'
[264]CMD-: Cmd = 'br'
[264]CMD+: Cmd = 'a'
[264]CMD-: Cmd = '/a'
[264]CMD-: Cmd = 'br'
[264]CMD+: Cmd = 'a'
[264]CMD-: Cmd = '/a'
[264]CMD-: Cmd = 'br'
[264]CMD+: Cmd = 'a'
[264]CMD-: Cmd = '/a'
[264]CMD-: Cmd = '/strong'
[264]PERF: input = d:\inetpub\wwwroot\embperl\menu.phtml
[264]PERF: Time: 0 ms Evals: 0 No Evals to cache
[264]Sub-Request finished. Mon Aug 20 13:08:18 2001
. Entry-SVs: 35790 -OBJs: 31 Exit-SVs: 35889 -OBJs: 33
[264]EVAL> 0
[264]CMD-: Cmd = '/td'
[264]CMD-: Cmd = 'td'
[264]CMD-: Cmd = 'blockquote'
[264]EVAL< Execute('*')
[264]CACHE: Found File for 'd:\inetpub\wwwroot\embperl\index.phtml'
(1961a20) in 'HTML::Embperl::DOC::_2' hash cache-key
'd:/inetpub/wwwroot/embperl/index.phtml'
[264]REQ: No Safe Eval All Opcode allowed mode = CGI-Script (1)
[264]REQ: Package = HTML::Embperl::DOC::_2
[264]Reading d:\inetpub\wwwroot\embperl\index.phtml as input using PerlIO
...
[264]EVAL< $mdat{counter}++
[264]EVAL> 2
[264]EVAL< $mdat{date} ||= localtime
[264]EVAL> Mon Aug 20 13:07:50 2001
[264]CMD-: Cmd = 'br'
[264]CMD-: Cmd = 'br'
[264]EVAL< $udat{sid}
[264]EVAL> 3kwwlkM8Zq6iQTvKJm3w5g
[264]EVAL<
# my $o = tied %udat;
# print OUT ($o->getids)[0];
# print OUT ' - ' . ($o->getids)[2];
# $http_headers_out{"Set-Cookie"} = "TEST=8957289572389";
[264]EVAL> <undefined>
[264]PERF: input = d:\inetpub\wwwroot\embperl\index.phtml
[264]PERF: Time: 10 ms Evals: 4 Cache Hits: 4 (100%)
[264]Sub-Request finished. Mon Aug 20 13:08:18 2001
. Entry-SVs: 35894 -OBJs: 33 Exit-SVs: 35911 -OBJs: 35
[264]EVAL> 0
[264]CMD-: Cmd = '/blockquote'
[264]CMD-: Cmd = '/td'
[264]CMD+: Cmd = '/tr'
[264]CMD+: Cmd = 'tr'
[264]CMD-: Cmd = 'td'
[264]CMD-: Cmd = 'div'
[264]CMD-: Cmd = 'b'
[264]CMD-: Cmd = 'font'
[264]CMD-: Cmd = '/font'
[264]CMD-: Cmd = '/b'
[264]CMD-: Cmd = '/div'
[264]CMD-: Cmd = '/td'
[264]CMD+: Cmd = '/tr'
[264]CMD+: Cmd = '/table'
[264]CMD-: Cmd = '/body'
[264]CMD-: Cmd = '/html'
[264]EVAL<
# Execute('cleanup.epl');
[264]EVAL> <undefined>
[264]SES: Received Cookie ID: 3kwwlkM8Zq6iQTvKJm3w5g New Cookie ID:
3kwwlkM8Zq6iQTvKJm3w5g User data is NOT modified
[264]HDR: Content-Type: text/html; charset=windows-1250
[264]PERF: input = d:\inetpub\wwwroot\embperl\base.epl
[264]PERF: Time: 170 ms Evals: 8 Cache Hits: 8 (100%)
[264]Request finished. Mon Aug 20 13:08:18 2001
. Entry-SVs: 35321 -OBJs: 26 Exit-SVs: 35907 -OBJs: 34
[264]MEM: Free buffer for d:\inetpub\wwwroot\embperl\index.phtml in
HTML::Embperl::DOC::_2
[264]MEM: Free buffer for d:\inetpub\wwwroot\embperl\menu.phtml in
HTML::Embperl::DOC::_4
[264]MEM: Free buffer for d:\inetpub\wwwroot\embperl\global.epl in
HTML::Embperl::DOC::_3
[264]MEM: Free buffer for d:\inetpub\wwwroot\embperl\base.epl in
HTML::Embperl::DOC::_1
I call index.phtml where
print $mdat{counter}
is.
The last choice is to try the penguin...
lzap
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
