#!/usr/bin/perl
if ( $#ARGV > -1 ) {
  $db = $ARGV[0];
}
else {
  $db = "/var/log/news/tstdb" ;
}

$tries = 10;

sleep 2;

while ($tries > 0) {
   last if dbmopen(%db,$db,0644);
   sleep 5;
   $tries --;
}
die "No DB $db, " if $tries == 0;


while(<STDIN>) {
   # bgs*
   ($head, $par) = split;

   if ($head eq "Path:") {
	$db{'*'}++;
	@list = split('!',$par);
	$val1 = shift @list ;
	$val2 = shift @list ;
	while ($val2 ne "") {
		$val3 = shift @list;
		# Wenn val3 leer ist, dann ist val2 der lokale User im
		# Pfad, den wir nicht haben wollen.
		if ($val3 ne "") {
			$in=$val1."_".$val2;
			$in =~ tr/A-Z/a-z/;
			$db{$in}++;
			$in=$val1."_*";
			$db{$in}++;
			$val1=$val2;

		}
		$val2 = $val3;
	}
   }
}

dbmclose(%db);

reset;