#!/usr/local/bin/perl5

$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(<>) {
   # 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;

