NAME HTML::StickyQuery - add sticky QUERY_STRING to a tag href attributes. SYNOPSIS use HTML::StickyQuery; my $s = HTML::StickyQuery->new( regexp => '\.cgi$', abs => 0, override => 1 ); print $s->sticky( file => 'foo.html', param => { SESSIONID => 'xxx' } ); DESCRIPTION this module is sub class of the HTML::Parser manpage and uses it to parse HTML document and add QUERY_STRING to href attributes. you can assign Session ID or any form data without using cookie. if you want to use sticky CGI data via FORM. it is better to use the HTML::FillInForm manpage. CONSTRUCTOR new(%option) constructor of HTML::StickyQuery object. the options are below. abs add QUERY_STRING to absolute URI or not. (default: 0) override override original QUERY_STRING or not (default: 0) regexp regular expression of affected URI. (default: *none*) METHODS sticky(%options) parse HTML and add QUERY_STRING. return HTML document. the options are below. file specify the HTML file. scalarref specify the HTML document as scalarref. arrayref specify the HTML document as arrayref. param QUERY_STRING data. as hashref. EXAMPLE typical example of CGI application using session. use the Apache::Session manpage,the HTML::Template manpage and the HTML::StickyQuery manpage template file. test.html Session Test COUNT:

countup

CGI program. test.cgi #!/usr/local/bin/perl use strict; use CGI; use HTML::Template; use HTML::StickyQuery; use Apache::Session::DB_File; my %session; my $cgi = CGI->new; # create session. my $id = $cgi->param('SESSIONID'); tie %session,'Apache::Session::DB_File',$id,{ FileName => './session.db', LockDirectory => './lock' }; $session{count} = $session{count} + 1; my $tmpl = HTML::Template->new(filename => './test.html'); $tmpl->param(count => $session{count}); my $output = $tmpl->output; # no COOKIE print $cgi->header; my $stq = HTML::StickyQuery->new; print $stq->sticky( scalarref => \$output, param => { SESSIONID => $session{_session_id} } ); AUTHOR IKEBE Tomohiro SEE ALSO the HTML::Parser manpage the HTML::FillInForm manpage CREDITS Fixes,Bug Reports. Tatsuhiko Miyagawa COPYRIGHT Copyright(C) 2001 IKEBE Tomohiro All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.