sub mvcp_cache_obj 
{
    my ($task,$dn,$newdn,$objtype) = @_;
    $main::basedn=$dn;
    $main::newdn=$newdn;
    $main::task=$task;
    $main::objtype=$objtype;
    my ($status_con);
    $status_con = 0;
    $dn .= ",$config{ldapcache_base}";
    my @line=split(/,/,$dn);
    $dn_grp=$dn;
#    $dn_grp=~ s/$line[0],//g;
    $conncache = $ldapcacheObj->search ( base => $dn_grp,
				       scope => "sub",
				       filter => "(cn=*)",
                                       callback => \&mvcp_cache_tree, 
                                      );
    if ( $err = $conncache->code ||  $conncache->count eq 0 ) { 
         return $status_con;
    }
    $dn_cache=$dn;
