name2alias.pl

#!/usr/bin/perl

use warnings;
use strict;

use File::Find;
use Apache::Admin::Config;

my $sn2a = {};

find(\&molest, '/etc/httpd/conf/sites');

use Data::Dumper;
print Dumper($sn2a);

sub molest {
    if ($File::Find::name =~ m{\.conf$}) {
        my $conf = Apache::Admin::Config->new($File::Find::name)
                or die $Apache::Admin::Config::ERROR;
        for my $vhost ($conf->section(-name => 'VirtualHost')) {
            my $key = $vhost->directive(-name => 'ServerName')->value;
            $sn2a->{$key} ||= [];
            for ($vhost->directive(-name => 'ServerAlias')) {
                push @{$sn2a->{$key}}, $_->value;
            }
        }
    }
}