#!/usr/bin/perl

use strict;

my $conffile = "ldirector.conf";
my %chash;
my $key = "";
my $value = "";
my $virtual = "";

open(CONF, "< $conffile")
    or die "Couldn't open $conffile for reading: $!\n";

while(<CONF>) {

        chomp();
        ($key,$value) = split(/=/);

         if ($key eq "virtual") {
           $virtual = $value;
         }

        elsif ($key =~ s/^\s+(.*)/$1/) {
                $chash{'virtual'}{$virtual}{$key}=$value;
        }
        else {
                $chash{$key}=$value;
        }

}