my $kp;
$kp=File::KeePass->new;
$kp->load_db("$kpf", "$pw" );
$kp->unlock;



my $group = $kp->find_group({ title => "$standort" });
my $gid1 = $group->{'id'};
my $gid2 = -1;
my $gid3 = -1;
my $server;

foreach my $sub (@{ $group->{'groups'}})
{
        if ( $sub->{'title'} eq "$kategorie" )
        {
                $gid2 = $sub->{'id'};
                #print "2.1 $gid2 \n";
                $server = $sub;
                last;
        }
}

if ($gid2 == -1)
{
        print "Gruppe ($kategorie) wurde neu erstellt \n";
        my $tmp = $kp->add_group({ group => "$gid1", title => "$kategorie" });
        #print "3.3: $tmp->{'id'} \n";
        $gid2 = $tmp->{'id'};
}


#print "1 $gid1 \n";
#print "2.2 $gid2 \n";

foreach my $sub (@{ $server->{'groups'}})
{
        if ( $sub->{'title'} eq "$grp" )
        {
                $gid3 = $sub->{'id'};
                print "Gruppe existiert \n";
                last;
        }
}

if ($gid3 == -1)
{
        print "Gruppe ($grp) wurde neu erstellt \n";my $tmp = $kp->add_group({ group => "$gid2", title => "$grp" });
        #print "3.3: $tmp->{'id'} \n";
        $gid3 = $tmp->{'id'};
}
$kp->save_db("$kpf", "$pw");