# %settings = grok ( qq(filename), %settings );
sub grok
{ my $n = shift; open IN, $n; my @in = <IN>; close IN; my %input = shift;
  my %hash_to_return; foreach my $setting (keys %input) {
  my ($p_name, $p) = /^([^\s=]+)\b(?:(?:\s*=\s*)|\s+)(.*)$/;
  if ($setting eq $p_name) { $hash_to_return{$p_name} = $p }
  else { next } } return %hash_to_return }

#
# grok, above, posted earlier, is broken. :) it was actually
# an old version (old being > 12 hours in this case)
# I had in the wrong directory. Sorry for any confusion.
# unfortunately, this one isnt nearly as pretty.
#

sub grok2
{ my $n = shift; if ($n) { open IN, $n or warn "BDU error" } else {
  warn "BDU error" ; return } @in = <IN>; close IN; my %input = shift;
  foreach my $item (@in) { my ($p_name, $p) = $item =~
  /^([^\s=]+)\b(?:(?:\s*=\s*)|\s+)(.*)$/; foreach my $setting (keys %input)
  { if ($setting eq $p_name) { $input{$setting} = $p } else { next } } }
  return %hash_to_return }

# note some checking for files/vars was added for chipmunk.
# nyah. :p

# de_grok ( qq(filename), %settings );
sub de_grok
{ my $n = shift; open OUT, $n; my %output = shift;
  foreach my $line (keys %output) { print OUT
  $line . ' ' . $output{ $line } } close OUT }


##</code><code>##

my %CONFIG =    (
                server_name             =>      'localhost',
                server_alias            =>      'opennap',
                server_ports            => '4444 7777 8888',
                max_user_channels       =>      '5',
                max_nick_length         =>      '32',
		);

%CONFIG         = grok ( qq(config), %CONFIG );