/**
* delete subcriber
*
* @param $list_id
* @param $email
* @return bool
*/
function cw_vertical_response_delete_subcriber($list_id, $email)
{
global $config;
$vertical_response_email = trim($config[vertical_response_addon_name]['vertical_response_email']);
$vertical_response_password = trim($config[vertical_response_addon_name]['vertical_response_password']);
try {
$vr = new SoapClient(vertical_response_wsdl, array('connection_timeout' => 5));
$sid = $vr->login(array('username' => "{$vertical_response_email}", 'password' => "{$vertical_response_password}", 'session_duration_minutes' => vertical_response_ses_time));
$list_members = $vr->searchListMembers(array('session_id' => $sid, 'field_name' => 'email_address', 'field_value' => $email, 'list_id' => $list_id, 'max_records' => 1));
if (!empty($list_members) && count($list_members)) {
$hash = "";
foreach ($list_members[0]->member_data as $data) {
if ($data->name == 'hash') {
$hash = $data->value;
break;
}
}
$vr->deleteListMember(array('session_id' => $sid, 'list_member' => array('list_id' => $list_id, 'member_data' => array(array('name' => 'hash', 'value' => $hash)))));
}
} catch (SoapFault $exception) {
//exit ('fault: "' . $exception->faultcode . '" - ' . $exception->faultstring . "\n");
return false;
}
return true;
}
