/**
* Here are some examples for using IceWarp COM API with Icewarp webserver
* PHP engine
*
* for more info and object function list reffer to merak\api\classes.txt
* for the list of API variables reffer to merak\api\delphi\apiconst.pas
*
*
*
*/
echo "Start API example
";
//
// Invoke Global API COM object - "IceWarpServer.APIObject"
//
if ($com = new COM("IceWarpServer.APIObject"))
{
echo "IceWarpServer.APIObject invoked
";
}
else
{
echo "API couldn't be invoked";
return;
}
//
// Global API - "IceWarpServer.APIObject" usage
//
$domcount = $com->GetDomainCount();
echo "Domain count: $domcount
\r\n";
$domlist = $com->GetDomainList();
echo "Domain list: $domlist
\r\n";
$domainname = $com->GetDomain(0);
echo "First domain: $domainname
\r\n";
echo "
\r\n";
//
// Domain work - "IceWarpServer.DomainObject" usage
//
$domain = $com->OpenDomain($domainname);
$domname = $domain->Name;
echo "Loaded domain: $domname
\r\n";
$accnum = $domain->GetAccountCount();
echo "Account count: $accnum
\r\n";
$acclist = $domain->GetAccountList();
echo "Account list: $acclist
\r\n";
$acc = $domain->GetAccount(0);
echo "First account: $acc
\r\n";
echo "
\r\n";
//
// Account work - "IceWarpServer.AccountObject" usage
//
$account = $domain->OpenAccount($acc);
echo "Loaded account: $acc
\r\n";
// get account name and aliases using API variables
$accname = $account->GetProperty("U_Name");
$accalias = $account->GetProperty("U_Alias");
echo "Account: name \"$accname\", alias \"$accalias\"
\r\n";
$accdom = $account->Domain;
echo "Account's domain: $accdom
\r\n";
echo "
\r\n";
?>