if (Is_Error($Comp)) {
return ERROR | @Trigger_Error(500);
}
#-------------------------------------------------------------------------------
$Form->AddChild($Comp);
#-------------------------------------------------------------------------------
$Comp = Comp_Load('Form/Input', array('name' => 'Domain', 'type' => 'hidden', 'value' => $Domain));
if (Is_Error($Comp)) {
return ERROR | @Trigger_Error(500);
}
#-------------------------------------------------------------------------------
$Form->AddChild($Comp);
#-------------------------------------------------------------------------------
$Rows = array();
#-------------------------------------------------------------------------------
$Parse = WhoIs_Parse($Domain);
#-------------------------------------------------------------------------------
switch (ValueOf($Parse)) {
case 'error':
return ERROR | @Trigger_Error(500);
case 'false':
#-------------------------------------------------------------------------------
$Comp = Comp_Load('Form/Input', array('name' => 'DomainTypeID', 'type' => 'hidden', 'value' => 'Nothing'));
if (Is_Error($Comp)) {
return ERROR | @Trigger_Error(500);
}
#-------------------------------------------------------------------------------
$Form->AddChild($Comp);
#-------------------------------------------------------------------------------
$Table[] = new Tag('TD', array('colspan' => 2, 'class' => 'Standard', 'style' => 'border:1px solid #F07D00;'), SPrintF('Доменная зона вашего имени [%s] не поддерживается нашей организацией, домен просто будет связан с заказом хостинга', $Domain));
#-------------------------------------------------------------------------------
$DomainsOdd = Array_Diff($RegDomains['Domains'], $BillDomains);
#-------------------------------------------------------------------------------
if (SizeOf($DomainsOdd) > 0) {
#-------------------------------------------------------------------------------
foreach ($DomainsOdd as $DomainOdd) {
#-------------------------------------------------------------------------------
# ищщем этот домен в биллинге, безотносительно его статуса, но у того же регистратора
$Where = array(SPrintF('CONCAT(`DomainOrdersOwners`.`DomainName`,".",`DomainSchemes`.`Name`) = "%s"', $DomainOdd), SPrintF('`DomainOrdersOwners`.`ServerID` = %u', $NowReg['ID']), '`DomainSchemes`.`ID` = `SchemeID`');
$Count = DB_Count(array('DomainOrdersOwners', 'DomainSchemes'), array('Where' => $Where));
if (Is_Error($Count)) {
return ERROR | @Trigger_Error(500);
}
#-------------------------------------------------------------------------------
if (!$Count) {
#-------------------------------------------------------------------------------
$Parse = WhoIs_Parse($DomainOdd);
#-------------------------------------------------------------------------------
switch (ValueOf($Parse)) {
case 'error':
return ERROR | @Trigger_Error(500);
case 'false':
return ERROR | @Trigger_Error(400);
case 'array':
#-------------------------------------------------------------------------------
$IsCheck = WhoIs_Check($DomainName = $Parse['DomainName'], $DomainZone = $Parse['DomainZone']);
#-------------------------------------------------------------------------------
switch (ValueOf($IsCheck)) {
case 'error':
return ERROR | @Trigger_Error(500);
case 'false':
break;
