Hello, All.
I'm Alexey Zaytas.
Just now i've got time to rewrite my mod_perl
application.
And i'll get to onw configuration directives in
httpd.conf, related to my module.
Every parsing methods, such as TAKE1, TAKE2 etc.,
works fine.
But RAW_ARGS i can't take to use.
While i try read config handle i've got
"readline() on unopened filehandle _GEN_0 at ..."
Any help wanted.
Environment:
OS: linux, suse 8.2
Apache = 1.3.29
mod_perl = 1.29
perl = 5.8.1
command_table containst:
{
name => '<XFirewallRule',
errmsg => 'firewall rules container',
args_how => 'RAW_ARGS',
req_override => 'OR_ALL'
},
{
name => '</XFirewallRule>',
errmsg => 'end of firewall rules container',
args_how => 'NO_ARGS',
req_override => 'OR_ALL',
},
Module have:
my $EndToken = "</XFirewallRule>";
sub XFirewallRule($$$*) {
my ($cfg, $parms, $bytype, $fh) = @_;
$bytype =~ s/>$//;
while((my $line = <$fh>) !~ m:^$EndToken:o) {
.......
}
}
sub XFirewallRule_END () {
die "$EndToken outside a <XFirewallRule>
container";
}
Sorry for my bad english
and good luck
Alexey Zayats, [EMAIL PROTECTED]
__________________________________
Do you Yahoo!?
New Yahoo! Photos - easier uploading and sharing.
http://photos.yahoo.com/
--
Reporting bugs: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
