I am trying to approximate a construct that I used heavily in mod_perl
1, namely:
my %in = ( $r->content, $r->args );
if ( $in{form_data_key} ) {
# ... do something ...
}
else {
$in{form_data_key} = 'some value';
}
$r->print( $in{form_data_key} );
Under mod_perl 2, using Apache::Request (2.03_04-dev) I have arrived at
the following construct:
use Apache::Request;
use APR::Table;
my $apr = Apache::Request->new( $r );
my $in = $apr->param;
if ( $in->{'form_data_key'} ) {
# ... do something ...
}
else {
$in->{'form_data_key'} = 'some value';
}
$r->print( $in->{'form_data_key'} );
When I read this value from a POST or a GET everything works happily.
When I try to add something to the table the add happens without event,
but I can not read the set value back.
Am I missing something in how APR::Table works or is there a better
construct I should be using?
--
nicholas studt - 29 June 2004
--
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
