#! /usr/bin/perl

use CDB_File;

@ARGV == 1 or die "usage: $0 GROUPFILE\n";
$g = shift;
open GROUPS, $g or die "$0: open($g): $!\n";
$c = CDB_File->new("$g.cdb", "$g.new") or die "$0: cdbmake($g.cdb): $!\n";
while (<GROUPS>) {
  next if m'^\s*(\#|$)';
  my @f = split;
  @f == 3 or die "$0: bad info line $.\n";
  my $l = join(" ", @f);
  my ($tag, $group, $addr) = @f;
  $group =~ tr/./-/;
  $c->insert("t:$tag" => $l);
  $c->insert("g:$group" => $l);
}
$c->finish() or die "$0: cdbfinish($g.cdb): $!\n";
exit 0;