Changeset 39 for trunk/alternc/patches/m_mail_egw.php

Timestamp:

Nov 10, 2007, 8:31:58 PM (15 years ago)

Author:

sebas

Message:

Gracias sabino para esos cambios.

File:

• trunk/alternc/patches/m_mail_egw.php (modified) (4 diffs)

trunk/alternc/patches/m_mail_egw.php

@@ -5 +5 @@
 
 
-        function __construct () {
-                global $mail;
-                $mail = $this;
-        }
+//      function __construct () {
+//              global $mail;
+//              $mail = $this;
+//      }
 //      function _createpop($mail,$dom,$pass) {
 //              global $err,$cuid,$db;
@@ -43 +43 @@
         
                 if ($this->_add_egw_account($mail,$dom,$pass) )
-                        if (parent::__createpop($mail,$dom,$pass))
-                        return true;
+                        if (parent::_createpop($mail,$dom,$pass))
+                                return true;
                         else
                                 return false;
@@ -55 +55 @@
 
                 $res = true;
-                if (substr($dom,-10) == "cta.org.ar") {
+                $domain = explode('.',$dom);
+                $size = count($domain);
+                if (  $size >= 3 && 
+                        $domain[$size-3] == "cta" &&
+                        $domain[$size-2] == "org" &&
+                        $domain[$size-1] == "ar" ) {
 
                         $admincli= "/var/alternc/html/i/intranet/intranet.redcta.org.ar/wwws/stable/admin/admin-cli.php";
@@ -69 +74 @@
                         $canchangepw= "yes";
                         $anonuser= "no";
-                        $primarygroup = substr($dom,-10);
-                        $secondarygroup = substr($dom,0,-11);
-
+                        $primarygroup = $domain[$size-3];
+                        $secundarygroup = join(',', array_slice($domain,0,-3));
                         $lastname = "-";
                         $firstname = $mail;