Apache-ConfigParser
view release on metacpan or search on metacpan
* Release version 0.03.
Sat Sep 15 22:59:50 PDT 2001 <blair@orcaware.com> Blair Zajac
* lib/Apache/ConfigParser.pm: Upgrade to version 0.03.
README: Ditto.
Sat Sep 15 22:50:27 PDT 2001 <blair@orcaware.com> Blair Zajac
* lib/Apache/ConfigParser.pm: In
&directive_value_is_not_dev_null_and_pipe_and_syslog allow
0-9 to appear in the facility name and allow :facility to be
optional.
* lib/Apache/ConfigParser.pm: Ditto.
Fri Sep 14 21:44:24 PDT 2001 <blair@orcaware.com> Blair Zajac
* Release version 0.02.
Fri Sep 14 21:27:48 PDT 2001 <blair@orcaware.com> Blair Zajac
* lib/Apache/ConfigParser.pm: Rename &relative_path_check to
&directive_value_is_not_dev_null,
&relative_path_check_for_pipe to
&directive_value_is_not_dev_null_and_pipe and
&relative_path_check_for_pipe_and_syslog to
&directive_value_is_not_dev_null_and_pipe_and_syslog.
* lib/Apache/ConfigParser.pod: Ditto.
Fri Sep 14 21:08:14 PDT 2001 <blair@orcaware.com> Blair Zajac
* lib/Apache/ConfigParser.pm: Instead of checking if a file or
directory is absolute to prepend the ServerRoot on just Unix
and Windows systems, use File::Spec->file_name_is_absolute
which handles many more operating systems. For the
AccessConfig, Include and ResourceConfig directives, do not
lib/Apache/ConfigParser/Directive.pm view on Meta::CPAN
# LoadModule env_module modules/mod_env.so
$directive_value_path_element_pos{loadmodule} eq '1';
# PidFile logs/httpd.pid
$directive_value_path_element_pos{pidfile} eq '0';
=back
=cut
sub directive_value_is_not_dev_null {
!is_dev_null($_[0]);
}
sub directive_value_is_not_dev_null_and_pipe {
if (is_dev_null($_[0])) {
return 0;
}
return $_[0] !~ /^\s*\|/;
}
sub directive_value_is_not_dev_null_and_pipe_and_syslog {
if (is_dev_null($_[0])) {
return 0;
}
return $_[0] !~ /^\s*(?:(?:\|)|(?:syslog(?::[a-zA-Z0-9]+)?))/;
}
# This is a hash keyed by directive name and the value is an array
# reference. The array element are
# array array
# index value
# 0 A string containing an integer that describes the element
# position(s) that contains the file or directory path.
# string =~ /^\d+/ a single element that contains a path
# string =~ /^-\d+/ multiple elements, first is abs(\d+)
# 1 1 if the paths the directive accepts can be absolute and
# relative, 0 if they can only be absolute
# 2 a subroutine reference to directive_value_is_not_dev_null,
# directive_value_is_not_dev_null_and_pipe or
# directive_value_is_not_dev_null_and_pipe_and_syslog.
my %directive_info = (
AccessConfig => ['0',
1,
\&directive_value_is_not_dev_null],
AuthDBGroupFile => ['0',
0,
\&directive_value_is_not_dev_null],
AuthDBMGroupFile => ['0',
0,
\&directive_value_is_not_dev_null],
AuthDBMUserFile => ['0',
0,
\&directive_value_is_not_dev_null],
AuthDBUserFile => ['0',
0,
\&directive_value_is_not_dev_null],
AuthDigestFile => ['0',
0,
\&directive_value_is_not_dev_null],
AgentLog => ['0',
0,
\&directive_value_is_not_dev_null_and_pipe],
AuthGroupFile => ['0',
1,
\&directive_value_is_not_dev_null],
AuthUserFile => ['0',
1,
\&directive_value_is_not_dev_null],
CacheRoot => ['0',
0,
\&directive_value_is_not_dev_null],
CookieLog => ['0',
1,
\&directive_value_is_not_dev_null],
CoreDumpDirectory => ['0',
0,
\&directive_value_is_not_dev_null],
CustomLog => ['0',
1,
\&directive_value_is_not_dev_null_and_pipe],
Directory => ['0',
0,
\&directive_value_is_not_dev_null],
DocumentRoot => ['0',
0,
\&directive_value_is_not_dev_null],
ErrorLog => ['0',
1,
\&directive_value_is_not_dev_null_and_pipe_and_syslog],
Include => ['0',
1,
\&directive_value_is_not_dev_null],
IncludeOptional => ['0',
1,
\&directive_value_is_not_dev_null],
LoadFile => ['-0',
1,
\&directive_value_is_not_dev_null],
LoadModule => ['1',
1,
\&directive_value_is_not_dev_null],
LockFile => ['0',
1,
\&directive_value_is_not_dev_null],
MMapFile => ['0',
0,
\&directive_value_is_not_dev_null],
MimeMagicFile => ['0',
1,
\&directive_value_is_not_dev_null],
PidFile => ['0',
1,
\&directive_value_is_not_dev_null],
RefererLog => ['0',
1,
\&directive_value_is_not_dev_null_and_pipe],
ResourceConfig => ['0',
1,
\&directive_value_is_not_dev_null],
RewriteLock => ['0',
0,
\&directive_value_is_not_dev_null],
ScoreBoardFile => ['0',
1,
\&directive_value_is_not_dev_null],
ScriptLog => ['0',
1,
\&directive_value_is_not_dev_null],
ServerRoot => ['0',
0,
\&directive_value_is_not_dev_null],
TransferLog => ['0',
1,
\&directive_value_is_not_dev_null_and_pipe],
TypesConfig => ['0',
1,
\&directive_value_is_not_dev_null]);
# Set up the three exported hashes using the information in
# %directive_info. Use lowercase directive names.
foreach my $key (keys %directive_info) {
my $ref = $directive_info{$key};
my $lc_key = lc($key);
my ($index, $abs_and_rel, $sub_ref) = @$ref;
if ($abs_and_rel) {
$directive_value_takes_rel_path{$lc_key} = $sub_ref;
}
lib/Apache/ConfigParser/Directive.pod view on Meta::CPAN
# LoadModule env_module modules/mod_env.so
$directive_value_path_element_pos{loadmodule} eq '1';
# PidFile logs/httpd.pid
$directive_value_path_element_pos{pidfile} eq '0';
=back
=cut
sub directive_value_is_not_dev_null {
!is_dev_null($_[0]);
}
sub directive_value_is_not_dev_null_and_pipe {
if (is_dev_null($_[0])) {
return 0;
}
return $_[0] !~ /^\s*\|/;
}
sub directive_value_is_not_dev_null_and_pipe_and_syslog {
if (is_dev_null($_[0])) {
return 0;
}
return $_[0] !~ /^\s*(?:(?:\|)|(?:syslog(?::[a-zA-Z0-9]+)?))/;
}
# This is a hash keyed by directive name and the value is an array
# reference. The array element are
# array array
# index value
# 0 A string containing an integer that describes the element
# position(s) that contains the file or directory path.
# string =~ /^\d+/ a single element that contains a path
# string =~ /^-\d+/ multiple elements, first is abs(\d+)
# 1 1 if the paths the directive accepts can be absolute and
# relative, 0 if they can only be absolute
# 2 a subroutine reference to directive_value_is_not_dev_null,
# directive_value_is_not_dev_null_and_pipe or
# directive_value_is_not_dev_null_and_pipe_and_syslog.
my %directive_info = (
AccessConfig => ['0',
1,
\&directive_value_is_not_dev_null],
AuthDBGroupFile => ['0',
0,
\&directive_value_is_not_dev_null],
AuthDBMGroupFile => ['0',
0,
\&directive_value_is_not_dev_null],
AuthDBMUserFile => ['0',
0,
\&directive_value_is_not_dev_null],
AuthDBUserFile => ['0',
0,
\&directive_value_is_not_dev_null],
AuthDigestFile => ['0',
0,
\&directive_value_is_not_dev_null],
AgentLog => ['0',
0,
\&directive_value_is_not_dev_null_and_pipe],
AuthGroupFile => ['0',
1,
\&directive_value_is_not_dev_null],
AuthUserFile => ['0',
1,
\&directive_value_is_not_dev_null],
CacheRoot => ['0',
0,
\&directive_value_is_not_dev_null],
CookieLog => ['0',
1,
\&directive_value_is_not_dev_null],
CoreDumpDirectory => ['0',
0,
\&directive_value_is_not_dev_null],
CustomLog => ['0',
1,
\&directive_value_is_not_dev_null_and_pipe],
Directory => ['0',
0,
\&directive_value_is_not_dev_null],
DocumentRoot => ['0',
0,
\&directive_value_is_not_dev_null],
ErrorLog => ['0',
1,
\&directive_value_is_not_dev_null_and_pipe_and_syslog],
Include => ['0',
1,
\&directive_value_is_not_dev_null],
IncludeOptional => ['0',
1,
\&directive_value_is_not_dev_null],
LoadFile => ['-0',
1,
\&directive_value_is_not_dev_null],
LoadModule => ['1',
1,
\&directive_value_is_not_dev_null],
LockFile => ['0',
1,
\&directive_value_is_not_dev_null],
MMapFile => ['0',
0,
\&directive_value_is_not_dev_null],
MimeMagicFile => ['0',
1,
\&directive_value_is_not_dev_null],
PidFile => ['0',
1,
\&directive_value_is_not_dev_null],
RefererLog => ['0',
1,
\&directive_value_is_not_dev_null_and_pipe],
ResourceConfig => ['0',
1,
\&directive_value_is_not_dev_null],
RewriteLock => ['0',
0,
\&directive_value_is_not_dev_null],
ScoreBoardFile => ['0',
1,
\&directive_value_is_not_dev_null],
ScriptLog => ['0',
1,
\&directive_value_is_not_dev_null],
ServerRoot => ['0',
0,
\&directive_value_is_not_dev_null],
TransferLog => ['0',
1,
\&directive_value_is_not_dev_null_and_pipe],
TypesConfig => ['0',
1,
\&directive_value_is_not_dev_null]);
# Set up the three exported hashes using the information in
# %directive_info. Use lowercase directive names.
foreach my $key (keys %directive_info) {
my $ref = $directive_info{$key};
my $lc_key = lc($key);
my ($index, $abs_and_rel, $sub_ref) = @$ref;
if ($abs_and_rel) {
$directive_value_takes_rel_path{$lc_key} = $sub_ref;
}
( run in 0.641 second using v1.01-cache-2.11-cpan-4d4bc49f3ae )