high,

first the versions:
1.3.27 for apache
1.29 for mod_perl

I have a site using like the following

 <Location /search>
                SetHandle/ perl-script
                PerlSetVar Filter On
                PerlHandler  Apache::CookieSupport   Apache::GrepSearch   
Apache::HeaderFooterFilter
        </Location>

where those files are using

use Apache::Filter;
sub handler {
        my $r = shift;
        $r = $r->filter_register();  # Required
..........


Now, Apache::CookieSupport gets all the post/get vars because IIRC they disappeared 
and otherwise were not visible to GrepSearch

So CookieSupport.pm is very much like

        # GrepSearch
        $r->notes('query' => CGI::param('query'));
        $r->notes('recursivity' => CGI::param('recursivity'));
        $r->notes('path' => CGI::param('path'));
                                                                                       
          

query comes from a form submission for searching that directory where the browser is 
browsing 

and is used in GrepSearch to tell it what to match against like


       while (<FILE>) {
                if (m/$query/oig) {
                        $r->log_error("inside file opened, query = $query and line = 
$_");


that list line shows (and this is my problem) even if $query prints out to the current 
search term, it matches the last one.  heres the error log section for that section:

i
[Wed Aug 18 22:53:23 2004] [error] inside file opened, query = what and line = 
<dt>GRANT CREATE ON SCHEMA apachelog to mod_log;^M

(what it did was match against "log" which was the previous form submissions's $query.


what can I do?Is  there a way to clear the notes object of $query values?  is there a 
DESTROy function for a notes key?  I tried doing 

        $r->notes->{'query'=>''};
   

whichdoesnt work.  so how can I keep my query object from being tainted by previous 
form submission?


joe

-- 
Report problems: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
List etiquette: http://perl.apache.org/maillist/email-etiquette.html

Reply via email to