##-- Read the configfile into the hash %fromconf --##
sub read_conf {
        open (CONFFILE,$conffile);
        while (<CONFFILE>) {
                chomp;
                #-- Removeing any whitespaces --#
                $_ =~ s/ //g;
                #-- Splitting at the = so left side is key and right side the value --#
                if ($_ =~ /^([^\#]+)=(.*)$/) {
                        $fromconf{$1} = $2;
                }
        }
        close (CONFFILE);
}

