source: trunk/alternc/patches/class/m_mail_egw.php @ 782

<?
require_once("m_mail.php");

class m_mail_egw extends m_mail {

        function create($dom_id, $mail, $type = "", $dontcheck = false) {
           if ($this->_add_egw_account($dom_id, $mail, $type = "", $dontcheck = false))
                        if (parent::create($dom_id,$mail,$type="",$dontcheck=false))
                                return true;
                        else
                                return false;
                else
                        return false;
        }

        function delete($mail_id) {
        
                if ($this->_del_egw_account($mail_id) )
                        if (parent::delete($mail_id))
                                return true;
                        else
                                return false;
                else
                        return false;
        }

        function _add_egw_account($dom_id, $mail, $type = "", $dontcheck = false) {
        global $err, $db, $quota, $dom, $hooks, $L_EGW_ADMINCLI, $L_EGW_ADMINUSER, $L_EGW_ADMINCLAVE;
        $res = true;
                $err->log("mail", "create_egwclass", "$mail $dom_id");
        $domain = $dom->get_domain_byid($dom_id);
                $err->log("mail", "create_egwclass", "$mail $domain");


        // armamos el commando a executar en el cli de egw
        $admincli= $L_EGW_ADMINCLI;
        $command= "--edit-user";              // Command to be performed
        $adminuser= $L_EGW_ADMINUSER;
        $adminclave= $L_EGW_ADMINCLAVE;
        //$adminclave= "*******";

        $firstname = $mail;                     // the left side of the email
        $lastname= "-";                         // we have a generic lastname
        $pass= "*****"; //TEMPORARY
        $email = $account = $mail ."@" .$domain; // account and email are the same
        $expires= "never";
        $canchangepw= "yes";
        $anonuser= "no";
//      $primarygroup = $domain[$size-3];   // domains in .ar starts at the third level
        $primarygroup= "cta"; //TEMPORARY
//      $secondarygroup = $domain[$size-4]; // sub-domain is used as a secondary group
        $homedir = "/home/". $mail ."_" .$domain; // everyone can have a home    
        $loginshell = "/bin/bash";                // everyone can have a shell

        $go= $admincli ." " .$command ." " .$adminuser ."," .$adminclave .",\"" .$account ."\"," .$firstname ."," .$lastname ."," .$pass .",\"" .$email ."\"," .$expires ."," .$canchangepw ."," .$anonuser ."," .$primarygroup ;
        
        $go= $go ."," .$homedir ."," .$loginshell ;

        echo "<h3>Creamos la cuenta en la base ldap</h3>";
//      echo "<h4>$go</h4>"; // LA CLAVE SALE... ACA

                        $cod = exec($go);
                        if ($cod)
                        {
                         // die ($cod);
                         echo "<p class=\"error\">";
                         echo $cod;
                         echo "</p>";
                         //$res = false;
                        }       

        // mandamos el codigo de error en /var/log/alternc/bureau.log 
        $err->log("mail_egw", "create", $cod);


        // para no morir aca...
        return $res;
        }       

        function _del_egw_account($mail_id) {
        global $err, $db, $hooks;
                $err->log("mail", "delete_egwclass", $mail_id);
        $res = true;

        // desde el mail_id buscamos el dominio
        $query="SELECT domaine FROM domaines 
                WHERE id=(SELECT domain_id FROM address where id=\"$mail_id\")";
        $result_dominio=mysql_query($query);

// print resultados...
while($row = mysql_fetch_assoc($result_dominio)){
foreach($row as $cname => $cvalue){print "$cname: $cvalue\t";}
print "\r\n";
}
        // desde el mail_id buscamos la primera parte del mail
        $query="SELECT address FROM address WHERE id=\"$mail_id\"";
//      print "$query";
        $result_mail=mysql_query($query);       
// print resultados...
while($row = mysql_fetch_assoc($result_mail)){
foreach($row as $cname => $cvalue){print "$cname: $cvalue\t";}
print "\r\n";
}

        // para no morir aca...
        return $res;
        }       

}

?>