#!/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);