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