renverser les commits 1799 et 1800, qui sont mal documentes et bourres de changements sans liens avec le commitlog (e.g. whitespace)
This commit is contained in:
parent
bda5165039
commit
dcee899097
|
@ -72,7 +72,7 @@ class m_admin {
|
||||||
/* ----------------------------------------------------------------- */
|
/* ----------------------------------------------------------------- */
|
||||||
/**
|
/**
|
||||||
* Returns the known information about a hosted account
|
* Returns the known information about a hosted account
|
||||||
*
|
*
|
||||||
* Returns all what we know about an account (contents of the tables
|
* Returns all what we know about an account (contents of the tables
|
||||||
* <code>membres</code> et <code>local</code>)
|
* <code>membres</code> et <code>local</code>)
|
||||||
* Ckecks if the account is super-admin
|
* Ckecks if the account is super-admin
|
||||||
|
@ -81,12 +81,12 @@ class m_admin {
|
||||||
* table <code>membres</code> and <code>local</code> of the corresponding account.
|
* table <code>membres</code> and <code>local</code> of the corresponding account.
|
||||||
* Returns FALSE if an error occurs.
|
* Returns FALSE if an error occurs.
|
||||||
*
|
*
|
||||||
* Retourne tout ce que l'on sait sur un membre (contenu des tables <code>membres et local</code>)
|
* Retourne tout ce que l'on sait sur un membre (contenu des tables <code>membres et local</code>)
|
||||||
* vérifie que le compte appelant est super-admin
|
* vérifie que le compte appelant est super-admin
|
||||||
* @param integer $uid Numéro de l'utilisateur dont on veut les informations.
|
* @param integer $uid Numéro de l'utilisateur dont on veut les informations.
|
||||||
* @return array Retourne un tableau associatif contenant l'ensemble des champs des tables 'membres'
|
* @return array Retourne un tableau associatif contenant l'ensemble des champs des tables 'membres'
|
||||||
* et 'local' pour le membre demandé. Retourne FALSE si une erreur s'est produite.
|
* et 'local' pour le membre demandé. Retourne FALSE si une erreur s'est produite.
|
||||||
*
|
*
|
||||||
*/
|
*/
|
||||||
function get($uid) {
|
function get($uid) {
|
||||||
global $err,$db;
|
global $err,$db;
|
||||||
|
@ -115,7 +115,7 @@ class m_admin {
|
||||||
}
|
}
|
||||||
|
|
||||||
/* ----------------------------------------------------------------- */
|
/* ----------------------------------------------------------------- */
|
||||||
/**
|
/**
|
||||||
* @return TRUE if there's only ONE admin account
|
* @return TRUE if there's only ONE admin account
|
||||||
* Retourne true s'il n'existe qu'un seul compte administrateur
|
* Retourne true s'il n'existe qu'un seul compte administrateur
|
||||||
*/
|
*/
|
||||||
|
@ -130,7 +130,7 @@ class m_admin {
|
||||||
/**
|
/**
|
||||||
* Returns the list of the hosted accounts
|
* Returns the list of the hosted accounts
|
||||||
* Retourne la liste des membres hébergés
|
* Retourne la liste des membres hébergés
|
||||||
*
|
*
|
||||||
* Returns all what we know about ALL the accounts (contents of the tables
|
* Returns all what we know about ALL the accounts (contents of the tables
|
||||||
* <code>membres</code> et <code>local</code>)
|
* <code>membres</code> et <code>local</code>)
|
||||||
* Check for super-admin accounts
|
* Check for super-admin accounts
|
||||||
|
@ -141,10 +141,10 @@ class m_admin {
|
||||||
*
|
*
|
||||||
* Retourne tout ce que l'on sait sur LES membres (contenu de membres et local)
|
* Retourne tout ce que l'on sait sur LES membres (contenu de membres et local)
|
||||||
* vérifie que le compte appelant est super-admin
|
* vérifie que le compte appelant est super-admin
|
||||||
* @return array Retourne un tableau indexé de tableaux associatifs contenant l'ensemble des
|
* @return array Retourne un tableau indexé de tableaux associatifs contenant l'ensemble des
|
||||||
* champs des tables 'membres' et 'local' pour les membre. Retourne FALSE si une erreur s'est
|
* champs des tables 'membres' et 'local' pour les membre. Retourne FALSE si une erreur s'est
|
||||||
* produite.
|
* produite.
|
||||||
*
|
*
|
||||||
*/
|
*/
|
||||||
function get_list($all=0) {
|
function get_list($all=0) {
|
||||||
// PATCHBEN pour ne voir que les comptes que l'on a créé (sauf admin)
|
// PATCHBEN pour ne voir que les comptes que l'on a créé (sauf admin)
|
||||||
|
@ -195,7 +195,7 @@ class m_admin {
|
||||||
/* ----------------------------------------------------------------- */
|
/* ----------------------------------------------------------------- */
|
||||||
/**
|
/**
|
||||||
* Creates a new hosted account
|
* Creates a new hosted account
|
||||||
*
|
*
|
||||||
* Creates a new hosted account (in the tables <code>membres</code>
|
* Creates a new hosted account (in the tables <code>membres</code>
|
||||||
* and <code>local</code>). Prevents any manipulation of the account if
|
* and <code>local</code>). Prevents any manipulation of the account if
|
||||||
* the account $mid is not super-admin.
|
* the account $mid is not super-admin.
|
||||||
|
@ -211,9 +211,9 @@ class m_admin {
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
* Crée un nouveau membre hébergé
|
* Crée un nouveau membre hébergé
|
||||||
* Création d'un nouveau membre (dans membres et local) Refuse l'utilisation de l'objet
|
* Création d'un nouveau membre (dans membres et local) Refuse l'utilisation de l'objet
|
||||||
* si le compte $mid n'est pas super-admin
|
* si le compte $mid n'est pas super-admin
|
||||||
*
|
*
|
||||||
* @param $login Nom d'utilisateur, de la forme [a-z][a-z0-9]*
|
* @param $login Nom d'utilisateur, de la forme [a-z][a-z0-9]*
|
||||||
* @param $pass Mot de passe, maxi 64 caractères
|
* @param $pass Mot de passe, maxi 64 caractères
|
||||||
* @param $nom Nom de la personne ou structure
|
* @param $nom Nom de la personne ou structure
|
||||||
|
@ -249,7 +249,7 @@ class m_admin {
|
||||||
$err->raise("admin",13);
|
$err->raise("admin",13);
|
||||||
return false;
|
return false;
|
||||||
}
|
}
|
||||||
// Il ne peut pas être égal au login ou au nom de base systeme !
|
// Il ne peut pas être égal au login ou au nom de base systeme !
|
||||||
if ($login==$L_MYSQL_DATABASE || $login==$L_MYSQL_LOGIN || $login=="mysql" || $login=="root") {
|
if ($login==$L_MYSQL_DATABASE || $login==$L_MYSQL_LOGIN || $login=="mysql" || $login=="root") {
|
||||||
$err->raise("admin",10);
|
$err->raise("admin",10);
|
||||||
return false;
|
return false;
|
||||||
|
@ -291,7 +291,7 @@ class m_admin {
|
||||||
/* ----------------------------------------------------------------- */
|
/* ----------------------------------------------------------------- */
|
||||||
/**
|
/**
|
||||||
* Modifies an account
|
* Modifies an account
|
||||||
*
|
*
|
||||||
* Modifies an account (in the tables <code>membres</code>
|
* Modifies an account (in the tables <code>membres</code>
|
||||||
* and <code>local</code>). Prevents any manipulation of the account if
|
* and <code>local</code>). Prevents any manipulation of the account if
|
||||||
* the account $mid is not super-admin.
|
* the account $mid is not super-admin.
|
||||||
|
@ -320,7 +320,7 @@ class m_admin {
|
||||||
* @param $type string Nouveau type de compte
|
* @param $type string Nouveau type de compte
|
||||||
* @param $duration integer Durée du compte en mois
|
* @param $duration integer Durée du compte en mois
|
||||||
* @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 update_mem($uid, $mail, $nom, $prenom, $pass, $enabled, $canpass, $type='default', $duration=0) {
|
function update_mem($uid, $mail, $nom, $prenom, $pass, $enabled, $canpass, $type='default', $duration=0) {
|
||||||
global $err,$db;
|
global $err,$db;
|
||||||
|
@ -333,7 +333,7 @@ class m_admin {
|
||||||
}
|
}
|
||||||
$db=new DB_System();
|
$db=new DB_System();
|
||||||
if ($pass) {
|
if ($pass) {
|
||||||
// on modifie aussi le password :
|
// on modifie aussi le password :
|
||||||
$pass=_md5cr($pass);
|
$pass=_md5cr($pass);
|
||||||
$ssq=" ,pass='$pass' ";
|
$ssq=" ,pass='$pass' ";
|
||||||
} else {
|
} else {
|
||||||
|
@ -419,7 +419,7 @@ class m_admin {
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
* Efface un membre hébergé
|
* Efface un membre hébergé
|
||||||
*
|
*
|
||||||
* Supprime le membre spécifié. Refuse l'utilisation de l'objet si le compte $mid n'est pas super-admin
|
* Supprime le membre spécifié. Refuse l'utilisation de l'objet si le compte $mid n'est pas super-admin
|
||||||
* @param $uid Numéro du membre à supprimer.
|
* @param $uid Numéro du membre à supprimer.
|
||||||
* @return Retourne FALSE si une erreur s'est produite, TRUE sinon.
|
* @return Retourne FALSE si une erreur s'est produite, TRUE sinon.
|
||||||
|
@ -435,14 +435,14 @@ class m_admin {
|
||||||
}
|
}
|
||||||
$db=new DB_System();
|
$db=new DB_System();
|
||||||
$tt=$this->get($uid);
|
$tt=$this->get($uid);
|
||||||
|
|
||||||
// On devient l'utilisateur :
|
// On devient l'utilisateur :
|
||||||
$mem->su($uid);
|
$mem->su($uid);
|
||||||
|
|
||||||
// WE MUST call m_dom before all others because of conflicts ...
|
// WE MUST call m_dom before all others because of conflicts ...
|
||||||
$dom->alternc_del_member();
|
$dom->alternc_del_member();
|
||||||
|
|
||||||
// Send the event to the other classes :
|
// Send the event to the other classes :
|
||||||
foreach($classes as $c) {
|
foreach($classes as $c) {
|
||||||
if (method_exists($GLOBALS[$c],"alternc_del_member")) {
|
if (method_exists($GLOBALS[$c],"alternc_del_member")) {
|
||||||
$GLOBALS[$c]->alternc_del_member();
|
$GLOBALS[$c]->alternc_del_member();
|
||||||
|
@ -587,7 +587,7 @@ class m_admin {
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
/* ----------------------------------------------------------------- */
|
/* ----------------------------------------------------------------- */
|
||||||
/**
|
/**
|
||||||
|
@ -610,7 +610,7 @@ class m_admin {
|
||||||
if (!$db->next_record()) {
|
if (!$db->next_record()) {
|
||||||
$err->raise("admin",2);
|
$err->raise("admin",2);
|
||||||
return false;
|
return false;
|
||||||
}
|
}
|
||||||
if ($db->Record["su"]!=0) {
|
if ($db->Record["su"]!=0) {
|
||||||
$err->raise("admin",8);
|
$err->raise("admin",8);
|
||||||
return false;
|
return false;
|
||||||
|
@ -631,7 +631,7 @@ class m_admin {
|
||||||
* Transforme un membre Administrateur en membre Normal
|
* Transforme un membre Administrateur en membre Normal
|
||||||
* @param integer $uid Numéro du compte à transformer
|
* @param integer $uid Numéro du compte à transformer
|
||||||
* @return boolean Retourne FALSE si une erreur s'est produite.
|
* @return boolean Retourne FALSE si une erreur s'est produite.
|
||||||
*
|
*
|
||||||
*/
|
*/
|
||||||
function su2normal($uid) {
|
function su2normal($uid) {
|
||||||
global $err,$db;
|
global $err,$db;
|
||||||
|
@ -658,25 +658,25 @@ class m_admin {
|
||||||
* containing the list of the TLDs authorized to be installed on the
|
* containing the list of the TLDs authorized to be installed on the
|
||||||
* server with the instructions to validate the installation of a
|
* server with the instructions to validate the installation of a
|
||||||
* domain for each TLD (if necessary).
|
* domain for each TLD (if necessary).
|
||||||
*
|
*
|
||||||
* @return array An associative array like $r["tld"], $r["mode"] where tld
|
* @return array An associative array like $r["tld"], $r["mode"] where tld
|
||||||
* is the tld and mode is the authorized mode.
|
* is the tld and mode is the authorized mode.
|
||||||
|
*
|
||||||
*
|
*
|
||||||
*
|
* Liste des TLD autorisés
|
||||||
* Liste des TLD autorisés
|
*
|
||||||
*
|
* Retourne la liste des tld autorisés, ainsi que la façon dont ils sont autorisés.
|
||||||
* Retourne la liste des tld autorisés, ainsi que la façon dont ils sont autorisés.
|
* Les tld sont le dernier membre (ou parfois les 2 derniers membres) d'un domaine.
|
||||||
* Les tld sont le dernier membre (ou parfois les 2 derniers membres) d'un domaine.
|
* Par exemple "org" "com" etc. AlternC conserve une table "tld" qui contient la liste
|
||||||
* Par exemple "org" "com" etc. AlternC conserve une table "tld" qui contient la liste
|
* des TLD autorisés à être installé sur le serveur, accompagné des vérifications à effectuer
|
||||||
* des TLD autorisés à être installé sur le serveur, accompagné des vérifications à effectuer
|
* pour chaque TLD. Par exemple, on peux vérifier que les DNS du domaine pointent bien vers
|
||||||
* pour chaque TLD. Par exemple, on peux vérifier que les DNS du domaine pointent bien vers
|
|
||||||
* notre serveur, ou juste que le domaine existe etc.
|
* notre serveur, ou juste que le domaine existe etc.
|
||||||
* <p><b>Note</b> : Il faudrait pouvoir effectuer une requete DNS, et pouvoir juste vérifier les DNS
|
* <p><b>Note</b> : Il faudrait pouvoir effectuer une requete DNS, et pouvoir juste vérifier les DNS
|
||||||
* via DIG et pas seulement via Whois</p>
|
* via DIG et pas seulement via Whois</p>
|
||||||
*
|
*
|
||||||
* @return array Retourne un tableau de tableau associatif du type $r["tld"], $r["mode"].
|
* @return array Retourne un tableau de tableau associatif du type $r["tld"], $r["mode"].
|
||||||
* TLD est le tld et MODE est le mode autorisé
|
* TLD est le tld et MODE est le mode autorisé
|
||||||
*
|
*
|
||||||
*/
|
*/
|
||||||
function listtld() {
|
function listtld() {
|
||||||
global $db;
|
global $db;
|
||||||
|
@ -690,7 +690,7 @@ class m_admin {
|
||||||
/* ----------------------------------------------------------------- */
|
/* ----------------------------------------------------------------- */
|
||||||
/**
|
/**
|
||||||
* List the hosted domains on this server
|
* List the hosted domains on this server
|
||||||
*
|
*
|
||||||
* Return the list of hosted domains on this server, (an array of associative arrays)
|
* Return the list of hosted domains on this server, (an array of associative arrays)
|
||||||
* @return array $r[$i] / [domaine][member][noerase][gesdns][gesmx]
|
* @return array $r[$i] / [domaine][member][noerase][gesdns][gesmx]
|
||||||
*/
|
*/
|
||||||
|
@ -705,7 +705,7 @@ class m_admin {
|
||||||
|
|
||||||
/* ----------------------------------------------------------------- */
|
/* ----------------------------------------------------------------- */
|
||||||
/**
|
/**
|
||||||
* Lock / Unlock a domain
|
* Lock / Unlock a domain
|
||||||
*
|
*
|
||||||
* Lock (or unlock) a domain, so that the member will be (not be) able to delete it
|
* Lock (or unlock) a domain, so that the member will be (not be) able to delete it
|
||||||
* from its account
|
* from its account
|
||||||
|
@ -726,7 +726,7 @@ class m_admin {
|
||||||
|
|
||||||
/* ----------------------------------------------------------------- */
|
/* ----------------------------------------------------------------- */
|
||||||
/**
|
/**
|
||||||
* Add a new TLD to the list of the authorized TLDs
|
* Add a new TLD to the list of the authorized TLDs
|
||||||
*
|
*
|
||||||
* @param $tld string top-level domain to add (org, com...)
|
* @param $tld string top-level domain to add (org, com...)
|
||||||
* @param $mode integer number of the authorized mode (0 to 5)
|
* @param $mode integer number of the authorized mode (0 to 5)
|
||||||
|
@ -734,12 +734,12 @@ class m_admin {
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
* Ajoute un nouveau TLD autorisé à la liste des tld autorisés.
|
* Ajoute un nouveau TLD autorisé à la liste des tld autorisés.
|
||||||
*
|
*
|
||||||
* @param $tld Top-Level Domain à ajouter (org, com ...)
|
* @param $tld Top-Level Domain à ajouter (org, com ...)
|
||||||
* @param $mode Numéro du mode autorisé (0->5)
|
* @param $mode Numéro du mode autorisé (0->5)
|
||||||
* @return boolean True si le tld a bien été ajouté, False sinon.
|
* @return boolean True si le tld a bien été ajouté, False sinon.
|
||||||
*
|
*
|
||||||
*/
|
*/
|
||||||
function gettld($tld) {
|
function gettld($tld) {
|
||||||
global $db,$err;
|
global $db,$err;
|
||||||
$db->query("SELECT mode FROM tld WHERE tld='$tld';");
|
$db->query("SELECT mode FROM tld WHERE tld='$tld';");
|
||||||
|
@ -755,17 +755,17 @@ class m_admin {
|
||||||
* Prints the list of the actually authorized TLDs
|
* Prints the list of the actually authorized TLDs
|
||||||
*
|
*
|
||||||
* @param $current integer Value to select in the list
|
* @param $current integer Value to select in the list
|
||||||
*
|
*
|
||||||
* Affiche (echo) la liste déroulante des TLD actuellement autorisés.
|
* Affiche (echo) la liste déroulante des TLD actuellement autorisés.
|
||||||
*
|
*
|
||||||
* @param $current Valeur par défaut à sélectionner dans la liste
|
* @param $current Valeur par défaut à sélectionner dans la liste
|
||||||
*
|
*
|
||||||
*/
|
*/
|
||||||
function selecttldmode($current=false) {
|
function selecttldmode($current=false) {
|
||||||
for($i=0;$i<count($this->tldmode);$i++) {
|
for($i=0;$i<count($this->tldmode);$i++) {
|
||||||
echo "<option value=\"$i\"";
|
echo "<option value=\"$i\"";
|
||||||
if ($current==$i) echo " selected=\"selected\"";
|
if ($current==$i) echo " selected=\"selected\"";
|
||||||
echo ">"._($this->tldmode[$i])."</option>\n";
|
echo ">".$this->tldmode[$i]."</option>\n";
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -781,12 +781,12 @@ class m_admin {
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
* Supprime le tld indiqué de la liste des TLD autorisés à l'installation
|
* Supprime le tld indiqué de la liste des TLD autorisés à l'installation
|
||||||
*
|
*
|
||||||
* <b>Note</b> : Cela ne supprime pas les domaines utilisant ce TLD !
|
* <b>Note</b> : Cela ne supprime pas les domaines utilisant ce TLD !
|
||||||
*
|
*
|
||||||
* @param $tld TLD que l'on souhaite détruire
|
* @param $tld TLD que l'on souhaite détruire
|
||||||
* @return boolean retourne true si le TLD a bien été effacé, false sinon
|
* @return boolean retourne true si le TLD a bien été effacé, false sinon
|
||||||
*
|
*
|
||||||
*/
|
*/
|
||||||
function deltld($tld) {
|
function deltld($tld) {
|
||||||
global $db,$err;
|
global $db,$err;
|
||||||
|
@ -815,13 +815,13 @@ class m_admin {
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
* Ajoute un TLD à la liste des TLD autorisés à l'installation
|
* Ajoute un TLD à la liste des TLD autorisés à l'installation
|
||||||
*
|
*
|
||||||
* @param $tld TLD que l'on souhaite autoriser.
|
* @param $tld TLD que l'on souhaite autoriser.
|
||||||
* @param $mode Contrôles à effectuer sur ce TLD. <b>Note : </b>
|
* @param $mode Contrôles à effectuer sur ce TLD. <b>Note : </b>
|
||||||
* Si vous demandez le controle dans le Whois, assurez-vous que m_domains
|
* Si vous demandez le controle dans le Whois, assurez-vous que m_domains
|
||||||
* connaisse bien comment appeler le whois du domaine correspondant !
|
* connaisse bien comment appeler le whois du domaine correspondant !
|
||||||
* @return boolean retourne true si le TLD a bien été ajouté, false sinon
|
* @return boolean retourne true si le TLD a bien été ajouté, false sinon
|
||||||
*
|
*
|
||||||
*/
|
*/
|
||||||
function addtld($tld,$mode) {
|
function addtld($tld,$mode) {
|
||||||
global $db,$err;
|
global $db,$err;
|
||||||
|
@ -843,7 +843,7 @@ class m_admin {
|
||||||
|
|
||||||
/* ----------------------------------------------------------------- */
|
/* ----------------------------------------------------------------- */
|
||||||
/**
|
/**
|
||||||
* Modify a TLD of the list of the authorized TLDs
|
* Modify a TLD of the list of the authorized TLDs
|
||||||
*
|
*
|
||||||
* @param $tld string TLD we want to modify
|
* @param $tld string TLD we want to modify
|
||||||
* @param $mode integer Controls to make on this TLD.
|
* @param $mode integer Controls to make on this TLD.
|
||||||
|
@ -852,11 +852,11 @@ class m_admin {
|
||||||
*
|
*
|
||||||
*
|
*
|
||||||
* Modifie un TLD autorisé de la liste des tld autorisés.
|
* Modifie un TLD autorisé de la liste des tld autorisés.
|
||||||
*
|
*
|
||||||
* @param $tld Top-Level Domain à modifier (org, com ...)
|
* @param $tld Top-Level Domain à modifier (org, com ...)
|
||||||
* @param $mode Numéro du mode autorisé (0->5)
|
* @param $mode Numéro du mode autorisé (0->5)
|
||||||
* @return boolean True si le tld a bien été modifié, False sinon.
|
* @return boolean True si le tld a bien été modifié, False sinon.
|
||||||
*
|
*
|
||||||
*/
|
*/
|
||||||
function edittld($tld,$mode) {
|
function edittld($tld,$mode) {
|
||||||
global $db,$err;
|
global $db,$err;
|
||||||
|
|
|
@ -106,13 +106,13 @@ class m_mail {
|
||||||
global $err,$cuid,$db;
|
global $err,$cuid,$db;
|
||||||
$err->log("mail","enum_doms_mails",$dom);
|
$err->log("mail","enum_doms_mails",$dom);
|
||||||
if($letter == "@")
|
if($letter == "@")
|
||||||
$letter = "";
|
$letter = "";
|
||||||
else
|
else
|
||||||
$letter .= "%";
|
$letter = "%$letter";
|
||||||
$db->query("SELECT mail,pop,alias FROM mail_domain WHERE mail LIKE '".addslashes($letter)."@".addslashes($dom)."' AND uid='$cuid' AND type=0;");
|
$db->query("SELECT mail,pop,alias FROM mail_domain WHERE mail LIKE '".addslashes($letter)."@".addslashes($dom)."' AND uid='$cuid' AND type=0;");
|
||||||
$res=array(); $i=0;
|
$res=array(); $i=0;
|
||||||
while ($db->next_record()) {
|
while ($db->next_record()) {
|
||||||
if ($db->f("pop")) {
|
if ($db->f("pop")) {
|
||||||
$size=0;
|
$size=0;
|
||||||
$r=mysql_query("SELECT size FROM size_mail WHERE alias='".str_replace("@","_",$db->f("mail"))."';");
|
$r=mysql_query("SELECT size FROM size_mail WHERE alias='".str_replace("@","_",$db->f("mail"))."';");
|
||||||
list($size)=@mysql_fetch_array($r);
|
list($size)=@mysql_fetch_array($r);
|
||||||
|
@ -120,11 +120,11 @@ class m_mail {
|
||||||
} else $size=0;
|
} else $size=0;
|
||||||
if ($db->f("pop")) {
|
if ($db->f("pop")) {
|
||||||
$login=str_replace("@","_",$db->f("mail"));
|
$login=str_replace("@","_",$db->f("mail"));
|
||||||
$account=str_replace($login,"",$db->f("alias"));
|
$account=str_replace($login,"",$db->f("alias"));
|
||||||
} else {
|
} else {
|
||||||
$account=$db->f("alias");
|
$account=$db->f("alias");
|
||||||
}
|
}
|
||||||
$res[]=array("mail" => $db->f("mail"), "pop" => $db->f("pop"),
|
$res[]=array("mail" => $db->f("mail"), "pop" => $db->f("pop"),
|
||||||
"alias"=>$account,"size"=>$size);
|
"alias"=>$account,"size"=>$size);
|
||||||
$i++;
|
$i++;
|
||||||
}
|
}
|
||||||
|
@ -172,14 +172,14 @@ class m_mail {
|
||||||
global $err,$db,$cuid;
|
global $err,$db,$cuid;
|
||||||
$err->log("mail","get_mail_details",$mail);
|
$err->log("mail","get_mail_details",$mail);
|
||||||
$db->query("SELECT mail,pop,alias FROM mail_domain WHERE mail='$mail' AND uid='$cuid';");
|
$db->query("SELECT mail,pop,alias FROM mail_domain WHERE mail='$mail' AND uid='$cuid';");
|
||||||
if (!$db->next_record()) {
|
if (!$db->next_record()) {
|
||||||
$err->raise("mail",3,$mail);
|
$err->raise("mail",3,$mail);
|
||||||
return false;
|
return false;
|
||||||
}
|
}
|
||||||
$pop=$db->f("pop");
|
$pop=$db->f("pop");
|
||||||
if ($pop) {
|
if ($pop) {
|
||||||
$login=str_replace("@","_",$db->f("mail"));
|
$login=str_replace("@","_",$db->f("mail"));
|
||||||
$account=str_replace($login,"",$db->f("alias"));
|
$account=str_replace($login,"",$db->f("alias"));
|
||||||
} else {
|
} else {
|
||||||
$account=$db->f("alias");
|
$account=$db->f("alias");
|
||||||
}
|
}
|
||||||
|
@ -391,12 +391,12 @@ class m_mail {
|
||||||
if (!$db->next_record()) {
|
if (!$db->next_record()) {
|
||||||
$err->raise("mail",6,$dom);
|
$err->raise("mail",6,$dom);
|
||||||
return false;
|
return false;
|
||||||
}
|
}
|
||||||
$db->query("SELECT mail FROM mail_domain WHERE mail='".$mail."@".$dom."' AND uid='$cuid';");
|
$db->query("SELECT mail FROM mail_domain WHERE mail='".$mail."@".$dom."' AND uid='$cuid';");
|
||||||
if ($db->next_record()) {
|
if ($db->next_record()) {
|
||||||
$err->raise("mail",7,$mail."@".$dom);
|
$err->raise("mail",7,$mail."@".$dom);
|
||||||
return false;
|
return false;
|
||||||
}
|
}
|
||||||
|
|
||||||
/* QuotaCheck */
|
/* QuotaCheck */
|
||||||
if (!$quota->cancreate("mail")) {
|
if (!$quota->cancreate("mail")) {
|
||||||
|
@ -427,12 +427,12 @@ class m_mail {
|
||||||
if (!$db->next_record()) {
|
if (!$db->next_record()) {
|
||||||
$err->raise("mail",3,$dom);
|
$err->raise("mail",3,$dom);
|
||||||
return false;
|
return false;
|
||||||
}
|
}
|
||||||
/* Ok, le mail existe, on le detruit donc... */
|
/* Ok, le mail existe, on le detruit donc... */
|
||||||
$t=explode("@",$mail);
|
$t=explode("@",$mail);
|
||||||
$mdom=$t[0]; $dom=$t[1];
|
$mdom=$t[0]; $dom=$t[1];
|
||||||
$pop=$db->f("pop");
|
$pop=$db->f("pop");
|
||||||
|
|
||||||
$db->query("DELETE FROM mail_domain WHERE mail='$mail' AND uid='$cuid';");
|
$db->query("DELETE FROM mail_domain WHERE mail='$mail' AND uid='$cuid';");
|
||||||
|
|
||||||
if ($pop=="1") {
|
if ($pop=="1") {
|
||||||
|
@ -451,7 +451,7 @@ class m_mail {
|
||||||
function check_slave_account($login,$pass) {
|
function check_slave_account($login,$pass) {
|
||||||
global $db,$err;
|
global $db,$err;
|
||||||
$db->query("SELECT * FROM mxaccount WHERE login='$login' AND pass='$pass';");
|
$db->query("SELECT * FROM mxaccount WHERE login='$login' AND pass='$pass';");
|
||||||
if ($db->next_record()) {
|
if ($db->next_record()) {
|
||||||
return true;
|
return true;
|
||||||
}
|
}
|
||||||
return false;
|
return false;
|
||||||
|
@ -459,7 +459,7 @@ class m_mail {
|
||||||
|
|
||||||
/* ----------------------------------------------------------------- */
|
/* ----------------------------------------------------------------- */
|
||||||
/**
|
/**
|
||||||
* Out (echo) the complete mx-hosted domain list :
|
* Out (echo) the complete mx-hosted domain list :
|
||||||
*/
|
*/
|
||||||
function echo_domain_list() {
|
function echo_domain_list() {
|
||||||
global $db,$err;
|
global $db,$err;
|
||||||
|
@ -596,7 +596,7 @@ class m_mail {
|
||||||
if (!$db->next_record()) {
|
if (!$db->next_record()) {
|
||||||
$err->raise("mail",6,$dom);
|
$err->raise("mail",6,$dom);
|
||||||
return false;
|
return false;
|
||||||
}
|
}
|
||||||
*/
|
*/
|
||||||
|
|
||||||
/* Effacement de tous les mails de ce domaine : */
|
/* Effacement de tous les mails de ce domaine : */
|
||||||
|
@ -611,9 +611,9 @@ class m_mail {
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
/* Effacement du domaine himself */
|
/* Effacement du domaine himself */
|
||||||
$db->query("DELETE FROM mail_domain WHERE mail LIKE '%@$dom';");
|
$db->query("DELETE FROM mail_domain WHERE mail LIKE '%@$dom';");
|
||||||
$db->query("DELETE FROM mail_users WHERE alias LIKE '%@$dom' OR alias LIKE '%\\_$dom';");
|
$db->query("DELETE FROM mail_users WHERE alias LIKE '%@$dom' OR alias LIKE '%\\_$dom';");
|
||||||
$db->query("DELETE FROM mail_alias WHERE mail LIKE '%\\_$dom';");
|
$db->query("DELETE FROM mail_alias WHERE mail LIKE '%\\_$dom';");
|
||||||
$db->query("DELETE FROM mail_domain WHERE mail='$dom';");
|
$db->query("DELETE FROM mail_domain WHERE mail='$dom';");
|
||||||
return true;
|
return true;
|
||||||
}
|
}
|
||||||
|
@ -629,7 +629,7 @@ class m_mail {
|
||||||
global $err,$cuid,$db,$mem;
|
global $err,$cuid,$db,$mem;
|
||||||
$err->log("mail","alternc_add_mx_domain",$dom);
|
$err->log("mail","alternc_add_mx_domain",$dom);
|
||||||
$db->query("INSERT INTO mail_domain (mail,alias) VALUES ('$dom','$dom');");
|
$db->query("INSERT INTO mail_domain (mail,alias) VALUES ('$dom','$dom');");
|
||||||
// Create the postmaster email for this new domain :
|
// Create the postmaster email for this new domain :
|
||||||
$this->add_mail($dom,"postmaster",0,"",$mem->user["mail"]);
|
$this->add_mail($dom,"postmaster",0,"",$mem->user["mail"]);
|
||||||
return true;
|
return true;
|
||||||
}
|
}
|
||||||
|
@ -656,7 +656,7 @@ class m_mail {
|
||||||
/**
|
/**
|
||||||
* Exports all the mail related information for an account.
|
* Exports all the mail related information for an account.
|
||||||
* @access private
|
* @access private
|
||||||
* EXPERIMENTAL 'sid' function ;)
|
* EXPERIMENTAL 'sid' function ;)
|
||||||
*/
|
*/
|
||||||
function alternc_export($tmpdir) {
|
function alternc_export($tmpdir) {
|
||||||
global $db,$err;
|
global $db,$err;
|
||||||
|
@ -691,14 +691,14 @@ class m_mail {
|
||||||
}
|
}
|
||||||
$str.=" </address>\n";
|
$str.=" </address>\n";
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
$str.=" </domain>\n";
|
$str.=" </domain>\n";
|
||||||
}
|
}
|
||||||
$str.="</mail>\n";
|
$str.="</mail>\n";
|
||||||
fclose($f);
|
fclose($f);
|
||||||
if ($onepop) {
|
if ($onepop) {
|
||||||
// Now do the tarball of all pop accounts :
|
// Now do the tarball of all pop accounts :
|
||||||
exec("/bin/tar -czf ".escapeshellarg($tmpdir."/mail.tar.gz")." -T ".escapeshellarg($tmpfile));
|
exec("/bin/tar -czf ".escapeshellarg($tmpdir."/mail.tar.gz")." -T ".escapeshellarg($tmpfile));
|
||||||
}
|
}
|
||||||
@unlink($tmpfile);
|
@unlink($tmpfile);
|
||||||
return $str;
|
return $str;
|
||||||
|
@ -707,11 +707,11 @@ class m_mail {
|
||||||
|
|
||||||
/* ----------------------------------------------------------------- */
|
/* ----------------------------------------------------------------- */
|
||||||
/**
|
/**
|
||||||
* Returns the declaration of all xml rpc exportable functions
|
* Returns the declaration of all xml rpc exportable functions
|
||||||
* related to mail service. Each method is returned as an array
|
* related to mail service. Each method is returned as an array
|
||||||
* containing the function name, function, signature and docstring.
|
* containing the function name, function, signature and docstring.
|
||||||
* @access private
|
* @access private
|
||||||
* EXPERIMENTAL 'sid' function ;)
|
* EXPERIMENTAL 'sid' function ;)
|
||||||
*/
|
*/
|
||||||
function alternc_xmlrpc_server() {
|
function alternc_xmlrpc_server() {
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in New Issue