#!/usr/local/bin/perl
#!/usr/perl/perl5/bin/perl

$indexdir = $ENV{'DOMA_ROOT'}."glossarindex";

system "/bin/rm $indexdir/*.index";

while(<*.glo>){
  system "./doma <$_";
}

system "/bin/rm *.1";

chdir $indexdir;

system "update";

