# verification code goes here, return 1 on success

my $ldap = $r->{ldap};    

my $escaped  = $ldap->is_dn_safely_escaped($fdat{hostcn});
my $hostcn = ($escaped ? $fdat{hostcn} : $ldap->dn_element_escape($fdat{hostcn}));
my $host = eval { $ldap -> search ('=hostConfig', "(cn=$hostcn)", 'sub') } ;
$fdat{-msg} = $@ and return 0 ;

if ($host && keys %$host)
    {
    $fdat{-msg} = _t('err:setup_name_exists', $fdat{hostcn}) ;
    return 0 ;    
    }