Commit | Line | Data |
---|---|---|
a682e5d7 MW |
1 | #! /usr/bin/perl |
2 | ||
3 | use CDB_File; | |
4 | ||
5 | @ARGV == 1 or die "usage: $0 GROUPFILE\n"; | |
6 | $g = shift; | |
7 | open GROUPS, $g or die "$0: open($g): $!\n"; | |
8 | $c = CDB_File->new("$g.cdb", "$g.new") or die "$0: cdbmake($g.cdb): $!\n"; | |
9 | while (<GROUPS>) { | |
10 | next if m'^\s*(\#|$)'; | |
11 | my @f = split; | |
12 | @f == 3 or die "$0: bad info line $.\n"; | |
13 | my $l = join(" ", @f); | |
14 | my ($tag, $group, $addr) = @f; | |
15 | $group =~ tr/./-/; | |
16 | $c->insert("t:$tag" => $l); | |
17 | $c->insert("g:$group" => $l); | |
18 | } | |
19 | $c->finish() or die "$0: cdbfinish($g.cdb): $!\n"; | |
20 | exit 0; |