Hi all!
I'm working on modifying Axkit::XSP::Auth, I think it would be neat to
true and false child elements of those tags that return a boolean
value, so that <xsp:logic> would in many cases be unnecessary.
But I'm not really getting very far...
I've grabbed an something from one of the examples;
<auth:password-matches encrypted="$1$jsdxRBEt$IzCeNthea4KqzkzNB7sT4/"
clear="ficken"/>
....and with the unmodified sub, it all works fine. But once I start
adding the smallest thing, it crashes. Now, I've reduced my sub to
this:
sub password_matches : attribOrChild(clear,encrypted) expr
{
warn "ATTRs: " . $attr_clear;
return << 'EOF';
($attr_clear && $attr_encrypted && crypt($attr_clear,$attr_encrypted) eq
$attr_encrypted?1:0);
EOF
}
i.e., I'm just adding a small warning that prints the value of the clear
attribute.
This is what the backtrace in my log says:
[Wed Jan 8 18:49:00 2003] [error] [client 127.0.0.1] [AxKit]
[Backtrace] AxKit::load_module failed: Global symbol "$attr_clear"
requires explicit package name at
/usr/local/share/perl/5.6.1/AxKit/XSP/Auth.pm line 272.
BEGIN not safe after errors--compilation aborted at
/usr/local/share/perl/5.6.1/AxKit/XSP/Auth.pm line 276.
Compilation failed in require at (eval 18) line 1.
Apache::AxKit::Exception::new('Apache::AxKit::Exception::Error',
'-text', 'AxKit::load_module failed: Global symbol "$attr_clear"
requires ...') called at /usr/lib/perl5/AxKit.pm line 839
AxKit::prep_exception('AxKit::load_module failed: Global symbol
"$attr_clear" requires ...') called at /usr/lib/perl5/AxKit.pm line 141
AxKit::__ANON__('AxKit::load_module failed: Global symbol "$attr_clear"
requires ...') called at /usr/lib/perl5/Apache/AxKit/Language/XSP.pm
line 167
Apache::AxKit::Language::XSP::_register_me_and_others() called at
/usr/lib/perl5/Apache/AxKit/Language/XSP.pm line 40
Apache::AxKit::Language::XSP::handler('Apache::AxKit::Language::XSP',
'AxKit::Apache=SCALAR(0x82beb08)',
'Apache::AxKit::Provider::File=HASH(0x82bcb40)',
'Apache::AxKit::Provider::File=HASH(0x82b3a3c)', 1) called at
/usr/lib/perl5/AxKit.pm line 623
AxKit::process_request('AxKit::Apache=SCALAR(0x82beb08)',
'Apache::AxKit::Provider::File=HASH(0x82bcb40)', 'ARRAY(0x8298b40)')
called at /usr/lib/perl5/AxKit.pm line 437
AxKit::run_axkit_engine('AxKit::Apache=SCALAR(0x82beb08)',
'Apache::AxKit::Provider::File=HASH(0x82bcb40)') called at
/usr/lib/perl5/AxKit.pm line 264
eval {...} called at /usr/lib/perl5/AxKit.pm line 255
AxKit::main_handler('AxKit::Apache=SCALAR(0x82beb08)',
'Apache::AxKit::Provider::File=HASH(0x82bcb40)') called at
/usr/lib/perl5/AxKit.pm line 172
AxKit::fast_handler('AxKit::Apache=SCALAR(0x82beb08)') called at
/dev/null line 0
eval {...} called at /dev/null line 0
I have no idea how to proceed on this... Apparently, with a simple
modification like this SimpleTaglib is not constructing the variables I
thought it would...
I've tried both with the modules downloaded from CPAN and with some I
got from Mark, they behave identically, AFAICS.
Any ideas?
Best,
Kjetil
--
Kjetil Kjernsmo
Astrophysicist/IT Consultant/Skeptic/Ski-orienteer/Orienteer/Mountaineer
[EMAIL PROTECTED] [EMAIL PROTECTED] [EMAIL PROTECTED]
Homepage: http://www.kjetil.kjernsmo.net/
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
