source: genesis/tools/conf2inc.pl@ 6538

#!/usr/bin/perl
# use strict;
use Data::Dumper;

$|++;

my $DIR='../nodes';
my @nodes=();

opendir(DIR,$DIR) or die $!;

my $nodes = \();

foreach(readdir(DIR)) {
        next unless m/[CH]Node[\w+]/;
        # print STDERR "Working on: $_\n";
        my $n = $_;
        my $f = $DIR.'/'.$n.'/wleiden.conf';
        next unless -r $f;
        eval qq|
                package $n;
                require "$f";
                \$\::nodes->{$n} = \{
                        'location' => \$location,
                        'master_ip' => \$master_ip,
                        'nodename' => \$nodename,
                        'X' => \$X,
                        'Y' => \$Y,
                        'config' => \{ %config },
                };
                1;
        |;
        die "Parse error: $@" if $@;
        push @nodes, $_;
};

foreach my $n (@nodes) {
        $c = $::nodes->{$n}->{config};
        foreach my $if (keys %$c ) {
                foreach(split(m/\n/,$c->{$if})) {
                        chomp;
                        s/#.*//;
                        next if m/^\s*$/;
                        die unless my ($k,$v) = split /=/;
                        # print "$n\t$if\t$k\t$v\n";
                        $::nodes->{$n}->{ifaces}->{$if}->{$k}=$v;
                };
        };
        delete  $::nodes->{$n}->{config};
}

print Dumper($::nodes);