#!/usr/local/bin/perl
# Chad Adams  03-Jan-93  build newsgroups dbm file for gonntp
# build-newsgroups-db /usr/local/news/newsgroups dotall-file
#
#   *********** run this with "rebuild" script *************
#
dbmopen(nga, "../usr/lib/newsgroups", 0644);
while(<>) {
       chop;
       ($ng, @rest) = split(/[ \t]/);
       while($#rest > -1 && @rest[0] eq '') { shift(@rest) }
       $d = join(' ', @rest);
       print "$ng - >$d<\n";
       $nga{$ng} = $d;
}
dbmclose(nga);