Here's one of the error log messages:
[Mon Oct 13 14:49:08 2003] [error] [client 172.16.1.5] [AxKit] [Backtrace] Compilation failed: syntax error at (eval 29) line 84, at EOF
syntax error at (eval 29) line 86, near ";
) "
The attachments are from my axkit-xsp-trace directory. '.0' is example.xsp as included in the AxKit::XSP::BasicSession tarball and '.XSP' is the Perl script which is failing at line 84. It's obviously incorrect Perl code. I just don't know where to look to fix it.
This XSP script works OK so I don't think it's my setup: <xsp:page xmlns:xsp="http://apache.org/xsp/core/v1";> <output> Hello World. The time of request is: <xsp:expr>scalar localtime</xsp:expr> </output> </xsp:page>
Any help gratefully received
TIA
Gary Ashton-Jones
<?xml version="1.0"?> <?xml-stylesheet href="NULL" type="application/x-xsp"?> <xsp:page xmlns:xsp="http://apache.org/xsp/core/v1"; xmlns:param="http://axkit.org/NS/xsp/param/v1"; xmlns:session="http://www.axkit.org/2002/XSP/BasicSession";>
<html>
<!-- Increment the page count session attribute -->
<session:set-attribute name="pagecount">
<session:value>
<xsp:expr><session:get-attribute name="pagecount"/> + 1</xsp:expr>
</session:value>
</session:set-attribute>
<body>
<p>
Welcome to the test of AxKit::XSP::BasicSession.
</p>
<p>
Your session ID is <tt>"<session:get-id/>"</tt>.
</p>
<p>
Page loaded <session:get-attribute name="pagecount"/> times. This
session was last accessed on <session:get-last-accessed-time/> and
was first created on <session:get-creation-time/>
</p>
<p>
You can reset your session by
<a href="sessiontest.xsp?reset=1">
adding ?reset=1 to your query string
</a>. Don't forget to <a href="sessiontest.xsp">remove it before
continuing</a>, or else your session will keep getting re-set.
</p>
<xsp:logic>
if (<param:reset/>) {
<session:invalidate/>;
<p>
Your session is now reset. Please load the page without the
reset parameter, and you will notice that the counter drops back
to 1.
</p>
}
</xsp:logic>
</body>
</html>
</xsp:page>
package
Apache::AxKit::Language::XSP::ROOT::usr::local::apache::htdocs::xsp::sessiontest_2exsp;
use Apache;
use Apache::Constants qw(:common);
use XML::LibXML;
Apache::AxKit::Language::XSP::Page->import( qw(__mk_text_node __mk_comment_node
__mk_ns_element_node __mk_element_node) );
use utf8;#initialize xsp namespace
#initialize xsp namespace
@Apache::AxKit::Language::XSP::ROOT::usr::local::apache::htdocs::xsp::sessiontest_2exsp::ISA
= ('Apache::AxKit::Language::XSP::Page');
sub xml_generator {
my $class = shift;
my ($r, $cgi, $document, $parent) = @_;
$parent = __mk_element_node($document, $parent, q|html|);
__mk_text_node($document, $parent, "" . do {{ my %_args = (); $_args{name} =
q|pagecount|;
$_args{value} = ""
. do {do {{ my %_args = (); $_args{name} = q|pagecount|;
; die 'Required arg "name" for tag get-attribute is missing' if not defined
$_args{name};
Apache::AxKit::Language::XSP::TaglibHelper::handle_result('get_attribute($name)',
undef(), 0, $document, $parent,
AxKit::XSP::BasicSession::get_attribute($_args{name},));}
} + 1};
; die 'Required arg "name" for tag set-attribute is missing' if not defined
$_args{name};
die 'Required arg "value" for tag set-attribute is missing' if not defined
$_args{value};
Apache::AxKit::Language::XSP::TaglibHelper::handle_result('set_attribute($name,$value)',
undef(), 0, $document, $parent,
AxKit::XSP::BasicSession::set_attribute($_args{name},$_args{value},));}
}); # non xsp tag
$parent = __mk_element_node($document, $parent, q|body|);
$parent = __mk_element_node($document, $parent, q|p|);
__mk_text_node($document, $parent, q|
Welcome to the test of AxKit::XSP::BasicSession.
|);
$parent = $parent->getParentNode;
$parent = __mk_element_node($document, $parent, q|p|);
__mk_text_node($document, $parent, q|
Your session ID is |);
$parent = __mk_element_node($document, $parent, q|tt|);
__mk_text_node($document, $parent, q|"|);
__mk_text_node($document, $parent, "" . do {{ my %_args = ();;
Apache::AxKit::Language::XSP::TaglibHelper::handle_result('get_id()', undef(), 0,
$document, $parent, AxKit::XSP::BasicSession::get_id());}
}); # non xsp tag
__mk_text_node($document, $parent, q|"|);
$parent = $parent->getParentNode;
__mk_text_node($document, $parent, q|.
|);
$parent = $parent->getParentNode;
$parent = __mk_element_node($document, $parent, q|p|);
__mk_text_node($document, $parent, q|
Page loaded |);
__mk_text_node($document, $parent, "" . do {{ my %_args = (); $_args{name} =
q|pagecount|;
; die 'Required arg "name" for tag get-attribute is missing' if not defined
$_args{name};
Apache::AxKit::Language::XSP::TaglibHelper::handle_result('get_attribute($name)',
undef(), 0, $document, $parent,
AxKit::XSP::BasicSession::get_attribute($_args{name},));}
}); # non xsp tag
__mk_text_node($document, $parent, q| times. This
session was last accessed on |);
__mk_text_node($document, $parent, "" . do {{ my %_args = ();;
Apache::AxKit::Language::XSP::TaglibHelper::handle_result('get_last_accessed_time(;$as,$format)',
undef(), 0, $document, $parent,
AxKit::XSP::BasicSession::get_last_accessed_time($_args{as},$_args{format},));}
}); # non xsp tag
__mk_text_node($document, $parent, q| and
was first created on |);
__mk_text_node($document, $parent, "" . do {{ my %_args = ();;
Apache::AxKit::Language::XSP::TaglibHelper::handle_result('get_creation_time(;$as,$format)',
undef(), 0, $document, $parent,
AxKit::XSP::BasicSession::get_creation_time($_args{as},$_args{format},));}
}); # non xsp tag
$parent = $parent->getParentNode;
$parent = __mk_element_node($document, $parent, q|p|);
__mk_text_node($document, $parent, q|
You can reset your session by
|);
$parent = __mk_element_node($document, $parent, q|a|);
$parent->setAttribute(q|href|,q|sessiontest.xsp?reset=1|);
__mk_text_node($document, $parent, q|
adding ?reset=1 to your query string
|);
$parent = $parent->getParentNode;
__mk_text_node($document, $parent, q|. Don't forget to |);
$parent = __mk_element_node($document, $parent, q|a|);
$parent->setAttribute(q|href|,q|sessiontest.xsp|);
__mk_text_node($document, $parent, q|remove it before
continuing|);
$parent = $parent->getParentNode;
__mk_text_node($document, $parent, q|, or else your session will keep getting re-set.
|);
$parent = $parent->getParentNode;
if ($parent = __mk_ns_element_node($document, $parent,
q|http://axkit.org/NS/xsp/param/v1|,q|param:reset|)) {
$parent = $parent->getParentNode;
do {{ my %_args = ();;
Apache::AxKit::Language::XSP::TaglibHelper::handle_result('invalidate()', undef(), 0,
$document, $parent, AxKit::XSP::BasicSession::invalidate());}
};
$parent = __mk_element_node($document, $parent, q|p|);
__mk_text_node($document, $parent, q|
Your session is now reset. Please load the page without the
reset parameter, and you will notice that the counter drops back
to 1.
|);
$parent = $parent->getParentNode;
}
$parent = $parent->getParentNode;
$parent = $parent->getParentNode;
return OK;
}
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
