stump/bin/buildNewsgroupsDB

   1 #!/usr/bin/perl
   2
   3 $DataDir = $ENV{'MNG_ROOT'} . "/data";
   4 $NewsgroupsDBFile = "$DataDir/Newsgroups";
   5
   6 # Open message-ID database
   7 dbmopen( %NewsgroupsDB, "$NewsgroupsDBFile", 0644 );
   8
   9
  10 while( <> ) {
  11   ($group, $q1, $q2, $flag) = split;
  12   $NewsgroupsDB{$group} = $flag;
  13 }
  14
  15 print "test: $NewsgroupsDB{'soc.culture.russian'}.\n"