package CONFIGFILE;


sub readconfig {
    my $conffile = shift;
    open(CONF,"<$conffile");
    while(<CONF>) {
	chop;
	next if /^#/;
	($verb, $args) = m/^([a-z]*)( .*)?$/i;
	$args =~ s/^ // if defined $args;
	if (defined $configverbs->{$verb}) {
	    &{$configverbs->{$verb}}($args);
	} else {
	    print "unknown config command $verb\n";
	}
    }
    close CONF;
}

1;
