Alternc  3.2
Alternc logiel libre pour l'hébergement
 All Data Structures Namespaces Files Functions Variables Pages
Public Member Functions | Data Fields | Private Member Functions
m_dom Class Reference

Classe de gestion des domaines de l'hébergé. More...

Public Member Functions

 m_dom ()
 Constructeur.
 get_panel_url_list ()
 get_sub_domain_id_and_member_by_name ($fqdn)
 hook_menu ()
 domains_type_lst ()
 Retourne un tableau contenant les types de domaines.
 domains_type_enable_values ()
 domains_type_target_values ($type=null)
 import_manual_dns_zone ($zone, $domain, $detect_redirect=true, $save=false)
 import_manual_dns_entry ($zone, $domain, $detect_redirect=true, $save=false)
 is_it_a_redirect ($url)
 domains_type_regenerate ($name)
 domains_type_get ($name)
 domains_type_del ($name)
 domains_type_update ($name, $description, $target, $entry, $compatibility, $enable, $only_dns, $need_dns, $advanced, $create_tmpdir, $create_targetdir)
 sub_domain_change_status ($sub_id, $status)
 enum_domains ($uid=-1)
 Retourne un tableau contenant les domaines d'un membre.
 del_domain_cancel ($dom)
 del_domain ($dom)
 Efface un domaine du membre courant, et tous ses sous-domaines.
 domshort ($dom, $sub="")
 add_domain ($domain, $dns, $noerase=0, $force=0, $isslave=0, $slavedom="")
 Installe un domaine sur le compte courant.
 create_default_subdomains ($domain, $target_domain="")
 domdefaultdir ($domain)
 dump_axfr ($domain, $ns='localhost')
 lst_default_subdomains ()
 update_default_subdomains ($arr)
 update_one_default ($domain_type, $sub, $domain_type_parameter, $concerned, $enabled, $id=null)
 del_default_type ($id)
 whois ($domain)
 Retourne les entrées DNS du domaine $domain issues du WHOIS.
 checkmx ($domaine, $ref_domain=false)
 vérifie la presence d'un champs mx valide sur un serveur DNS $domaine est le domaine dont on veux véririfer les MX $ref_domaine est le domaine avec lequel on veux comparer les MX si $ref_domaine == false, on prend les MX par default
 get_domain_all ($dom)
 retourne TOUTES les infos d'un domaine
 get_sub_domain_all ($sub_domain_id)
 Retourne TOUTES les infos d'un sous domaine du compte courant.
 check_type_value ($type, $value)
 can_create_subdomain ($dom, $sub, $type, $sub_domain_id='null')
 Check the compatibility of the POSTed parameters with the chosen domain type.
 set_sub_domain ($dom, $sub, $type, $dest, $sub_domain_id=null)
 Modifier les information du sous-domaine demandé.
 del_sub_domain ($sub_domain_id)
 Supprime le sous-domaine demandé
 set_ttl ($dom_id, $ttl)
 edit_domain ($dom, $dns, $gesmx, $force=0, $ttl=86400)
 Modifie les information du domaine précisé.
 enum_slave_ip ()
 Return the list of ip addresses and classes that are allowed access to domain list through AXFR Transfers from the bind server.
 add_slave_ip ($ip, $class="32")
 Add an ip address (or a ip class) to the list of allowed slave ip access list.
 del_slave_ip ($ip)
 Remove an ip address (or a ip class) from the list of allowed slave ip access list.
 check_slave_account ($login, $pass)
 Check for a slave account.
 echo_domain_list ($integrity=false)
 Out (echo) the complete hosted domain list :
 get_domain_list ($uid=-1)
 Returns the complete hosted domain list :
 get_domain_all_summary ()
 get_domain_byid ($dom_id)
 Returns the name of a domain for the current user, from it's domain_id.
 get_domain_byname ($domain)
 Returns the id of a domain for the current user, from it's domain name.
 count_domains_all ()
 Count all domains, for all users.
 enum_slave_account ()
 Return the list of allowed slave accounts.
 add_slave_account ($login, $pass)
 Add a slave account that will be allowed to access the domain list.
 del_slave_account ($login)
 Remove a slave account.
 lock ()
 Try to lock a domain private.
 unlock ()
 Unlock the cron for domain management return true private.
 hook_dom_add_mx_domain ($dom_id)
 Declare that a domain's emails are hosted in this server : This adds 2 MX entries in this domain (if required)
 hook_admin_del_member ()
 Delete an account (all his domains)
 hook_quota_get ()
 Returns the used quota for the $name service for the current user.
 alternc_export_conf ()
 Returns the global domain(s) configuration(s) of a particular user No parameters needed.
 generation_parameters ($id=null, $only_apache=true)
 Return an array with all the needed parameters to generate conf of a vhost.
 generation_domains_type ()
 Return an array with all informations of the domains_type used to generate Apache conf.
 generate_conf_oldhook ($action, $lst_sub, $sub_obj=null)
 generate_apacheconf ($p=null)
 Generate apache configuration.
 generation_todo ()
 subdomain_modif_are_done ($sub_domain_id, $action)
 set_dns_action ($domain, $dns_action)
 set_dns_result ($domain, $dns_result)
 hook_upnp_list ()
 hook function called by AlternC-upnp to know which open tcp or udp ports this class requires or suggests
 get_problems ($domain)
 default_domain_type ()

Data Fields

 $domains
 $domains : Cache des domaines du membre private
 $dns
 $dns : Liste des dns trouvés par la fonction whois private
 $webmail
 Flag : a-t-on trouvé un sous-domaine Webmail pour ce domaine ? private.
 $fic_lock_cron = "/var/run/alternc/cron.lock"
 Système de verrouillage du cron Ce fichier permet de verrouiller le cron en attendant la validation du domaine par update_domains.sh private.
 $islocked = false
 Le cron a-t-il été bloqué ? Il faut appeler les fonctions privées lock et unlock entre les appels aux domaines.
 $type_local = "VHOST"
 $type_url = "URL"
 $type_ip = "IP"
 $type_webmail = "WEBMAIL"
 $type_ipv6 = "IPV6"
 $type_cname = "CNAME"
 $type_txt = "TXT"
 $type_defmx = "DEFMX"
 $type_defmx2 = "DEFMX2"
 $action_insert = "0"
 $action_update = "1"
 $action_delete = "2"
 $tld_no_check_at_all = "1"

Private Member Functions

 import_manual_dns_entry_doit ($entry)
 import_manual_dns_prep_zone ($domain)

Detailed Description

Classe de gestion des domaines de l'hébergé.

Cette classe permet de gérer les domaines / sous-domaines, redirections dns et mx des domaines d'un membre hébergé.

Definition at line 34 of file m_dom.php.

Member Function Documentation

add_domain (   $domain,
  $dns,
  $noerase = 0,
  $force = 0,
  $isslave = 0,
  $slavedom = "" 
)

Installe un domaine sur le compte courant.

Si le domaine existe déjà ou est interdit, ou est celui du serveur, l'installation est refusée. Si l'hébergement DNS est demandé, la fonction checkhostallow vérifiera que le domaine peut être installé conformément aux demandes des super-admin. Si le dns n'est pas demandé, le domaine peut être installé s'il est en seconde main d'un tld (exemple : test.eu.org ou test.com, mais pas toto.test.org ou test.test.asso.fr)

Chaque classe peut définir une fonction add_dom($dom) qui sera appellée lors de l'installation d'un nouveau domaine.

Parameters
string$domnom fqdn du domaine à installer
integer$dns1 ou 0 pour héberger le DNS du domaine ou pas.
integer$noerase1 ou 0 pour rendre le domaine inamovible ou non
integer$force1 ou 0, si 1, n'effectue pas les tests de DNS. force ne devrait être utilisé que par le super-admin. $
Returns
boolean Retourne FALSE si une erreur s'est produite, TRUE sinon.

Definition at line 651 of file m_dom.php.

References $classes, $cuid, $db, $dns, $domain, $err, $force, $hooks, $t, checkfqdn(), checkhostallow(), checkhostallow_nodns(), create_default_subdomains(), and whois().

Referenced by import_manual_dns_prep_zone().

{
global $db,$err,$quota,$classes,$L_MX,$L_FQDN,$tld,$cuid,$bro,$hooks;
$err->log("dom","add_domain",$domain);
// Locked ?
if (!$this->islocked) {
$err->raise("dom",_("--- Program error --- No lock on the domains!"));
return false;
}
// Verifie que le domaine est rfc-compliant
$domain=strtolower($domain);
$t=checkfqdn($domain);
if ($t) {
$err->raise("dom",_("The domain name is syntaxically incorrect"));
return false;
}
// Interdit les domaines clés (table forbidden_domains) sauf en cas FORCE
$db->query("SELECT domain FROM forbidden_domains WHERE domain='$domain'");
if ($db->num_rows() && !$force) {
$err->raise("dom",_("The requested domain is forbidden in this server, please contact the administrator"));
return false;
}
if ($domain==$L_FQDN || $domain=="www.$L_FQDN") {
$err->raise("dom",_("This domain is the server's domain! You cannot host it on your account!"));
return false;
}
$db->query("SELECT compte FROM domaines WHERE domaine='$domain';");
if ($db->num_rows()) {
$err->raise("dom",_("The domain already exist"));
return false;
}
$db->query("SELECT compte FROM `sub_domaines` WHERE sub != \"\" AND concat( sub, \".\", domaine )='$domain' OR domaine='$domain';");
if ($db->num_rows()) {
$err->raise("dom",_("The domain already exist"));
return false;
}
$this->dns=$this->whois($domain);
if (!$force) {
$v=checkhostallow($domain,$this->dns);
if ($v==-1) {
$err->raise("dom",_("The last member of the domain name is incorrect or cannot be hosted in that server"));
return false;
}
if ($dns && $v==-2) {
$err->raise("dom",_("The domain cannot be found in the whois database"));
return false;
}
if ($dns && $v==-3) {
$err->raise("dom",_("The domain cannot be found in the whois database"));
return false;
}
if ($dns) $dns="1"; else $dns="0";
// mode 5 : force DNS to NO.
if ($tld[$v]==5) $dns=0;
// It must be a real domain (no subdomain)
if (!$dns) {
$v=checkhostallow_nodns($domain);
if ($v) {
$err->raise("dom",_("The requested domain is forbidden in this server, please contact the administrator"));
return false;
}
}
}
// Check the quota :
if (!$quota->cancreate("dom")) {
$err->raise("dom",_("Your domain quota is over, you cannot create more domain names"));
return false;
}
if ($noerase) $noerase="1"; else $noerase="0";
if ($dns) $gesmx="1"; else $gesmx="0"; // do not host mx by default if not hosting the DNS
$db->query("INSERT INTO domaines (compte,domaine,gesdns,gesmx,noerase,dns_action) VALUES ('$cuid','$domain','$dns','$gesmx','$noerase','UPDATE');");
if (!($id=$db->lastid())) {
$err->raise("dom",_("An unexpected error occured when creating the domain"));
return false;
}
if ($isslave) {
$isslave=true;
$db->query("SELECT domaine FROM domaines WHERE compte='$cuid' AND domaine='$slavedom';");
$db->next_record();
if (!$db->Record["domaine"]) {
$err->raise("dom",_("Domain '%s' not found"),$slavedom);
$isslave=false;
}
// Point to the master domain :
$this->create_default_subdomains($domain, $slavedom);
}
if (!$isslave) {
$this->create_default_subdomains($domain);
}
// TODO: Old hooks, FIXME: when unused remove them
$hooks->invoke("alternc_add_domain",array($domain));
if ($isslave) {
$hooks->invoke("alternc_add_slave_domain",array($domain));
}
// New Hooks:
$hooks->invoke("hook_dom_add_domain",array($id));
if ($gesmx) $hooks->invoke("hook_dom_add_mx_domain",array($id));
if ($isslave) {
$hooks->invoke("hook_dom_add_slave_domain",array($id, $slavedom));
}
return true;
}
add_slave_account (   $login,
  $pass 
)

Add a slave account that will be allowed to access the domain list.

Definition at line 1701 of file m_dom.php.

References $db, and $err.

{
global $db,$err;
$db->query("SELECT * FROM slaveaccount WHERE login='$login'");
if ($db->next_record()) {
$err->raise("dom",_("The specified slave account already exists"));
return false;
}
$db->query("INSERT INTO slaveaccount (login,pass) VALUES ('$login','$pass')");
return true;
}
add_slave_ip (   $ip,
  $class = "32" 
)

Add an ip address (or a ip class) to the list of allowed slave ip access list.

Definition at line 1518 of file m_dom.php.

References $db, $err, checkip(), and SLAVE_FLAG.

{
global $db,$err;
if (!checkip($ip)) {
$err->raise("dom",_("The IP address you entered is incorrect"));
return false;
}
$class=intval($class);
if ($class<8 || $class>32) $class=32;
$db->query("SELECT * FROM slaveip WHERE ip='$ip' AND class='$class';");
if ($db->next_record()) {
$err->raise("err",_("The requested domain is forbidden in this server, please contact the administrator"));
return false;
}
$db->query("INSERT INTO slaveip (ip,class) VALUES ('$ip','$class');");
$f=fopen(SLAVE_FLAG,"w");
fputs($f,"yopla");
fclose($f);
return true;
}
alternc_export_conf ( )

Returns the global domain(s) configuration(s) of a particular user No parameters needed.

Definition at line 1815 of file m_dom.php.

References $d, $db, $err, $sub, enum_domains(), get_domain_all(), lock(), and unlock().

{
global $db,$err;
$err->log("dom","export");
$this->enum_domains();
foreach ($this->domains as $d) {
$str=" <domaines>\n";
$str.=" <nom>".$d."</nom>\n";
$this->lock();
$s=$this->get_domain_all($d);
$this->unlock();
if(empty($s["dns"])){
$s["dns"]="non";
}else{
$s["dns"]="oui";
}
$str.=" <dns>".$s["dns"]."</dns>\n";
if(empty($s["mx"])){
$s["mx"]="non";
}else{
$s["mx"]="oui";
}
$str.=" <mx>".$s["mx"]."</mx>\n";
if(empty($s["mail"])){
$s["mail"]="non";
}
$str.=" <mail>".$s["mail"]."</mail>\n";
if (is_array($s["sub"])) {
foreach ($s["sub"] as $sub) {
$str.=" <subdomain>\n";
$str.=" <enabled>".$sub["enable"]." </enabled>\n";
$str.=" <destination>".$sub["dest"]." </destination>\n";
$str.=" <type>".$sub["type"]." </type>\n";
$str.=" </subdomain>\n";
}
}
$str.=" </domaines>\n";
}
return $str;
}
can_create_subdomain (   $dom,
  $sub,
  $type,
  $sub_domain_id = 'null' 
)

Check the compatibility of the POSTed parameters with the chosen domain type.

Parameters
string$domFQDN of the domain name
string$subSUBdomain
Returns
boolean tell you if the subdomain can be installed there

Definition at line 1250 of file m_dom.php.

References $cuid, $db, $dom, $err, and $sub.

Referenced by set_sub_domain(), and sub_domain_change_status().

{
global $db,$err,$cuid;
$err->log("dom","can_create_subdomain",$dom."/".$sub);
// Get the compatibility list for this domain type
$db->query("select upper(compatibility) as compatibility from domaines_type where upper(name)=upper('$type');");
if (!$db->next_record()) return false;
$compatibility_lst = explode(",",$db->f('compatibility'));
// Get the list of type of subdomains already here who have the same name
$db->query("select * from sub_domaines where sub='$sub' and domaine='$dom' and not id = $sub_domain_id and web_action != 'DELETE' and enabled not in ('DISABLED', 'DISABLE') ");
#$db->query("select * from sub_domaines where sub='$sub' and domaine='$dom';");
while ($db->next_record()) {
// And if there is a domain with a incompatible type, return false
if (! in_array(strtoupper($db->f('type')),$compatibility_lst)) return false;
}
// All is right, go ! Create ur domain !
return true;
}
check_slave_account (   $login,
  $pass 
)

Check for a slave account.

Definition at line 1559 of file m_dom.php.

References $db, and $err.

{
global $db,$err;
$db->query("SELECT * FROM slaveaccount WHERE login='$login' AND pass='$pass';");
if ($db->next_record()) {
return true;
}
return false;
}
check_type_value (   $type,
  $value 
)

Definition at line 1172 of file m_dom.php.

References $cuid, $db, $err, $value, checkcname(), checkip(), checkipv6(), checkuserpath(), and domains_type_target_values().

Referenced by set_sub_domain().

{
global $db,$err,$cuid;
// check the type we can have in domaines_type.target
switch ($this->domains_type_target_values($type)) {
case 'NONE':
if (empty($value) or is_null($value)) {return true;}
break;
case 'URL':
if ( $value == strval($value)) {
if(filter_var($value, FILTER_VALIDATE_URL)){
return true;
}else{
$err->raise("dom",_("invalid url"));
return false;
}
}
break;
case 'DIRECTORY':
if (substr($value,0,1)!="/") {
$value="/".$value;
}
if (!checkuserpath($value)) {
$err->raise("dom",_("The folder you entered is incorrect or does not exist"));
return false;
}
return true;
break;
case 'IP':
if (checkip($value)) {
return true;
}else{
$err->raise("dom",_("The ip address is invalid"));
return false;
}
break;
case 'IPV6':
if (checkipv6($value)) {
return true;
}else{
$err->raise("dom",_("The ip address is invalid"));
return false;
}
break;
case 'DOMAIN':
if (checkcname($value)) {
return true;
}else{
$err->raise("dom",_("The name you entered is incorrect"));
return false;
}
break;
case 'TXT':
if ( $value == strval($value)) {
return true;
}else{
$err->raise("dom",_("The TXT value you entered is incorrect"));
return false;
}
break;
default:
$err->raise("dom",_("Invalid domain type selected, please check"));
return false;
break;
}
return false;
} //check_type_value
checkmx (   $domaine,
  $ref_domain = false 
)

vérifie la presence d'un champs mx valide sur un serveur DNS $domaine est le domaine dont on veux véririfer les MX $ref_domaine est le domaine avec lequel on veux comparer les MX si $ref_domaine == false, on prend les MX par default

Definition at line 1021 of file m_dom.php.

Referenced by edit_domain().

{
global $L_DEFAULT_MX, $L_DEFAULT_SECONDARY_MX ;
if ( $ref_domain ) {
getmxrr($ref_domain, $ref_mx);
} else {
$ref_mx = array($L_DEFAULT_MX, $L_DEFAULT_SECONDARY_MX);
}
if (empty($ref_mx)) {
// No reference mx
return 3;
}
//récupére les champs mx
if (!getmxrr($domaine,$mxhosts)) {
//aucun hôte mx spécifié
return 1;
}
if ( empty($mxhosts) ) {
// no mx on the target domaine
return 1;
}
$intersect = array_intersect($mxhosts, $ref_mx);
if ( empty($intersect) ) {
// no shared mx server
return 2;
}
return 0;
} //checkmx
count_domains_all ( )

Count all domains, for all users.

Definition at line 1672 of file m_dom.php.

References $cuid, $db, and $err.

{
global $db,$err,$cuid;
$db->query("SELECT COUNT(*) AS count FROM domaines;");
if ($db->next_record()) {
return $db->f('count');
} else {
return 0;
}
}
create_default_subdomains (   $domain,
  $target_domain = "" 
)

Definition at line 758 of file m_dom.php.

References $db, $domain, $err, $query, domdefaultdir(), and set_sub_domain().

Referenced by add_domain().

{
global $db,$err;
$err->log("dom","create_default_subdomains",$domain);
$query="SELECT sub, domain_type, domain_type_parameter FROM default_subdomains WHERE (concerned = 'SLAVE' or concerned = 'BOTH') and enabled=1;";
if(empty($target_domain)) {
$query="SELECT sub, domain_type, domain_type_parameter FROM default_subdomains WHERE (concerned = 'MAIN' or concerned = 'BOTH') and enabled=1;";
}
$domaindir=$this->domdefaultdir($domain);
$db->query($query);
$jj=array();
while ($db->next_record()) {
$jj[]=Array("domain_type_parameter"=>$db->f('domain_type_parameter'),"sub"=>$db->f('sub'), "domain_type"=>$db->f('domain_type'));
}
$src_var=array("%%SUB%%","%%DOMAIN%%","%%DOMAINDIR%%", "%%TARGETDOM%%");
foreach($jj as $j){
$trg_var=array($j['sub'],$domain,$domaindir,$target_domain);
$domain_type_parameter=str_ireplace($src_var,$trg_var,$j['domain_type_parameter']);
$this->set_sub_domain($domain, $j['sub'], strtolower($j['domain_type']), $domain_type_parameter);
}
}
default_domain_type ( )

Definition at line 2094 of file m_dom.php.

{
// This function is only used to allow translation of default domain types:
_("Locally hosted");
_("URL redirection");
_("IPv4 redirect");
_("Webmail access");
_("Squirrelmail Webmail access");
_("Roundcube Webmail access");
_("IPv6 redirect");
_("CNAME DNS entry");
_("TXT DNS entry");
_("MX DNS entry");
_("secondary MX DNS entry");
_("Default mail server");
_("Default backup mail server");
_("AlternC panel access");
}
del_default_type (   $id)

Definition at line 843 of file m_dom.php.

References $db, and $err.

{
global $err,$db;
$err->log("dom","del_default_type");
if(!$db->query("delete from default_subdomains where id=$id;")){
$err->raise("dom",_("Could not delete default type"));
return false;
}
return true;
}
del_domain (   $dom)

Efface un domaine du membre courant, et tous ses sous-domaines.

Cette fonction efface un domaine et tous ses sous-domaines, ainsi que les autres services attachés à celui-ci. Elle appelle donc les autres classe. Chaque classe peut déclarer une fonction del_dom qui sera appellée lors de la destruction d'un domaine.

Parameters
string$domnom de domaine à effacer
Returns
boolean Retourne FALSE si une erreur s'est produite, TRUE sinon.

Definition at line 600 of file m_dom.php.

References $classes, $cuid, $db, $dom, $err, $hooks, $r, get_domain_all(), lock(), set_dns_action(), and unlock().

Referenced by hook_admin_del_member().

{
global $db,$err,$classes,$cuid,$hooks;
$err->log("dom","del_domain",$dom);
$dom=strtolower($dom);
$this->lock();
if (!$r=$this->get_domain_all($dom)) {
return false;
}
$this->unlock();
// Call Hooks to delete the domain and the MX management:
// TODO : the 2 calls below are using an OLD hook call, FIXME: remove them when unused
$hooks->invoke("alternc_del_domain",array($dom));
$hooks->invoke("alternc_del_mx_domain",array($dom));
// New hook calls:
$hooks->invoke("hook_dom_del_domain",array($r["id"]));
$hooks->invoke("hook_dom_del_mx_domain",array($r["id"]));
// Now mark the domain for deletion:
$db->query("UPDATE sub_domaines SET web_action='DELETE' WHERE domaine='$dom';");
$this->set_dns_action($dom, 'DELETE');
return true;
}
del_domain_cancel (   $dom)

Definition at line 576 of file m_dom.php.

References $classes, $cuid, $db, $dom, $err, and set_dns_action().

{
global $db,$err,$classes,$cuid;
$err->log("dom","del_domaini_canl",$dom);
$dom=strtolower($dom);
$db->query("UPDATE sub_domaines SET web_action='UPDATE' WHERE domaine='$dom';");
$this->set_dns_action($dom, 'UPDATE');
# TODO : some work with domain sensitive classes
return true;
}
del_slave_account (   $login)

Remove a slave account.

Definition at line 1716 of file m_dom.php.

References $db, and $err.

{
global $db,$err;
$db->query("DELETE FROM slaveaccount WHERE login='$login'");
return true;
}
del_slave_ip (   $ip)

Remove an ip address (or a ip class) from the list of allowed slave ip access list.

Definition at line 1542 of file m_dom.php.

References $db, $err, checkip(), and SLAVE_FLAG.

{
global $db,$err;
if (!checkip($ip)) {
$err->raise("dom",_("The IP address you entered is incorrect"));
return false;
}
$db->query("DELETE FROM slaveip WHERE ip='$ip'");
$f=fopen(SLAVE_FLAG,"w");
fputs($f,"yopla");
fclose($f);
return true;
}
del_sub_domain (   $sub_domain_id)

Supprime le sous-domaine demandé

Parameters
string$domDomaine dont on souhaite supprimer un sous-domaine
string$subSous-domaine que l'on souhaite supprimer
Returns
boolean Retourne FALSE si une erreur s'est produite, TRUE sinon.

Definition at line 1376 of file m_dom.php.

References $cuid, $db, $err, $r, and get_sub_domain_all().

Referenced by import_manual_dns_prep_zone(), and set_sub_domain().

{
global $db,$err,$cuid;
$err->log("dom","del_sub_domain",$sub_domain_id);
// Locked ?
if (!$this->islocked) {
$err->raise("dom",_("--- Program error --- No lock on the domains!"));
return false;
}
if (!$r=$this->get_sub_domain_all($sub_domain_id)) {
$err->raise("dom",_("The sub-domain does not exist"));
return false;
} else {
$db->query("update sub_domaines set web_action='DELETE' where id='$sub_domain_id'; ");
$db->query("update domaines set dns_action='UPDATE' where domaine='".$r['domain']."';");
}
return true;
} // del_sub_domain
domains_type_del (   $name)

Definition at line 511 of file m_dom.php.

References $cuid, $db, and $err.

{
global $db,$err,$cuid;
$name=mysql_real_escape_string($name);
$db->query("delete domaines_type where name='$name';");
return true;
}
domains_type_enable_values ( )

Definition at line 161 of file m_dom.php.

References $cuid, $db, $err, $r, $t, and $tab.

{
global $db,$err,$cuid;
$err->log("dom","domains_type_target_values");
$db->query("desc domaines_type;");
$r = array();
while ($db->next_record()) {
if ($db->f('Field') == 'enable') {
$tab = explode(",", substr($db->f('Type'), 5, -1));
foreach($tab as $t) { $r[]=substr($t,1,-1); }
}
}
return $r;
}
domains_type_get (   $name)

Definition at line 503 of file m_dom.php.

References $cuid, $db, and $err.

{
global $db,$err,$cuid;
$name=mysql_real_escape_string($name);
$db->query("select * from domaines_type where name='$name' ;");
$db->next_record();
return $db->Record;
}
domains_type_lst ( )

Retourne un tableau contenant les types de domaines.

Returns
array retourne un tableau indexé contenant la liste types de domaines authorisé. Retourne FALSE si une erreur s'est produite.

Definition at line 150 of file m_dom.php.

References $cuid, $db, and $err.

Referenced by import_manual_dns_entry_doit().

{
global $db,$err,$cuid;
$err->log("dom","domains_type_lst");
$db->query("select * from domaines_type order by advanced;");
$this->domains_type_lst=false;
while ($db->next_record()) {
$this->domains_type_lst[strtolower($db->Record["name"])] = $db->Record;
}
return $this->domains_type_lst;
}
domains_type_regenerate (   $name)

Definition at line 495 of file m_dom.php.

References $cuid, $db, and $err.

{
global $db,$err,$cuid;
$name=mysql_real_escape_string($name);
$db->query("update sub_domaines set web_action='UPDATE' where lower(type) = lower('$name') ;");
$db->query("update domaines d, sub_domaines sd set d.dns_action = 'UPDATE' where lower(sd.type)=lower('$name');");
return true;
}
domains_type_target_values (   $type = null)

Definition at line 175 of file m_dom.php.

References $cuid, $db, $err, $r, $t, and $tab.

Referenced by check_type_value().

{
global $db,$err,$cuid;
$err->log("dom","domains_type_target_values");
if (is_null($type)) {
$db->query("desc domaines_type;");
$r = array();
while ($db->next_record()) {
if ($db->f('Field') == 'target') {
$tab = explode(",", substr($db->f('Type'), 5, -1));
foreach($tab as $t) { $r[]=substr($t,1,-1); }
}
}
return $r;
} else {
$db->query("select target from domaines_type where name='$type';");
if (! $db->next_record()) return false;
return $db->f('target');
}
}
domains_type_update (   $name,
  $description,
  $target,
  $entry,
  $compatibility,
  $enable,
  $only_dns,
  $need_dns,
  $advanced,
  $create_tmpdir,
  $create_targetdir 
)

Definition at line 518 of file m_dom.php.

References $cuid, $db, and $err.

{
global $err,$cuid,$db;
// The name MUST contain only letter and digits, it's an identifier after all ...
if (!preg_match("#^[a-z0-9]+$#",$name)) {
$err->raise("dom", _("The name MUST contain only letter and digits"));
return false;
}
$name=mysql_real_escape_string($name); $description=mysql_real_escape_string($description); $target=mysql_real_escape_string($target);
$entry=mysql_real_escape_string($entry); $compatibility=mysql_real_escape_string($compatibility); $enable=mysql_real_escape_string($enable);
$only_dns=intval($only_dns); $need_dns=intval($need_dns); $advanced=intval($advanced); $create_tmpdir=intval($create_tmpdir); $create_targetdir=intval($create_targetdir);
$db->query("UPDATE domaines_type SET description='$description', target='$target', entry='$entry', compatibility='$compatibility', enable='$enable', need_dns=$need_dns, only_dns=$only_dns, advanced='$advanced',create_tmpdir=$create_tmpdir,create_targetdir=$create_targetdir where name='$name';");
return true;
}
domdefaultdir (   $domain)

Definition at line 779 of file m_dom.php.

References $cuid, and $domain.

Referenced by create_default_subdomains().

{
global $bro,$cuid;
$dest_root = $bro->get_userid_root($cuid);
# return $dest_root."/www/".$this->domshort($domain);
return "/www/".$this->domshort($domain);
}
domshort (   $dom,
  $sub = "" 
)

Definition at line 626 of file m_dom.php.

References $dom, and $sub.

Referenced by set_sub_domain().

{
return str_replace("-","",str_replace(".","",empty($sub)?"":"$sub.").$dom );
}
dump_axfr (   $domain,
  $ns = 'localhost' 
)

Definition at line 786 of file m_dom.php.

References $domain.

{
exec('/usr/bin/dig AXFR "'.escapeshellcmd($domain).'" @"'.escapeshellcmd($ns).'"', $axfr);
return $axfr;
}
echo_domain_list (   $integrity = false)

Out (echo) the complete hosted domain list :

Definition at line 1572 of file m_dom.php.

References $db, and $err.

{
global $db,$err;
$db->query("SELECT domaine FROM domaines WHERE gesdns=1 ORDER BY domaine");
$tt="";
while ($db->next_record()) {
#echo $db->f("domaine")."\n";
$tt.=$db->f("domaine")."\n";
}
echo $tt;
if ($integrity) {
echo md5($tt)."\n";
}
return true;
}
edit_domain (   $dom,
  $dns,
  $gesmx,
  $force = 0,
  $ttl = 86400 
)

Modifie les information du domaine précisé.

Parameters
string$domDomaine du compte courant que l'on souhaite modifier
integer$dnsVaut 1 ou 0 pour héberger ou pas le DNS du domaine
integer$gesmxHéberge-t-on le emails du domaines sur ce serveur ?
boolean$forceFaut-il passer les checks DNS ou MX ? (admin only)
Returns
boolean appelle $mail->add_dom ou $ma->del_dom si besoin, en fonction du champs MX. Retourne FALSE si une erreur s'est produite, TRUE sinon.

Definition at line 1420 of file m_dom.php.

References $classes, $cuid, $db, $dns, $dom, $err, $force, $hooks, $r, $t, checkfqdn(), checkhostallow(), checkmx(), get_domain_all(), and whois().

Referenced by import_manual_dns_prep_zone(), and set_ttl().

{
global $db,$err,$L_MX,$classes,$cuid,$hooks;
$err->log("dom","edit_domain",$dom."/".$dns."/".$gesmx);
// Locked ?
if (!$this->islocked && !$force) {
$err->raise("dom",_("--- Program error --- No lock on the domains!"));
return false;
}
if ($dns == 1 && !$force) {
$this->dns=$this->whois($dom);
$v=checkhostallow($dom,$this->dns);
if ($v==-1) {
$err->raise("dom",_("The last member of the domain name is incorrect or cannot be hosted in that server"));
return false;
}
if ($dns && $v==-2) {
$err->raise("dom",_("The domain cannot be found in the Whois database"));
return false;
}
if ($dns && $v==-3) {
$err->raise("dom",_("The DNS of this domain do not match the server's DNS. Please change your domain's DNS before you install it again"));
return false;
}
}
# Can't have ttl == 0. There is also a check in function_dns
if ( $ttl == 0 ) { $ttl = 86400; }
$t=checkfqdn($dom);
if ($t) {
$err->raise("dom",_("The domain name is syntaxically incorrect"));
return false;
}
if (!$r=$this->get_domain_all($dom)) {
// Le domaine n'existe pas, Failure
$err->raise("dom",_("The domain name %s does not exist"),$dom);
return false;
}
if ($dns!="1") $dns="0";
// On vérifie que des modifications ont bien eu lieu :)
if ($r["dns"]==$dns && $r["mail"]==$gesmx && $r["zonettl"]==$ttl) {
$err->raise("dom",_("No change has been requested..."));
return true;
}
//si gestion mx uniquement, vérification du dns externe
if ($dns=="0" && $gesmx=="1" && !$force) {
$vmx = $this->checkmx($dom);
if ($vmx == 1) {
$err->raise("dom",_("There is no MX record pointing to this server, and you are asking us to host the mail here. Make sure to update your MX entries or no mail will be received"));
}
if ($vmx == 2) {
// Serveur non spécifié parmi les champx mx
$err->raise("dom",_("There is no MX record pointing to this server, and you are asking us to host the mail here. Make sure to update your MX entries or no mail will be received"));
}
}
if ($gesmx && !$r["mail"]) {
$hooks->invoke("hook_dom_add_mx_domain",array($r["id"]));
}
if (!$gesmx && $r["mail"]) { // on a dissocié le MX : on détruit donc l'entree dans LDAP
$hooks->invoke("hook_dom_del_mx_domain",array($r["id"]));
}
$db->query("UPDATE domaines SET gesdns='$dns', gesmx='$gesmx', zonettl='$ttl' WHERE domaine='$dom'");
$dom->set_dns_action($dom, 'UPDATE');
return true;
} // edit_domain
enum_domains (   $uid = -1)

Retourne un tableau contenant les domaines d'un membre.

Par défaut le membre connecté

Returns
array retourne un tableau indexé contenant la liste des domaines hébergés sur le compte courant. Retourne FALSE si une erreur s'est produite.

Definition at line 562 of file m_dom.php.

References $cuid, $db, $domains, $err, and $uid.

Referenced by alternc_export_conf(), hook_admin_del_member(), and hook_menu().

{
global $db,$err,$cuid;
$err->log("dom","enum_domains");
if ($uid == -1) { $uid = $cuid; }
$db->query("SELECT * FROM domaines WHERE compte='{$uid}' ORDER BY domaine ASC;");
$this->domains=array();
if ($db->num_rows()>0) {
while ($db->next_record()) {
$this->domains[]=$db->f("domaine");
}
}
return $this->domains;
}
enum_slave_account ( )

Return the list of allowed slave accounts.

Definition at line 1686 of file m_dom.php.

References $db, $err, and $res.

{
global $db,$err;
$db->query("SELECT * FROM slaveaccount;");
$res=array();
while ($db->next_record()) {
$res[]=$db->Record;
}
if (!count($res)) return false;
return $res;
}
enum_slave_ip ( )

Return the list of ip addresses and classes that are allowed access to domain list through AXFR Transfers from the bind server.

Definition at line 1502 of file m_dom.php.

References $db, $err, and $res.

{
global $db,$err;
$db->query("SELECT * FROM slaveip;");
if (!$db->next_record()) {
return false;
}
do {
$res[]=$db->Record;
} while ($db->next_record());
return $res;
}
generate_apacheconf (   $p = null)

Generate apache configuration.

Die if a specific FQDN have 2 vhost conf.

Definition at line 1960 of file m_dom.php.

References $p, generation_domains_type(), generation_parameters(), and getuserpath().

{
// Get the parameters
$lst = $this->generation_parameters($p);
$gdt = $this->generation_domains_type();
// Initialize duplicate check
$check_dup = array();
$ret='';
foreach ($lst as $p ) {
// Check if duplicate
if ( in_array($p['fqdn'], $check_dup) ) {
die("Error: duplicate fqdn : ".$p['fqdn']);
} else {
$check_dup[] = $p['fqdn'];
}
// Get the needed template
$tpl = $gdt[ $p['type'] ] ['tpl'];
// Replace needed vars
$tpl = strtr($tpl, array(
"%%LOGIN%%"=> $p['login'],
"%%fqdn%%"=> $p['fqdn'],
"%%document_root%%"=> getuserpath($p['login']).$p['valeur'],
"%%account_root%%"=> getuserpath($p['login']),
"%%redirect%%"=> $p['valeur'],
"%%UID%%"=> $p['uid'],
"%%GID%%"=> $p['uid'],
"%%mail_account%%"=> $p['mail'],
"%%user%%"=> "FIXME",
));
// Security check
if ( $p['uid'] < 1999 ) { // if UID is not an AlternC uid
$ret.= "# ERROR: Sub_id: ".$p['sub_id']."- The uid seem to be dangerous\n";
continue;
}
// Return the conf
$ret.= "# Sub_id: ".$p['sub_id']."\n".$tpl;
}
return $ret;
}
generate_conf_oldhook (   $action,
  $lst_sub,
  $sub_obj = null 
)

Definition at line 1931 of file m_dom.php.

References generation_parameters(), and isset.

{
if (is_null($sub_obj)) $sub_obj=$this->generation_parameters(null, false);
if (!isset($lst_sub[strtoupper($action)]) || empty( $lst_sub[strtoupper($action)] )) {
return false;
}
$lst_by_type = $lst_sub[strtoupper($action)] ;
foreach ( $lst_by_type as $type => $lid_arr) {
$script = "/etc/alternc/functions_hosting/hosting_".strtolower($type).".sh";
if (! @is_executable($script) ) {
continue;
}
foreach ($lid_arr as $lid ) {
$o = $sub_obj[$lid];
$cmd = $script." ".escapeshellcmd(strtolower($action))." ";
$cmd .= escapeshellcmd($o['fqdn'])." ".escapeshellcmd($o['valeur']);
system($cmd);
}
} // foreach $lst_by_type
}
generation_domains_type ( )

Return an array with all informations of the domains_type used to generate Apache conf.

Die if templates missing. Warning: an Apache domains_type must have 'only_dns' == TRUE

Definition at line 1916 of file m_dom.php.

References $d, $dom, and ALTERNC_APACHE2_GEN_TMPL_DIR.

Referenced by generate_apacheconf().

{
global $dom;
$d= array();
foreach ($dom->domains_type_lst() as $k => $v) {
if ( $v['only_dns'] == true ) continue;
if (! $j = file_get_contents(ALTERNC_APACHE2_GEN_TMPL_DIR.'/'.strtolower($k).'.conf') ) {
die("Error: missing file for $k");
}
$d[$k] = $v;
$d[$k]['tpl'] = $j;
}
return $d;
}
generation_parameters (   $id = null,
  $only_apache = true 
)

Return an array with all the needed parameters to generate conf of a vhost.

If no parameters, return the parameters for ALL the vhost. Optionnal parameters: id of the sub_domaines

Definition at line 1867 of file m_dom.php.

References $db, $err, and $r.

Referenced by generate_apacheconf(), and generate_conf_oldhook().

{
global $db,$err;
$err->log("dom","generation_parameters");
$params="";
if (! is_null($id) && intval($id)==$id ) {
$id=intval($id);
$params=" AND sd.id = $id ";
}
if ($only_apache) {
$params.=" and dt.only_dns is false ";
}
// BUG BUG BUG FIXME
// Suppression de comptes -> membres existe pas -> domaines a supprimer ne sont pas lister
$db->query("
select
sd.id as sub_id,
lower(sd.type) as type,
m.login,
m.uid as uid,
if(length(sd.sub)>0,concat_ws('.',sd.sub,sd.domaine),sd.domaine) as fqdn,
concat_ws('@',m.login,v.value) as mail,
sd.valeur
from
sub_domaines sd left join membres m on sd.compte=m.uid,
variable v,
domaines_type dt
where
v.name='mailname_bounce'
and lower(dt.name) = lower(sd.type)
$params
order by
m.login,
sd.domaine,
sd.sub
;");
$r = array();
while ($db->next_record()) {
$r[ $db->Record['sub_id'] ] = $db->Record;
}
return $r;
}
generation_todo ( )

Definition at line 2008 of file m_dom.php.

References $db, $err, and $r.

{
global $db,$err;
$err->log("dom","generation_todo");
$db->query("select id as sub_id, web_action, type from sub_domaines where web_action !='ok';");
$r = array();
while ($db->next_record()) {
$r[ strtoupper($db->Record['web_action']) ][ strtoupper($db->Record['type']) ][] = $db->f('sub_id');
}
return $r;
}
get_domain_all (   $dom)

retourne TOUTES les infos d'un domaine

Parameters
string$domDomaine dont on souhaite les informations
Returns
array Retourne toutes les infos du domaine sous la forme d'un tableau associatif comme suit :
 $r["name"] =  Nom fqdn
 $r["dns"]  =  Gestion du dns ou pas ?
 $r["mx"]   =  Valeur du champs MX si "dns"=true
 $r["mail"] =  Heberge-t-on le mail ou pas ? (si "dns"=false)
 $r["nsub"] =  Nombre de sous-domaines
 $r["sub"]  =  tableau associatif des sous-domaines
 $r["sub"][0-(nsub-1)]["name"] = nom du sous-domaine (NON-complet)
 $r["sub"][0-(nsub-1)]["dest"] = Destination (url, ip, local ...)
 $r["sub"][0-(nsub-1)]["type"] = Type (0-n) de la redirection.
Retourne FALSE si une erreur s'est produite.

Definition at line 1077 of file m_dom.php.

References $cuid, $db, $dom, $err, $i, $r, $t, and checkfqdn().

Referenced by alternc_export_conf(), del_domain(), edit_domain(), get_problems(), import_manual_dns_prep_zone(), and set_ttl().

{
global $db,$err,$cuid;
$err->log("dom","get_domain_all",$dom);
// Locked ?
if (!$this->islocked) {
$err->raise("dom",_("--- Program error --- No lock on the domains!"));
return false;
}
$t=checkfqdn($dom);
if ($t) {
$err->raise("dom",_("The domain name is syntaxically incorrect"));
return false;
}
$r["name"]=$dom;
$db->query("SELECT * FROM domaines WHERE compte='$cuid' AND domaine='$dom'");
if ($db->num_rows()==0) {
$err->raise("dom",sprintf(_("Domain '%s' not found"),$dom));
return false;
}
$db->next_record();
$r["id"]=$db->Record["id"];
$r["dns"]=$db->Record["gesdns"];
$r["dns_action"]=$db->Record["dns_action"];
$r["dns_result"]=$db->Record["dns_result"];
$r["mail"]=$db->Record["gesmx"];
$r["zonettl"]=$db->Record["zonettl"];
$r['noerase']=$db->Record['noerase'];
$db->free();
$db->query("SELECT COUNT(*) AS cnt FROM sub_domaines WHERE compte='$cuid' AND domaine='$dom'");
$db->next_record();
$r["nsub"]=$db->Record["cnt"];
$db->free();
#$db->query("SELECT sd.*, dt.description AS type_desc, dt.only_dns FROM sub_domaines sd, domaines_type dt WHERE compte='$cuid' AND domaine='$dom' AND UPPER(dt.name)=UPPER(sd.type) ORDER BY sd.sub,sd.type");
$db->query("SELECT sd.*, dt.description AS type_desc, dt.only_dns FROM sub_domaines sd LEFT JOIN domaines_type dt on UPPER(dt.name)=UPPER(sd.type) WHERE compte='$cuid' AND domaine='$dom' ORDER BY sd.sub,sd.type ;");
// Pas de webmail, on le cochera si on le trouve.
$r["sub"]=array();
for($i=0;$i<$r["nsub"];$i++) {
$db->next_record();
$r["sub"][$i]=array();
$r["sub"][$i]["id"]=$db->Record["id"];
$r["sub"][$i]["name"]=$db->Record["sub"];
$r["sub"][$i]["dest"]=$db->Record["valeur"];
$r["sub"][$i]["type"]=$db->Record["type"];
$r["sub"][$i]["enable"]=$db->Record["enable"];
$r["sub"][$i]["type_desc"]=$db->Record["type_desc"];
$r["sub"][$i]["only_dns"]=$db->Record["only_dns"];
$r["sub"][$i]["web_action"]=$db->Record["web_action"];
$r["sub"][$i]["fqdn"]= ((!empty($r["sub"][$i]["name"]))?$r["sub"][$i]["name"].".": "").$r["name"] ;
}
$db->free();
return $r;
} // get_domain_all
get_domain_all_summary ( )

Definition at line 1605 of file m_dom.php.

References $db, $err, and $res.

{
global $db,$err;
$res=array();
$db->query("SELECT domaine, gesdns, gesmx, dns_action, zonettl FROM domaines ORDER BY domaine");
while ($db->next_record()) {
$res[$db->f("domaine")] = array(
"gesdns" => $db->f("gesdns"),
"gesmx" => $db->f("gesmx"),
"dns_action" => $db->f("dns_action"),
"zonettl" => $db->f("zonettl"),
);
}
return $res;
}
get_domain_byid (   $dom_id)

Returns the name of a domain for the current user, from it's domain_id.

Parameters
$dom_idinteger the domain_id to search for
Returns
string the domain name, or false with an error raised.

Definition at line 1626 of file m_dom.php.

References $cuid, $db, $domain, and $err.

Referenced by hook_dom_add_mx_domain(), and set_ttl().

{
global $db,$err,$cuid;
$dom_id=intval($dom_id);
$db->query("SELECT domaine FROM domaines WHERE id=$dom_id AND compte=$cuid;");
if ($db->next_record()) {
$domain=$db->f("domaine");
if (!$domain) {
$err->raise("dom",_("This domain is not installed in your account"));
return false;
} else {
return $domain;
}
} else {
$err->raise("dom",_("This domain is not installed in your account"));
return false;
}
}
get_domain_byname (   $domain)

Returns the id of a domain for the current user, from it's domain name.

Parameters
$domainstring the domain name to search for
Returns
integer the domain id, or false with an error raised.

Definition at line 1650 of file m_dom.php.

References $cuid, $db, $domain, and $err.

Referenced by import_manual_dns_entry_doit().

{
global $db,$err,$cuid;
$domain=trim($domain);
$db->query("SELECT id FROM domaines WHERE domaine='".addslashes($domain)."' AND compte=$cuid;");
if ($db->next_record()) {
$id=$db->f("id");
if (!$id) {
$err->raise("dom",_("This domain is not installed in your account"));
return false;
} else {
return $id;
}
} else {
$err->raise("dom",_("This domain is not installed in your account"));
return false;
}
}
get_domain_list (   $uid = -1)

Returns the complete hosted domain list :

Definition at line 1591 of file m_dom.php.

References $db, $err, $res, and $uid.

{
global $db,$err;
$uid=intval($uid);
$res=array();
if ($uid!=-1) {
$sql=" AND compte='$uid' ";
}
$db->query("SELECT domaine FROM domaines WHERE gesdns=1 $sql ORDER BY domaine");
while ($db->next_record()) {
$res[]=$db->f("domaine");
}
return $res;
}
get_panel_url_list ( )

Definition at line 91 of file m_dom.php.

References $db, $err, and $t.

{
global $db,$err;
$err->log("dom","get_panel_url_list");
$db->query("SELECT sd.id as sub_id, if(length(sd.sub)>0,concat_ws('.',sd.sub,sd.domaine),sd.domaine) as fqdn from sub_domaines sd where type = 'PANEL';");
$t=array();
while ($db->next_record()) {
$t[intval($db->f('sub_id'))] = $db->f('fqdn');
}
return $t;
}
get_problems (   $domain)

Definition at line 2060 of file m_dom.php.

References $domain, $sub, get_domain_all(), isset, lock(), and unlock().

{
$this->lock();
$da = $this->get_domain_all($domain);
$this->unlock();
$errors = array();
// Check if there is more than 1 apache conf
// by subdomain
$tmp = array();
foreach ( $da['sub'] as $sub ) {
if ( ! $sub['only_dns'] ) {
if (!isset($tmp[$sub['fqdn']])) {
$tmp[$sub['fqdn']] = 0;
}
$tmp[$sub['fqdn']]++;
if ($tmp[$sub['fqdn']] >= 2 ) {
$errors[$sub['fqdn']]=sprintf(_("Problem on %s: there is more than 1 web configuration going to be generated for this sub-domain."), $sub['fqdn']);
}
}
}
// Check if we know each type of subdomain
// Example: we may not know WEBMAIL if we upgrade from a previous setup
foreach ( $da['sub'] as $sub ) {
if (is_null($sub['type_desc'])) {
$errors[$sub['fqdn']]=sprintf(_("Problem on %s: we do not know domain's type <b>%s</b>."),$sub['fqdn'], $sub['type']);
}
}
// TODO: add a full compatibility check.
return $errors;
}
get_sub_domain_all (   $sub_domain_id)

Retourne TOUTES les infos d'un sous domaine du compte courant.

Parameters
integersub_domain_id id du subdomain
Returns
arrray Retourne un tableau associatif contenant les informations du sous-domaine demandé.
 $r["name"]= nom du sous-domaine (NON-complet)
 $r["dest"]= Destination (url, ip, local ...)
$r["type"]= Type (0-n) de la redirection. Retourne FALSE si une erreur s'est produite.

Definition at line 1144 of file m_dom.php.

References $cuid, $db, $err, and $r.

Referenced by del_sub_domain(), and sub_domain_change_status().

{
global $db,$err,$cuid;
$err->log("dom","get_sub_domain_all",$sub_domain_id);
// Locked ?
if (!$this->islocked) {
$err->raise("dom",_("--- Program error --- No lock on the domains!"));
return false;
}
$db->query("select sd.*, dt.description as type_desc, dt.only_dns from sub_domaines sd, domaines_type dt where compte='$cuid' and sd.id='$sub_domain_id' and upper(dt.name)=upper(sd.type);");
if ($db->num_rows()==0) {
$err->raise("dom",_("The sub-domain does not exist"));
return false;
}
$db->next_record();
$r=array();
$r["id"]=$db->Record["id"];
$r["name"]=$db->Record["sub"];
$r["domain"]=$db->Record["domaine"];
$r["dest"]=$db->Record["valeur"];
$r["enable"]=$db->Record["enable"];
$r["type"]=$db->Record["type"];
$r["type_desc"]=$db->Record["type_desc"];
$r["only_dns"]=$db->Record["only_dns"];
$r["web_action"]=$db->Record["web_action"];
$db->free();
return $r;
} // get_sub_domain_all
get_sub_domain_id_and_member_by_name (   $fqdn)

Definition at line 102 of file m_dom.php.

References $cuid, $db, and $err.

Referenced by m_variables\get_impersonated().

{
global $db,$err,$cuid;
$err->log("dom","get_sub_domain_by_name");
$fqdn=mysql_real_escape_string($fqdn);
$db->query("select sd.* from sub_domaines sd where if(length(sd.sub)>0,concat_ws('.',sd.sub,sd.domaine),sd.domaine) = '$fqdn';");
if (! $db->next_record()) return false;
return array('sub_id'=>intval($db->f('id')), 'member_id'=> intval($db->f('compte') ));
}
hook_admin_del_member ( )

Delete an account (all his domains)

Definition at line 1782 of file m_dom.php.

References $dom, $err, del_domain(), and enum_domains().

{
global $err;
$err->log("dom","alternc_del_member");
$li=$this->enum_domains();
foreach($li as $dom) {
$this->del_domain($dom);
}
return true;
}
hook_dom_add_mx_domain (   $dom_id)

Declare that a domain's emails are hosted in this server : This adds 2 MX entries in this domain (if required)

Definition at line 1766 of file m_dom.php.

References $domain, $err, get_domain_byid(), and set_sub_domain().

{
global $err;
$domain = $this->get_domain_byid($dom_id);
$err->log("dom","hook_dom_add_mx_domain");
$this->set_sub_domain($domain, '', $this->type_defmx, '');
if (! empty($GLOBALS['L_DEFAULT_SECONDARY_MX'])) {
$this->set_sub_domain($domain, '', $this->type_defmx2, '');
}
return true;
}
hook_menu ( )

Definition at line 111 of file m_dom.php.

References $d, and enum_domains().

{
global $quota;
$obj = array(
'title' => _("Domains"),
'ico' => 'images/dom.png',
'link' => 'toggle',
'pos' => 20,
'links' => array(),
) ;
if ( $quota->cancreate("dom") ) {
$obj['links'][] =
array (
'ico' => 'images/new.png',
'txt' => _("Add a domain"),
'url' => "dom_add.php",
);
}
foreach ($this->enum_domains() as $d) {
$obj['links'][] =
array (
'txt' => htmlentities($d),
'url' => "dom_edit.php?domain=".urlencode($d),
);
}
return $obj;
}
hook_quota_get ( )

Returns the used quota for the $name service for the current user.

Parameters
$namestring name of the quota
Returns
integer the number of service used or false if an error occured private

Definition at line 1799 of file m_dom.php.

References $cuid, $db, $err, and $q.

{
global $db,$err,$cuid;
$err->log("dom","get_quota");
$q=Array("name"=>"dom", "description"=>_("Domain name"), "used"=>0);
$db->query("SELECT COUNT(*) AS cnt FROM domaines WHERE compte='$cuid'");
if ($db->next_record() ) {
$q['used']=$db->f("cnt");
}
return $q;
}
hook_upnp_list ( )

hook function called by AlternC-upnp to know which open tcp or udp ports this class requires or suggests

Returns
array a key => value list of port protocol name mandatory values private

Definition at line 2051 of file m_dom.php.

{
return array(
"dns-tcp" => array("port" => 53, "protocol" => "tcp", "mandatory" => 1),
"dns-udp" => array("port" => 53, "protocol" => "udp", "mandatory" => 1),
);
}
import_manual_dns_entry (   $zone,
  $domain,
  $detect_redirect = true,
  $save = false 
)

Definition at line 213 of file m_dom.php.

References $cuid, $domain, $err, $val, import_manual_dns_entry_doit(), and is_it_a_redirect().

Referenced by import_manual_dns_zone().

{
global $cuid, $err;
$err->log("dom","import_manual_dns_entry");
$zone=trim($zone);
if (empty($zone)) return false;
$domain=trim($domain);
if ( empty($domain) ) {
$err->raise("dom", _("Missing domain name"));
return false;
}
$val = array(
'status' => 'err', // can be 'ok', 'err', 'warn'
'comment' => 'no val',
'entry_old' => $zone,
'entry_new' => array('domain'=>$domain),
);
// Examples:
// ; hello comment
if ( preg_match('/^;/', $zone, $ret) ) {
$val['status'] = 'ok';
$val['comment'] = 'Just a comment, do not import';
} else
// Examples:
// $TTL 86400'
if ( preg_match('/^\$TTL\h+(?P<ttl>[\dMHDmhd]+)/', $zone, $ret) ) {
$val['status'] = 'ok';
$val['comment'] = 'Set TTL to '.$ret['ttl'];
$val['entry_new']['type'] = 'set_ttl';
$val['entry_new']['value'] = $ret['ttl'];
} else
// Examples:
// @ IN AAAA 127.2.1.5
// reseau IN AAAA 145.214.44.55
if ( preg_match('/^(?P<sub>[\w\.@\-]*)\h*(?P<ttl>\d*)\h*IN\h+AAAA\h+(?P<target>[0-9A-F:]{2,40})/i', $zone, $ret) ) {
// Check if it is just a redirect
if ( substr($ret['sub'], -1) == '.' ) { // if ending by a "." it is allready a FQDN
$url="http://".$ret['sub'];
} else {
if ( $ret['sub'] == '@' || empty($ret['sub']) ) {
$url="http://".$domain;
} else {
$url="http://".$ret['sub'].".".$domain;
}
}
if ( $detect_redirect && $dst_url = $this->is_it_a_redirect($url) ) {
$val['status'] = 'warn';
$val['comment'] = "Became a redirect to $dst_url";
$val['entry_new']['type'] = 'URL';
$val['entry_new']['sub'] = $ret['sub'];
$val['entry_new']['value'] = $dst_url;
} else {
$val['status'] = 'ok';
$val['comment'] = "Create entry AAAA with ".$ret['sub']." go to ".$ret['target']." with ttl ".$ret['ttl'];
$val['entry_new']['type'] = 'IPV6';
$val['entry_new']['sub'] = $ret['sub'];
$val['entry_new']['value'] = $ret['target'];
}
} else
// Examples:
// @ IN A 127.2.1.5
// reseau IN A 145.214.44.55
if ( preg_match('/^(?P<sub>[\w\.@\-]*)\h*(?P<ttl>\d*)\h*IN\h+A\h+(?P<target>\d+\.\d+\.\d+\.\d+)/i', $zone, $ret) ) {
// Check if it is just a redirect
if ( substr($ret['sub'], -1) == '.' ) { // if ending by a "." it is allready a FQDN
$url="http://".$ret['sub'];
} else {
if ( $ret['sub'] == '@' || empty($ret['sub']) ) {
$url="http://".$domain;
} else {
$url="http://".$ret['sub'].".".$domain;
}
}
if ( $detect_redirect && $dst_url = $this->is_it_a_redirect($url) ) {
$val['status'] = 'warn';
$val['comment'] = "Became a redirect to $dst_url";
$val['entry_new']['type'] = 'URL';
$val['entry_new']['sub'] = $ret['sub'];
$val['entry_new']['value'] = $dst_url;
} else {
$val['status'] = 'ok';
$val['comment'] = "Create entry A with ".$ret['sub']." go to ".$ret['target']." with ttl ".$ret['ttl'];
$val['entry_new']['type'] = 'IP';
$val['entry_new']['sub'] = $ret['sub'];
$val['entry_new']['value'] = $ret['target'];
}
} else
// Examples:
// @ IN NS ns.example.tld.
// ns 3600 IN NS 145.214.44.55
if ( preg_match('/^(?P<sub>[\-\w\.@]*)\h*(?P<ttl>\d*)\h*IN\h+NS\h+(?P<target>[\w\.\-]+)/i', $zone, $ret) ) {
if ( empty($ret['sub']) || $ret['sub'] == '@' ) {
$val['status'] = 'warn';
$val['comment'] = "Won't migrate it, there will get a new value";
} else {
$val['status'] = 'ok';
$val['comment'] = "Create entry NS with ".$ret['sub']." go to ".$ret['target']." with ttl ".$ret['ttl'];
$val['entry_new']['type'] = 'FIXME-NS';
$val['entry_new']['sub'] = $ret['sub'];
$val['entry_new']['value'] = $ret['target'];
}
} else
// Examples:
// agenda IN CNAME ghs.google.com.
// www 3600 IN CNAME @
if ( preg_match('/^(?P<sub>[\-\w\.@]*)\h*(?P<ttl>\d*)\h*IN\h+CNAME\h+(?P<target>[@\w+\.\-]+)/i', $zone, $ret) ) {
if ( substr($ret['sub'], -1) == '.' ) { // if ending by a "." it is allready a FQDN
$url="http://".$ret['sub'];
} else {
if ( $ret['sub'] == '@' || empty($ret['sub']) ) {
$url="http://".$domain;
} else {
$url="http://".$ret['sub'].".".$domain;
}
}
if ( $detect_redirect && $dst_url = $this->is_it_a_redirect($url) ) {
$val['status'] = 'warn';
$val['comment'] = "Became a redirect to $dst_url";
$val['entry_new']['type'] = 'URL';
$val['entry_new']['sub'] = $ret['sub'];
$val['entry_new']['value'] = $dst_url;
} else {
$val['status'] = 'ok';
$val['comment'] = "Create entry CNAME with ".$ret['sub']." go to ".$ret['target']." with ttl ".$ret['ttl'];
$val['entry_new']['type'] = 'CNAME';
$val['entry_new']['sub'] = $ret['sub'];
$val['entry_new']['value'] = $ret['target'];
}
} else
// Examples:
// @ IN MX 10 aspmx.l.google.com.
// arf 3600 IN MX 20 pouet.fr.
if ( preg_match('/^(?P<sub>[\-\w\.@]*)\h*(?P<ttl>\d*)\h*IN\h+MX\h+(?P<weight>\d+)\h+(?P<target>[@\w+\.\-]+)/i', $zone, $ret) ) {
$val['status'] = 'warn';
$val['comment'] = "Create entry MX with ".$ret['sub']." go to ".$ret['target']." with ttl ".$ret['ttl']." and weight 5 (initial weight was ".$ret['weight'].")";
$val['entry_new']['type'] = 'MX';
$val['entry_new']['sub'] = $ret['sub'];
$val['entry_new']['value'] = $ret['target'];
} else
// Examples:
// _sip._tcp IN SRV 1 100 5061 sip.example.tld.
if ( preg_match('/^(?P<sub>[\_\w\.@\-]+)\h+(?P<ttl>\d*)\h*IN\h+SRV\h+/i', $zone, $ret) ) {
$val['status']='err';
$val['comment'] = "Please add yourself the entry $zone";
} else
// Examples:
// @ IN TXT "google-site-verification=jjjjjjjjjjjjjjjjjjjjjjjjsdsdjlksjdljdslgNj5"
if ( preg_match('/^(?P<sub>[\_\w\.@\-]*)\h*(?P<ttl>\d*)\h*IN\h+TXT\h+\"(?P<target>.+)\"/i', $zone, $ret) ) {
$val['status']='ok';
$val['comment'] = "Create TXT entry with ".$ret['sub']." go to ".$ret['target'];
$val['entry_new']['type'] = 'TXT';
$val['entry_new']['sub'] = $ret['sub'];
$val['entry_new']['value'] = $ret['target'];
} else {
// WTF can it be ?
$val['comment'] = "Unknow: $zone";
}
if ($save) {
return $this->import_manual_dns_entry_doit($val);
}
return $val;
}
import_manual_dns_entry_doit (   $entry)
private

Definition at line 390 of file m_dom.php.

References $err, $val, domains_type_lst(), get_domain_byname(), lock(), set_sub_domain(), set_ttl(), and unlock().

Referenced by import_manual_dns_entry().

{
global $err;
$entry['did_it'] = 0;
if ( $entry['status'] == 'err' ) {
return $entry;
}
$val=$entry['entry_new'];
if (empty($val['type'])) return false;
switch($val['type']) {
case "set_ttl":
$entry['did_it'] = $this->set_ttl($this->get_domain_byname($val['domain']), $val['value']);
return $entry;
break;
}
// If it is a know domains type
if (! array_key_exists( strtolower($val['type']), $this->domains_type_lst() ) ) {
echo "what is this shit ?\n";
print_r($entry);
return $entry;
}
// If the subdomain is @, we want an empty subdomain
if ($val['sub'] == '@') $val['sub'] = '';
$this->lock();
$entry['did_it'] = $this->set_sub_domain($val['domain'], $val['sub'], $val['type'], $val['value']);
$this->unlock();
return $entry;
}
import_manual_dns_prep_zone (   $domain)
private

Definition at line 425 of file m_dom.php.

References $d, $domain, $err, add_domain(), del_sub_domain(), edit_domain(), get_domain_all(), lock(), and unlock().

Referenced by import_manual_dns_zone().

{
global $err;
// Prepare a domain to be importer :
// * create the domain
// * delete all automatic subdomain
// * set no mx
$this->lock();
// function add_domain($domain,$dns,$noerase=0,$force=0,$isslave=0,$slavedom="")
if (! $this->add_domain($domain, true, false, 1) ) {
$err->raise('dom', "Error adding domain");
return false;
}
// Set no mx
$this->edit_domain($domain, true, false);
$d = $this->get_domain_all($domain);
foreach( $d['sub'] as $sd) {
$this->del_sub_domain($sd['id']);
}
$this->unlock();
return true;
}
import_manual_dns_zone (   $zone,
  $domain,
  $detect_redirect = true,
  $save = false 
)

Definition at line 195 of file m_dom.php.

References $domain, $err, $val, import_manual_dns_entry(), and import_manual_dns_prep_zone().

{
global $err;
if ($save) {
if (! $this->import_manual_dns_prep_zone($domain) ) {
$err->raise('dom', _("Err: failed to prepare the zone"));
return false;
}
}
$val = array();
foreach (explode("\n", $zone) as $z) {
$z=trim($z);
if (empty($z)) continue;
$val[] = $this->import_manual_dns_entry($z,$domain,$detect_redirect,$save);
}
return $val;
}
is_it_a_redirect (   $url)

Definition at line 455 of file m_dom.php.

References isset.

Referenced by import_manual_dns_entry().

{
try {
$params = array('http' => array(
'method' => 'HEAD',
'ignore_errors' => true
));
$context = stream_context_create($params);
$fp = @fopen($url, 'rb', false, $context);
$result = @stream_get_contents($fp);
if ($result === false) {
throw new Exception("Could not read data from {$url}");
return false;
}
if ( strstr($http_response_header[0], '301') || strstr($http_response_header[0], '302')) {
// This is a redirection
if ( preg_match( '/Location:\h+(?P<target>[\-\w:\/.\?\=.]+)/', implode("\n",$http_response_header), $ret ) ) {
// check if it is a redirection to himself
preg_match('/\/\/(?P<host>[\w\.\-]+)\//', ( substr($url,-1)=='/'?$url:$url.'/') , $original_cname);
preg_match('/\/\/(?P<host>[\w\.\-]+)\//', $ret['target'], $target_url);
if ( isset($target_url['host']) && ( $target_url['host'] == $original_cname['host'] ) ) { // if it's a redirection to himself (sub pages, http to https...)
return false; // do not do a redirection (we must point to the server)
}
// If it is a redirection to a sub directory
// (we know it is a redirection to a sub directory because it's not a complete URI)
if ( substr($ret['target'],0,4) != 'http' ) {
return 'http://'.$original_cname['host'].'/'.$ret['target'];
}
return $ret['target'];
}
} else { // it isn't a redirection
return false;
}
} catch (Exception $e) {
return false;
}
}
lock ( )

Try to lock a domain private.

Definition at line 1732 of file m_dom.php.

References $db, and $err.

Referenced by alternc_export_conf(), del_domain(), get_problems(), import_manual_dns_entry_doit(), import_manual_dns_prep_zone(), and set_ttl().

{
global $db,$err;
$err->log("dom","lock");
if ($this->islocked) {
$err->raise("dom",_("--- Program error --- Lock already obtained!"));
}
while (file_exists($this->fic_lock_cron)) {
sleep(2);
}
$this->islocked=true;
return true;
}
lst_default_subdomains ( )

Definition at line 792 of file m_dom.php.

References $c, $db, and $err.

{
global $db,$err;
$err->log("dom","lst_default_subdomains");
$c=array();
$db->query("select * from default_subdomains;");
while($db->next_record()) {
$c[]=array('id'=>$db->f('id'),
'sub'=>$db->f('sub'),
'domain_type'=>$db->f('domain_type'),
'domain_type_parameter'=>$db->f('domain_type_parameter'),
'concerned'=>$db->f('concerned'),
'enabled'=>$db->f('enabled')
) ;
}
return $c;
}
m_dom ( )

Constructeur.

Definition at line 86 of file m_dom.php.

References variable_get().

{
$this->tld_no_check_at_all = variable_get('tld_no_check_at_all', 0,'Disable ALL check on the TLD (users will be able to add any domain)', array(array('desc'=>'Disabled','type'=>'boolean')));
variable_get('mailname_bounce', '%%FQDN%%','FQDN of the mail server, used to create vhost virtual mail_adress.', array(array('desc'=>'FQDN','type'=>'string')));
}
set_dns_action (   $domain,
  $dns_action 
)

Definition at line 2033 of file m_dom.php.

References $db, and $domain.

Referenced by del_domain(), del_domain_cancel(), and sub_domain_change_status().

{
global $db;
$db->query("UPDATE domaines SET dns_action='".mysql_escape_string($dns_action)."' WHERE domaine='".mysql_escape_string($domain)."'; ");
return true;
}
set_dns_result (   $domain,
  $dns_result 
)

Definition at line 2039 of file m_dom.php.

References $db, and $domain.

{
global $db;
$db->query("UPDATE domaines SET dns_result='".mysql_escape_string($dns_result)."' WHERE domaine='".mysql_escape_string($domain)."'; ");
return true;
}
set_sub_domain (   $dom,
  $sub,
  $type,
  $dest,
  $sub_domain_id = null 
)

Modifier les information du sous-domaine demandé.

Note : si le sous-domaine $sub.$dom n'existe pas, il est créé.
Note : TODO : vérification de concordance de $dest

Parameters
string$domDomaine dont on souhaite modifier/ajouter un sous domaine
string$subkSous domaine à modifier / créer
integer$typeType de sous-domaine (local, ip, url ...)
string$actionAction : vaut "add" ou "edit" selon que l'on Crée (add) ou Modifie (edit) le sous-domaine
string$destDestination du sous-domaine, dépend de la valeur de $type (url, ip, dossier...)
Returns
boolean Retourne FALSE si une erreur s'est produite, TRUE sinon.

Definition at line 1287 of file m_dom.php.

References $cuid, $db, $dom, $err, $sub, $t, can_create_subdomain(), check_type_value(), checkfqdn(), del_sub_domain(), and domshort().

Referenced by create_default_subdomains(), hook_dom_add_mx_domain(), and import_manual_dns_entry_doit().

{
global $db,$err,$cuid,$bro;
$err->log("dom","set_sub_domain",$dom."/".$sub."/".$type."/".$dest);
// Locked ?
if (!$this->islocked) {
$err->raise("dom",_("--- Program error --- No lock on the domains!"));
return false;
}
$dest=trim($dest);
$sub=trim(trim($sub),".");
$dom=strtolower($dom);
$sub=strtolower($sub);
// if (!(($sub == '*') || ($sub=="") || (preg_match('/([a-z0-9][\.\-a-z0-9]*)?[a-z0-9]/', $sub)))) {
$fqdn=checkfqdn($sub);
// Special cases : * (all subdomains at once) and '' empty subdomain are allowed.
if (($sub != '*' && $sub!='') && !($fqdn==0 || $fqdn==4)) {
$err->raise("dom",_("There is some forbidden characters in the sub domain (only A-Z 0-9 and - are allowed)"));
return false;
}
if (! $this->check_type_value($type,$dest)) {
//plutot verifier si la chaine d'erreur est vide avant de raise sinon sa veut dire que l(erruer est deja remonté
#$err->raise("dom",_("Invalid domain type selected, please check"));
return false;
}
// On a épuré $dir des problèmes eventuels ... On est en DESSOUS du dossier de l'utilisateur.
if ($t=checkfqdn($dom)) {
$err->raise("dom",_("The domain name is syntaxically incorrect"));
return false;
}
if (! $this->can_create_subdomain($dom,$sub,$type,$sub_domain_id)) {
$err->raise("dom", _("The parameters for this subdomain and domain type are invalid. Please check for subdomain entries incompatibility"));
return false;
}
if (! is_null($sub_domain_id )) { // It's not a creation, it's an edit. Delete the old one
$this->del_sub_domain($sub_domain_id);
}
// Re-create the one we want
if (! $db->query("replace into sub_domaines (compte,domaine,sub,valeur,type,web_action) values ('$cuid','$dom','$sub','$dest','$type','UPDATE');") ) {
echo "query failed: ".$db->Error;
return false;
}
// Create TMP dir and TARGET dir if needed by the domains_type
$dest_root = $bro->get_userid_root($cuid);
$domshort=$this->domshort($dom,$sub);
$db->query("select create_tmpdir, create_targetdir from domaines_type where name = '$type';");
$db->next_record();
if ($db->f('create_tmpdir')) {
if (! is_dir($dest_root . "/tmp")) {
if(!@mkdir($dest_root . "/tmp",0777,true)){
$err->raise("dom",_("Cannot write to the destination folder"));
}
}
}
if ($db->f('create_targetdir')) {
$dirr=$dest_root.$dest;
$dirr=str_replace('//','/',$dirr);
if (! is_dir($dirr)) {
$old = umask(0);
if(!@mkdir($dirr,0770,true)){
$err->raise("dom",_("Cannot write to the destination folder"));
}
umask($old);
}
}
// Tell to update the DNS file
$db->query("update domaines set dns_action='UPDATE' where domaine='$dom';");
return true;
} // set_sub_domain
set_ttl (   $dom_id,
  $ttl 
)

Definition at line 1395 of file m_dom.php.

References $d, $err, edit_domain(), get_domain_all(), get_domain_byid(), lock(), and unlock().

Referenced by import_manual_dns_entry_doit().

{
global $err;
$err->log("dom","set_ttl","$dom_id / $ttl");
$this->lock();
$domaine = $this->get_domain_byid($dom_id);
$d = $this->get_domain_all($domaine);
$j = $this->edit_domain($domaine, $d['dns'], $d['mail'], 0, $ttl);
$this->unlock();
return $j;
}
sub_domain_change_status (   $sub_id,
  $status 
)

Definition at line 532 of file m_dom.php.

References $cuid, $db, $err, can_create_subdomain(), get_sub_domain_all(), and set_dns_action().

{
global $db,$err,$cuid;
$err->log("dom","sub_domain_change_status");
$sub_id=intval($sub_id);
$status=strtoupper($status);
if (! in_array($status,array('ENABLE', 'DISABLE'))) return false;
$jh = $this->get_sub_domain_all($sub_id);
if ($status == 'ENABLE') { // check compatibility with existing sub_domains
if (! $this->can_create_subdomain($jh['domain'], $jh['name'], $jh['type'], $sub_id) ) {
$err->raise("dom", _("The parameters for this subdomain and domain type are invalid. Please check for subdomain entries incompatibility"));
return false;
}
}
$db->query("update sub_domaines set enable='$status' where id = '".intval($sub_id)."';");
$this->set_dns_action($jh['domain'], 'UPDATE');
return true;
}
subdomain_modif_are_done (   $sub_domain_id,
  $action 
)

Definition at line 2019 of file m_dom.php.

References $db.

{
global $db;
$sub_domain_id=intval($sub_domain_id);
switch (strtolower($action)) {
case "delete":
$sql="DELETE FROM sub_domaines WHERE id =$sub_domain_id;";
break;
default:
$sql="UPDATE sub_domaines SET web_action='OK' WHERE id='$sub_domain_id'; ";
}
$db->query($sql);
return true;
}
unlock ( )

Unlock the cron for domain management return true private.

Definition at line 1751 of file m_dom.php.

References $db, and $err.

Referenced by alternc_export_conf(), del_domain(), get_problems(), import_manual_dns_entry_doit(), import_manual_dns_prep_zone(), and set_ttl().

{
global $db,$err;
$err->log("dom","unlock");
if (!$this->islocked) {
$err->raise("dom",_("--- Program error --- No lock on the domains!"));
}
$this->islocked=false;
return true;
}
update_default_subdomains (   $arr)

Definition at line 812 of file m_dom.php.

References $err, isset, and update_one_default().

{
global $err;
$err->log("dom","update_default_subdomains");
$ok=true;
foreach ($arr as $a) {
if (! isset($a['id'])) $a['id']=null;
if(!empty($a['sub']) || !empty($a['domain_type_parameter'])){
if (! isset($a['enabled'])) $a['enabled']=0;
if (! $this->update_one_default($a['domain_type'],$a['sub'], $a['domain_type_parameter'], $a['concerned'], $a['enabled'],$a['id']) ) {
$ok=false;
}
}
}
return $ok;
}
update_one_default (   $domain_type,
  $sub,
  $domain_type_parameter,
  $concerned,
  $enabled,
  $id = null 
)

Definition at line 829 of file m_dom.php.

References $db, $err, and $sub.

Referenced by update_default_subdomains().

{
global $db,$err;
$err->log("dom","update_one_default");
if($id==null)
$db->query("INSERT INTO default_subdomains values ('','".addslashes($sub)."','".addslashes($domain_type)."','".addslashes($domain_type_parameter)."','".addslashes($concerned)."','".addslashes($enabled)."');");
else
$db->query("UPDATE default_subdomains set sub='".addslashes($sub)."', domain_type='".addslashes($domain_type)."',domain_type_parameter='".addslashes($domain_type_parameter)."',concerned='".addslashes($concerned)."',enabled='".addslashes($enabled)."' where id=".addslashes($id).";");
return true;
//update
}
whois (   $domain)

Retourne les entrées DNS du domaine $domain issues du WHOIS.

Cette fonction effectue un appel WHOIS($domain) sur Internet, et extrait du whois les serveurs DNS du domaine demandé. En fonction du TLD, on sait (ou pas) faire le whois correspondant. Actuellement, les tld suivants sont supportés : .com .net .org .be .info .ca .cx .fr .biz .name

Parameters
string$domainDomaine fqdn dont on souhaite les serveurs DNS
Returns
array Retourne un tableau indexé avec les NOMS fqdn des dns du domaine demandé. Retourne FALSE si une erreur s'est produite.

Definition at line 872 of file m_dom.php.

References $db, $domain, $err, and $found.

Referenced by add_domain(), and edit_domain().

{
global $db,$err;
$err->log("dom","whois",$domain);
// pour ajouter un nouveau TLD, utiliser le code ci-dessous.
// echo "whois : $domain<br />";
preg_match("#.*\.([^\.]*)#",$domain,$out);
$ext=$out[1];
// pour ajouter un nouveau TLD, utiliser le code ci-dessous.
// echo "ext: $ext<br />";
$serveur="";
if (($fp=@fsockopen("whois.iana.org", 43))>0) {
fputs($fp, "$domain\r\n");
$found = false;
$state=0;
while (!feof($fp)) {
$ligne = fgets($fp,128);
if (preg_match('#^whois:#', $ligne)) { $serveur=preg_replace('/whois:\ */','',$ligne,1); }
}
}
$serveur=str_replace(array(" ","\n"),"",$serveur);
$egal="";
switch($ext) {
case "net":
$egal="=";
break;
case "name":
$egal="domain = ";
break;
}
// pour ajouter un nouveau TLD, utiliser le code ci-dessous.
// echo "serveur : $serveur <br />";
if (($fp=@fsockopen($serveur, 43))>0) {
fputs($fp, "$egal$domain\r\n");
$found = false;
$state=0;
while (!feof($fp)) {
$ligne = fgets($fp,128);
// pour ajouter un nouveau TLD, utiliser le code ci-dessous.
// echo "| $ligne<br />";
switch($ext) {
case "org":
case "com":
case "net":
case "info":
case "biz":
case "name":
case "cc":
if (preg_match("#Name Server:#", $ligne)) {
$found = true;
$tmp=strtolower(str_replace(chr(10), "",str_replace(chr(13),"",str_replace(" ","", str_replace("Name Server:","", $ligne)))));
if ($tmp)
$server[]=$tmp;
}
break;
case "cx":
$ligne = str_replace(chr(10), "",str_replace(chr(13),"",str_replace(" ","", $ligne)));
if ($ligne=="" && $state==1)
$state=2;
if ($state==1)
$server[]=strtolower($ligne);
if ($ligne=="Nameservers:" && $state==0) {
$state=1;
$found = true;
}
break;
case "eu":
case "be":
$ligne=preg_replace("/^ *([^ ]*) \(.*\)$/","\\1",trim($ligne));
if($found)
$tmp = trim($ligne);
if ($tmp)
$server[]=$tmp;
if ($ligne=="Nameservers:") {
$state=1;
$found=true;
}
break;
case "im":
if (preg_match('/Name Server:/', $ligne)) {
$found = true;
// weird regexp (trailing garbage after name server), but I could not make it work otherwise
$tmp = strtolower(preg_replace('/Name Server: ([^ ]+)\..$/',"\\1", $ligne));
$tmp = preg_replace('/[^-_a-z0-9\.]/', '', $tmp);
if ($tmp)
$server[]=$tmp;
}
break;
case "it":
if (preg_match("#nserver:#", $ligne)) {
$found=true;
$tmp=strtolower(preg_replace("/nserver:\s*[^ ]*\s*([^\s]*)$/","\\1", $ligne));
if ($tmp)
$server[]=$tmp;
}
break;
case "fr":
case "re":
if (preg_match("#nserver:#", $ligne)) {
$found=true;
$tmp=strtolower(preg_replace("#nserver:\s*([^\s]*)\s*.*$#","\\1", $ligne));
if ($tmp)
$server[]=$tmp;
}
break;
case "ca":
case "ws";
if (preg_match('#Name servers#', $ligne)) {
// found the server
$state = 1;
} elseif ($state) {
if (preg_match('#^[^%]#', $ligne) && $ligne = preg_replace('#[[:space:]]#', "", $ligne)) {
// first non-whitespace line is considered to be the nameservers themselves
$found = true;
$server[] = $ligne;
}
}
break;
case "coop":
if (preg_match('#Host Name:\s*([^\s]+)#', $ligne, $matches)) {
$found = true;
$server[] = $matches[1];
}
} // switch
} // while
fclose($fp);
} else {
$err->raise("dom",_("The Whois database is unavailable, please try again later"));
return false;
}
if ($found) {
return $server;
} else {
$err->raise("dom",_("The domain cannot be found in the Whois database"));
return false;
}
} // whois

Field Documentation

$action_delete = "2"

Definition at line 79 of file m_dom.php.

$action_insert = "0"

Definition at line 77 of file m_dom.php.

$action_update = "1"

Definition at line 78 of file m_dom.php.

$dns

$dns : Liste des dns trouvés par la fonction whois private

Definition at line 44 of file m_dom.php.

Referenced by add_domain(), and edit_domain().

$domains

$domains : Cache des domaines du membre private

Definition at line 39 of file m_dom.php.

Referenced by enum_domains().

$fic_lock_cron = "/var/run/alternc/cron.lock"

Système de verrouillage du cron Ce fichier permet de verrouiller le cron en attendant la validation du domaine par update_domains.sh private.

Definition at line 57 of file m_dom.php.

$islocked = false

Le cron a-t-il été bloqué ? Il faut appeler les fonctions privées lock et unlock entre les appels aux domaines.

private

Definition at line 65 of file m_dom.php.

$tld_no_check_at_all = "1"

Definition at line 81 of file m_dom.php.

$type_cname = "CNAME"

Definition at line 72 of file m_dom.php.

$type_defmx = "DEFMX"

Definition at line 74 of file m_dom.php.

$type_defmx2 = "DEFMX2"

Definition at line 75 of file m_dom.php.

$type_ip = "IP"

Definition at line 69 of file m_dom.php.

$type_ipv6 = "IPV6"

Definition at line 71 of file m_dom.php.

$type_local = "VHOST"

Definition at line 67 of file m_dom.php.

$type_txt = "TXT"

Definition at line 73 of file m_dom.php.

$type_url = "URL"

Definition at line 68 of file m_dom.php.

$type_webmail = "WEBMAIL"

Definition at line 70 of file m_dom.php.

$webmail

Flag : a-t-on trouvé un sous-domaine Webmail pour ce domaine ? private.

Definition at line 49 of file m_dom.php.

The documentation for this class was generated from the following file: