reading a httpd.conf file

[Chad Kellerman]

Hello everyone,

I have a little issue that I am sure someone has come across here
once before and was wondering if I can get some pointers.

I am trying to read and grab values from a "messy" httpd.conf
file. What I am trying to do is grab the ServerName value and
DocumentRoot value for a given VirtualHost depending on the username I
have defined.

The httpd.conf file has many VirtualHost sections (50 +). And each
section does not have the same order of directives as the next. For
example:

<VirtualHost domain1.com>
ScriptAlias /cgi-bin/ /usr/www/htdocs/lee/domain1-www/cgi-bin/
DocumentRoot /usr/www/htdocs/lee/domain1-www
ServerAdmin [email]webmaster@domain1.com[/email]
ServerName domain1.com
User lee
</VirtualHost>

<VirtualHost domain4.com>
User bob
DocumentRoot /usr/www/htdocs/bob/domain1-www
ServerAdmin [email]bob@domain4.com[/email]
ScriptAlias /cgi-bin/ /usr/www/htdocs/bob/domain1-www/cgi-bin/
ServerName domain4.com
</VirtualHost>


So I wanted to write a script that if I have a username I could use
that to get the ServerName and DocumentRoot from the correct VirtualHost
Section. Here is what I have:

----------------------<code>-----------------------------------------
#!/usr/local/bin/perl
use strict;
use warnings;
use diagnostics;
$|++;

use vars qw(
$httpd_conf_dir $httpd_conf_file $owner
$servername $docroot $user
);

$httpd_conf_dir = '/etc/httpd/conf';
$httpd_conf_file = "$httpd_conf_dir/httpd.conf";
$user = 'lee';
$/ = '<V';

open (HTTPD, "$httpd_conf_file")
or die "cannot open $httpd_conf_file:$!";
while (<HTTPD>)
{
if (/irtualHost/)
{
$owner = $1 if /^User\s*(\d+)/m;
next if ($owner ne $user);
$servername = $1 if /^ServerName\s*(\w+)/m;
$docroot = $1 if /^DocumentRoot\s*(.+)/m;
}
}
close (HTTPD);

print "$owner : $servername : $docroot\n";

------------------</code>------------------------------------------

But this just doesn't work. I get the last VirtualHost sections
servername (minus the .com) and the Docroot. But the username isn't
there..



Can anyone steer me in the right direction?

THanks,
Chad

[Wiggins D Anconia]

> Hello everyone,
>
> I have a little issue that I am sure someone has come across here
> once before and was wondering if I can get some pointers.
>
> I am trying to read and grab values from a "messy" httpd.conf
> file. What I am trying to do is grab the ServerName value and
> DocumentRoot value for a given VirtualHost depending on the username I
> have defined.
>
> The httpd.conf file has many VirtualHost sections (50 +). And each
> section does not have the same order of directives as the next. For
> example:
>
> <VirtualHost domain1.com>
> ScriptAlias /cgi-bin/ /usr/www/htdocs/lee/domain1-www/cgi-bin/
> DocumentRoot /usr/www/htdocs/lee/domain1-www
> ServerAdmin [email]webmaster@domain1.com[/email]
> ServerName domain1.com
> User lee
> </VirtualHost>
>
> <VirtualHost domain4.com>
> User bob
> DocumentRoot /usr/www/htdocs/bob/domain1-www
> ServerAdmin [email]bob@domain4.com[/email]
> ScriptAlias /cgi-bin/ /usr/www/htdocs/bob/domain1-www/cgi-bin/
> ServerName domain4.com
> </VirtualHost>
>
>
> So I wanted to write a script that if I have a username I could use
> that to get the ServerName and DocumentRoot from the correct VirtualHost
> Section. Here is what I have:
>
> ----------------------<code>-----------------------------------------
> #!/usr/local/bin/perl
> use strict;
> use warnings;
> use diagnostics;
> $|++;
>
> use vars qw(
> $httpd_conf_dir $httpd_conf_file $owner
> $servername $docroot $user
> );
>
> $httpd_conf_dir = '/etc/httpd/conf';
> $httpd_conf_file = "$httpd_conf_dir/httpd.conf";
> $user = 'lee';
> $/ = '<V';
>
> open (HTTPD, "$httpd_conf_file")
> or die "cannot open $httpd_conf_file:$!";
> while (<HTTPD>)
> {
> if (/irtualHost/)
> {
> $owner = $1 if /^User\s*(\d+)/m;

In the above regex you are looking for \d+ as the username, but your
usernames consist of letters?? [A-Za-z]+ maybe more appropriate, or
maybe even \w+?

> next if ($owner ne $user);
> $servername = $1 if /^ServerName\s*(\w+)/m;
> $docroot = $1 if /^DocumentRoot\s*(.+)/m;
> }
> }
> close (HTTPD);
>
> print "$owner : $servername : $docroot\n";
>
> ------------------</code>------------------------------------------
>

Have you considered CPAN, Apache::Admin::Config looks promising:

[url]http://search.cpan.org/~rsoliv/Apache-Admin-Config-0.91/lib/Apache/Admin/Config.pm[/url]

[url]http://danconia.org[/url]