3 $DataDir = $ENV{'MNG_ROOT'} . "/data";
4 $NewsgroupsDBFile = "$DataDir/Newsgroups";
6 # Open message-ID database
7 dbmopen( %NewsgroupsDB, "$NewsgroupsDBFile", 0644 );
11 ($group, $q1, $q2, $flag) = split;
12 $NewsgroupsDB{$group} = $flag;
15 print "test: $NewsgroupsDB{'soc.culture.russian'}.\n"