self.close();";
exit();
}
// Shut down errors ..
error_reporting(0);
?>
...........................
getKey(), 'SMTP_DEBUG') == 0) {
$sObj = $settingsObj;
break;
}
}
if (!$sObj instanceof settingsObj ) {
VCDException::display('No SMTP_DEBUG settings found, cannot continue');
exit();
} else {
// Update the DEBUG OBJ
$sObj->setValue("1");
SettingsServices::updateSettings($sObj);
$email = VCDUtils::getCurrentUser()->getEmail();
$body = "This is a test message from the admin console.";
if (VCDUtils::sendMail($email, "Test email from the VCDDB", $body, false)) {
print "
Mail successfullly sent
";
} else {
print "
Mail failed to send, review the above log for further information.
";
}
// Change back the settings KEY ...
$sObj->setValue("0");
SettingsServices::updateSettings($sObj);
}
// Set error reporting to normal
error_reporting(1);
?>