kienan
/
AlternC
mirror of https://github.com/kienanstewart/AlternC.git
1
0
Fork 0
Code Issues Releases Wiki Activity

Some cosmetics

This commit is contained in:
Alan Garcia 2014-03-28 09:14:53 +00:00
parent aa9acaa165
commit 62981ecfa5
4 changed files with 66 additions and 64 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

122
bureau/class/m_dom.php
View File

@ -27,10 +27,10 @@
define('SLAVE_FLAG', "/var/run/alternc/refresh_slave"); define('SLAVE_FLAG', "/var/run/alternc/refresh_slave");
/** /**
* Classe de gestion des domaines de l'h<EFBFBD>berg<EFBFBD>. * Classe de gestion des domaines de l'hébergé.
* *
* Cette classe permet de g<EFBFBD>rer les domaines / sous-domaines, redirections * Cette classe permet de gérer les domaines / sous-domaines, redirections
* dns et mx des domaines d'un membre h<EFBFBD>berg<EFBFBD>.<br /> * dns et mx des domaines d'un membre hébergé.<br />
*/ */
class m_dom { class m_dom {
@ -39,18 +39,18 @@ class m_dom {
*/ */
var $domains; var $domains;
/** $dns : Liste des dns trouv<EFBFBD>s par la fonction whois /** $dns : Liste des dns trouvés par la fonction whois
* @access private * @access private
*/ */
var $dns; var $dns;
/** Flag : a-t-on trouv<EFBFBD> un sous-domaine Webmail pour ce domaine ? /** Flag : a-t-on trouvé un sous-domaine Webmail pour ce domaine ?
* @access private * @access private
*/ */
var $webmail; var $webmail;
/** /**
* Syst<EFBFBD>me de verrouillage du cron * Systéme de verrouillage du cron
* Ce fichier permet de verrouiller le cron en attendant la validation * Ce fichier permet de verrouiller le cron en attendant la validation
* du domaine par update_domains.sh * du domaine par update_domains.sh
* @access private * @access private
@ -58,8 +58,8 @@ class m_dom {
var $fic_lock_cron = "/var/run/alternc/cron.lock"; var $fic_lock_cron = "/var/run/alternc/cron.lock";
/** /**
* Le cron a-t-il <EFBFBD>t<EFBFBD> bloqu<EFBFBD> ? * Le cron a-t-il été bloqué ?
* Il faut appeler les fonctions priv<EFBFBD>es lock et unlock entre les * Il faut appeler les fonctions privées lock et unlock entre les
* appels aux domaines. * appels aux domaines.
* @access private * @access private
*/ */
@ -145,8 +145,8 @@ class m_dom {
/** /**
* Retourne un tableau contenant les types de domaines * Retourne un tableau contenant les types de domaines
* *
* @return array retourne un tableau index<EFBFBD> contenant la liste types de domaines * @return array retourne un tableau indexé contenant la liste types de domaines
* authoris<EFBFBD>. Retourne FALSE si une erreur s'est produite. * authorisé. Retourne FALSE si une erreur s'est produite.
*/ */
function domains_type_lst() { function domains_type_lst() {
global $db, $err; global $db, $err;
@ -575,10 +575,10 @@ class m_dom {
/** /**
* Retourne un tableau contenant les domaines d'un membre. * Retourne un tableau contenant les domaines d'un membre.
* Par d<EFBFBD>faut le membre connect<EFBFBD> * Par défaut le membre connecté
* *
* @return array retourne un tableau index<EFBFBD> contenant la liste des * @return array retourne un tableau indexé contenant la liste des
* domaines h<EFBFBD>berg<EFBFBD>s sur le compte courant. Retourne FALSE si une * domaines hébergés sur le compte courant. Retourne FALSE si une
* erreur s'est produite. * erreur s'est produite.
*/ */
function enum_domains($uid = -1) { function enum_domains($uid = -1) {
@ -615,11 +615,11 @@ class m_dom {
* Efface un domaine du membre courant, et tous ses sous-domaines * Efface un domaine du membre courant, et tous ses sous-domaines
* *
* Cette fonction efface un domaine et tous ses sous-domaines, ainsi que * Cette fonction efface un domaine et tous ses sous-domaines, ainsi que
* les autres services attach<EFBFBD>s <EFBFBD> celui-ci. Elle appelle donc les autres * les autres services attachés é celui-ci. Elle appelle donc les autres
* classe. Chaque classe peut d<EFBFBD>clarer une fonction del_dom qui sera * classe. Chaque classe peut déclarer une fonction del_dom qui sera
* appell<EFBFBD>e lors de la destruction d'un domaine. * appellée lors de la destruction d'un domaine.
* *
* @param string $dom nom de domaine <EFBFBD> effacer * @param string $dom nom de domaine é effacer
* @return boolean Retourne FALSE si une erreur s'est produite, TRUE sinon. * @return boolean Retourne FALSE si une erreur s'est produite, TRUE sinon.
*/ */
function del_domain($dom) { function del_domain($dom) {
@ -657,21 +657,21 @@ class m_dom {
/** /**
* Installe un domaine sur le compte courant. * Installe un domaine sur le compte courant.
* *
* <p>Si le domaine existe d<EFBFBD>j<EFBFBD> ou est interdit, ou est celui du serveur, * <p>Si le domaine existe déjé ou est interdit, ou est celui du serveur,
* l'installation est refus<EFBFBD>e. Si l'h<EFBFBD>bergement DNS est demand<EFBFBD>, la fonction * l'installation est refusée. Si l'hébergement DNS est demandé, la fonction
* checkhostallow v<EFBFBD>rifiera que le domaine peut <EFBFBD>tre install<EFBFBD> conform<EFBFBD>ment * checkhostallow vérifiera que le domaine peut étre installé conformément
* aux demandes des super-admin. * aux demandes des super-admin.
* Si le dns n'est pas demand<EFBFBD>, le domaine peut <20>tre install<6C> s'il est en * 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 * seconde main d'un tld (exemple : test.eu.org ou test.com, mais pas
* toto.test.org ou test.test.asso.fr)</p> * toto.test.org ou test.test.asso.fr)</p>
* <p>Chaque classe peut d<EFBFBD>finir une fonction add_dom($dom) qui sera * <p>Chaque classe peut définir une fonction add_dom($dom) qui sera
* appell<EFBFBD>e lors de l'installation d'un nouveau domaine.</p> * appellée lors de l'installation d'un nouveau domaine.</p>
* *
* @param string $dom nom fqdn du domaine <EFBFBD> installer * @param string $dom nom fqdn du domaine é installer
* @param boolean $dns 1 ou 0 pour h<EFBFBD>berger le DNS du domaine ou pas. * @param boolean $dns 1 ou 0 pour héberger le DNS du domaine ou pas.
* @param boolean $noerase 1 ou 0 pour rendre le domaine inamovible ou non * @param boolean $noerase 1 ou 0 pour rendre le domaine inamovible ou non
* @param boolean $force 1 ou 0, si 1, n'effectue pas les tests de DNS. * @param boolean $force 1 ou 0, si 1, n'effectue pas les tests de DNS.
* force ne devrait <EFBFBD>tre utilis<EFBFBD> que par le super-admin. * force ne devrait étre utilisé que par le super-admin.
$ @return boolean Retourne FALSE si une erreur s'est produite, TRUE sinon. $ @return boolean Retourne FALSE si une erreur s'est produite, TRUE sinon.
*/ */
function add_domain($domain, $dns, $noerase = false, $force = false, $isslave = false, $slavedom = "") { function add_domain($domain, $dns, $noerase = false, $force = false, $isslave = false, $slavedom = "") {
@ -690,7 +690,7 @@ class m_dom {
$err->raise("dom", _("The domain name is syntaxically incorrect")); $err->raise("dom", _("The domain name is syntaxically incorrect"));
return false; return false;
} }
// Interdit les domaines cl<EFBFBD>s (table forbidden_domains) sauf en cas FORCE // Interdit les domaines clés (table forbidden_domains) sauf en cas FORCE
$db->query("SELECT domain FROM forbidden_domains WHERE domain='$domain'"); $db->query("SELECT domain FROM forbidden_domains WHERE domain='$domain'");
if ($db->num_rows() && !$force) { if ($db->num_rows() && !$force) {
$err->raise("dom", _("The requested domain is forbidden in this server, please contact the administrator")); $err->raise("dom", _("The requested domain is forbidden in this server, please contact the administrator"));
@ -890,17 +890,17 @@ class m_dom {
/* ----------------------------------------------------------------- */ /* ----------------------------------------------------------------- */
/** /**
* Retourne les entr<EFBFBD>es DNS du domaine $domain issues du WHOIS. * Retourne les entrées DNS du domaine $domain issues du WHOIS.
* *
* Cette fonction effectue un appel WHOIS($domain) sur Internet, * Cette fonction effectue un appel WHOIS($domain) sur Internet,
* et extrait du whois les serveurs DNS du domaine demand<EFBFBD>. En fonction * et extrait du whois les serveurs DNS du domaine demandé. En fonction
* du TLD, on sait (ou pas) faire le whois correspondant. * du TLD, on sait (ou pas) faire le whois correspondant.
* Actuellement, les tld suivants sont support<EFBFBD>s : * Actuellement, les tld suivants sont supportés :
* .com .net .org .be .info .ca .cx .fr .biz .name * .com .net .org .be .info .ca .cx .fr .biz .name
* *
* @param string $domain Domaine fqdn dont on souhaite les serveurs DNS * @param string $domain Domaine fqdn dont on souhaite les serveurs DNS
* @return array Retourne un tableau index<EFBFBD> avec les NOMS fqdn des dns * @return array Retourne un tableau indexé avec les NOMS fqdn des dns
* du domaine demand<EFBFBD>. Retourne FALSE si une erreur s'est produite. * du domaine demandé. Retourne FALSE si une erreur s'est produite.
* *
*/ */
function whois($domain) { function whois($domain) {
@ -1052,16 +1052,16 @@ class m_dom {
/* ----------------------------------------------------------------- */ /* ----------------------------------------------------------------- */
/** /**
* v<EFBFBD>rifie la presence d'un champs mx valide sur un serveur DNS * vérifie la presence d'un champs mx valide sur un serveur DNS
* $domaine est le domaine dont on veux v<EFBFBD>ririfer les MX * $domaine est le domaine dont on veux véririfer les MX
* $ref_domaine est le domaine avec lequel on veux comparer les MX * $ref_domaine est le domaine avec lequel on veux comparer les MX
* si $ref_domaine == false, on prend les MX par default * si $ref_domaine == '', on prend les MX par default
* *
*/ */
function checkmx($domaine, $ref_domain = false) { function checkmx($domaine, $ref_domain = '') {
global $L_DEFAULT_MX, $L_DEFAULT_SECONDARY_MX; global $L_DEFAULT_MX, $L_DEFAULT_SECONDARY_MX;
if ($ref_domain) { if (!empty($ref_domain)) {
getmxrr($ref_domain, $ref_mx); getmxrr($ref_domain, $ref_mx);
} else { } else {
$ref_mx = array($L_DEFAULT_MX, $L_DEFAULT_SECONDARY_MX); $ref_mx = array($L_DEFAULT_MX, $L_DEFAULT_SECONDARY_MX);
@ -1072,9 +1072,9 @@ class m_dom {
return 3; return 3;
} }
//r<EFBFBD>cup<EFBFBD>re les champs mx //récupére les champs mx
if (!getmxrr($domaine, $mxhosts)) { if (!getmxrr($domaine, $mxhosts)) {
//aucun h<EFBFBD>te mx sp<73>cifi<66> //aucun héte mx spécifié
return 1; return 1;
} }
@ -1181,7 +1181,7 @@ class m_dom {
* *
* @param integer sub_domain_id id du subdomain * @param integer sub_domain_id id du subdomain
* @return arrray Retourne un tableau associatif contenant les * @return arrray Retourne un tableau associatif contenant les
* informations du sous-domaine demand<EFBFBD>.<pre> * informations du sous-domaine demandé.<pre>
* $r["name"]= nom du sous-domaine (NON-complet) * $r["name"]= nom du sous-domaine (NON-complet)
* $r["dest"]= Destination (url, ip, local ...) * $r["dest"]= Destination (url, ip, local ...)
* </pre> * </pre>
@ -1327,17 +1327,17 @@ class m_dom {
/* ----------------------------------------------------------------- */ /* ----------------------------------------------------------------- */
/** /**
* Modifier les information du sous-domaine demand<EFBFBD>. * Modifier les information du sous-domaine demandé.
* *
* <b>Note</b> : si le sous-domaine $sub.$dom n'existe pas, il est cr<EFBFBD><EFBFBD>.<br /> * <b>Note</b> : si le sous-domaine $sub.$dom n'existe pas, il est créé.<br />
* <b>Note : TODO</b> : v<EFBFBD>rification de concordance de $dest<br /> * <b>Note : TODO</b> : vérification de concordance de $dest<br />
* *
* @param string $dom Domaine dont on souhaite modifier/ajouter un sous domaine * @param string $dom Domaine dont on souhaite modifier/ajouter un sous domaine
* @param string $subk Sous domaine <EFBFBD> modifier / cr<EFBFBD>er * @param string $subk Sous domaine é modifier / créer
* @param integer $type Type de sous-domaine (local, ip, url ...) * @param integer $type Type de sous-domaine (local, ip, url ...)
* @param string $action Action : vaut "add" ou "edit" selon que l'on * @param string $action Action : vaut "add" ou "edit" selon que l'on
* Cr<EFBFBD>e (add) ou Modifie (edit) le sous-domaine * Crée (add) ou Modifie (edit) le sous-domaine
* @param string $dest Destination du sous-domaine, d<EFBFBD>pend de la valeur * @param string $dest Destination du sous-domaine, dépend de la valeur
* de $type (url, ip, dossier...) * de $type (url, ip, dossier...)
* @return boolean Retourne FALSE si une erreur s'est produite, TRUE sinon. * @return boolean Retourne FALSE si une erreur s'est produite, TRUE sinon.
*/ */
@ -1363,12 +1363,12 @@ class m_dom {
} }
if (!$this->check_type_value($type, $dest)) { 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<EFBFBD> //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")); #$err->raise("dom",_("Invalid domain type selected, please check"));
return false; return false;
} }
// On a <EFBFBD>pur<EFBFBD> $dir des probl<62>mes eventuels ... On est en DESSOUS du dossier de l'utilisateur. // On a épuré $dir des problémes eventuels ... On est en DESSOUS du dossier de l'utilisateur.
if ($t = checkfqdn($dom)) { if ($t = checkfqdn($dom)) {
$err->raise("dom", _("The domain name is syntaxically incorrect")); $err->raise("dom", _("The domain name is syntaxically incorrect"));
return false; return false;
@ -1426,7 +1426,7 @@ class m_dom {
/* ----------------------------------------------------------------- */ /* ----------------------------------------------------------------- */
/** /**
* Supprime le sous-domaine demand<EFBFBD> * Supprime le sous-domaine demandé
* *
* @param string $dom Domaine dont on souhaite supprimer un sous-domaine * @param string $dom Domaine dont on souhaite supprimer un sous-domaine
* @param string $sub Sous-domaine que l'on souhaite supprimer * @param string $sub Sous-domaine que l'on souhaite supprimer
@ -1468,11 +1468,11 @@ class m_dom {
/* ----------------------------------------------------------------- */ /* ----------------------------------------------------------------- */
/** /**
* Modifie les information du domaine pr<EFBFBD>cis<EFBFBD>. * Modifie les information du domaine précisé.
* *
* @param string $dom Domaine du compte courant que l'on souhaite modifier * @param string $dom Domaine du compte courant que l'on souhaite modifier
* @param integer $dns Vaut 1 ou 0 pour h<EFBFBD>berger ou pas le DNS du domaine * @param boolean $dns Vaut 1 ou 0 pour héberger ou pas le DNS du domaine
* @param integer $gesmx H<EFBFBD>berge-t-on le emails du domaines sur ce serveur ? * @param boolean $gesmx Héberge-t-on le emails du domaines sur ce serveur ?
* @param boolean $force Faut-il passer les checks DNS ou MX ? (admin only) * @param boolean $force Faut-il passer les checks DNS ou MX ? (admin only)
* @return boolean appelle $mail->add_dom ou $ma->del_dom si besoin, en * @return boolean appelle $mail->add_dom ou $ma->del_dom si besoin, en
* fonction du champs MX. Retourne FALSE si une erreur s'est produite, * fonction du champs MX. Retourne FALSE si une erreur s'est produite,
@ -1487,7 +1487,7 @@ class m_dom {
$err->raise("dom", _("--- Program error --- No lock on the domains!")); $err->raise("dom", _("--- Program error --- No lock on the domains!"));
return false; return false;
} }
if ($dns == 1 && !$force) { if ($dns == true && !$force) {
$this->dns = $this->whois($dom); $this->dns = $this->whois($dom);
$v = checkhostallow($dom, $this->dns); $v = checkhostallow($dom, $this->dns);
if ($v == -1) { if ($v == -1) {
@ -1521,13 +1521,13 @@ class m_dom {
} }
if ($dns != "1") if ($dns != "1")
$dns = "0"; $dns = "0";
// On v<EFBFBD>rifie que des modifications ont bien eu lieu :) // On vérifie que des modifications ont bien eu lieu :)
if ($r["dns"] == $dns && $r["mail"] == $gesmx && $r["zonettl"] == $ttl) { if ($r["dns"] == $dns && $r["mail"] == $gesmx && $r["zonettl"] == $ttl) {
$err->raise("dom", _("No change has been requested...")); $err->raise("dom", _("No change has been requested..."));
return true; return true;
} }
//si gestion mx uniquement, v<EFBFBD>rification du dns externe //si gestion mx uniquement, vérification du dns externe
if ($dns == "0" && $gesmx == "1" && !$force) { if ($dns == "0" && $gesmx == "1" && !$force) {
$vmx = $this->checkmx($dom); $vmx = $this->checkmx($dom);
if ($vmx == 1) { if ($vmx == 1) {
@ -1535,7 +1535,7 @@ class m_dom {
} }
if ($vmx == 2) { if ($vmx == 2) {
// Serveur non sp<EFBFBD>cifi<EFBFBD> parmi les champx mx // 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")); $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"));
} }
} }
@ -1544,12 +1544,12 @@ class m_dom {
$hooks->invoke("hook_dom_add_mx_domain", array($r["id"])); $hooks->invoke("hook_dom_add_mx_domain", array($r["id"]));
} }
if (!$gesmx && $r["mail"]) { // on a dissoci<EFBFBD> le MX : on d<>truit donc l'entree dans LDAP 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"])); $hooks->invoke("hook_dom_del_mx_domain", array($r["id"]));
} }
$db->query("UPDATE domaines SET gesdns='$dns', gesmx='$gesmx', zonettl='$ttl' WHERE domaine='$dom'"); $db->query("UPDATE domaines SET gesdns='$dns', gesmx='$gesmx', zonettl='$ttl' WHERE domaine='$dom'");
$dom->set_dns_action($dom, 'UPDATE'); $this->set_dns_action($dom, 'UPDATE');
return true; return true;
} }
@ -1662,8 +1662,9 @@ class m_dom {
global $db, $err; global $db, $err;
$uid = intval($uid); $uid = intval($uid);
$res = array(); $res = array();
$sql = "";
if ($uid != -1) { if ($uid != -1) {
$sql = " AND compte='$uid' "; $sql .= " AND compte='$uid' ";
} }
$db->query("SELECT domaine FROM domaines WHERE gesdns=1 $sql ORDER BY domaine"); $db->query("SELECT domaine FROM domaines WHERE gesdns=1 $sql ORDER BY domaine");
while ($db->next_record()) { while ($db->next_record()) {
@ -1891,8 +1892,9 @@ class m_dom {
global $db, $err; global $db, $err;
$err->log("dom", "export"); $err->log("dom", "export");
$this->enum_domains(); $this->enum_domains();
$str="";
foreach ($this->domains as $d) { foreach ($this->domains as $d) {
$str = " <domaines>\n"; $str.= " <domaines>\n";
$str.=" <nom>" . $d . "</nom>\n"; $str.=" <nom>" . $d . "</nom>\n";
$this->lock(); $this->lock();
$s = $this->get_domain_all($d); $s = $this->get_domain_all($d);

4
bureau/class/m_ftp.php
View File

@ -129,7 +129,7 @@ class m_ftp {
* $a["id"]= ID du compte ftp * $a["id"]= ID du compte ftp
* $a["login"]= Nom de login du compte * $a["login"]= Nom de login du compte
* $a["dir"]= Dossier relatif à la racine du compte de l'utilisateur * $a["dir"]= Dossier relatif à la racine du compte de l'utilisateur
* @return array Retourne le tableau des comptes ou FALSE si une erreur s'est produite. * @return array Retourne le tableau des comptes
*/ */
function get_list() { function get_list() {
global $db,$err,$cuid, $bro; global $db,$err,$cuid, $bro;
@ -149,7 +149,7 @@ class m_ftp {
return $r; return $r;
} else { } else {
$err->raise("ftp",_("No FTP account found")); $err->raise("ftp",_("No FTP account found"));
return false; return array();
} }
} }

2
bureau/class/m_mail.php
View File

@ -305,7 +305,7 @@ ORDER BY
WHERE $where AND d.id=a.domain_id $limit ;"); WHERE $where AND d.id=a.domain_id $limit ;");
if (! $db->next_record()) { if (! $db->next_record()) {
$err->raise("mail",_("No email found for this query")); $err->raise("mail",_("No email found for this query"));
return false; return array();
} }
$res=array(); $res=array();
do { do {

2
src/do_actions.php
View File

@ -228,7 +228,7 @@ while ($rr=$action->get_action()){
// We finished the action, notify the DB. // We finished the action, notify the DB.
d("Finishing... return value is : $return\n"); d("Finishing... return value is : $return\n");
if(!$action->finish($r["id"],addslashes($return))){ if(!$action->finish($r["id"],addslashes($return))){
$error_raise.="Cannot finish the action! Error while inserting the error value in the DB for action n°".$r["id"]." : action '".$c["type"]."'\nReturn value: ".addslashes($return)."\n"; $error_raise.="Cannot finish the action! Error while inserting the error value in the DB for action n°".$r["id"]." : action '".$r["type"]."'\nReturn value: ".addslashes($return)."\n";
break; // Else we go into an infinite loop... AAAAHHHHHH break; // Else we go into an infinite loop... AAAAHHHHHH
} }
} }