74 lines
2.6 KiB
PHP
74 lines
2.6 KiB
PHP
<?php
|
|
/*
|
|
----------------------------------------------------------------------
|
|
AlternC - Web Hosting System
|
|
Copyright (C) 2000-2012 by the AlternC Development Team.
|
|
https://alternc.org/
|
|
----------------------------------------------------------------------
|
|
LICENSE
|
|
|
|
This program is free software; you can redistribute it and/or
|
|
modify it under the terms of the GNU General Public License (GPL)
|
|
as published by the Free Software Foundation; either version 2
|
|
of the License, or (at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
To read the license please visit http://www.gnu.org/copyleft/gpl.html
|
|
----------------------------------------------------------------------
|
|
Purpose of file: Manage Squirrelmail webmail configuration
|
|
----------------------------------------------------------------------
|
|
*/
|
|
|
|
/**
|
|
* This class handle squirrelmail's webmail
|
|
* hook the main panel page to add a link to the webmail
|
|
*/
|
|
class m_squirrelmail {
|
|
|
|
/* ----------------------------------------------------------------- */
|
|
/** Hook called by the homepage or the /webmail link
|
|
* to redirect the user to a known webmail url.
|
|
* the variable 'webmail_redirect' tells which webmail has the priority.
|
|
* @return string the URL of the webmail
|
|
*/
|
|
function hook_admin_webmail() {
|
|
global $db;
|
|
// Search for the domain where the panel is hosted, then search for a webmail in it.
|
|
$i=2;
|
|
$domain="";
|
|
if (!empty($_SERVER["HTTP_HOST"])) {
|
|
do { // for each domain part (search panel.alternc.org then alternc.org then org, if the current panel is at www.panel.alternc.org)
|
|
$expl=explode(".",$_SERVER["HTTP_HOST"],$i);
|
|
if (count($expl)>=2) {
|
|
list($host,$dompart)=$expl;
|
|
// We search for a 'squirrelmail' subdomain in that domain
|
|
$db->query("SELECT * FROM sub_domaines s WHERE s.domaine='".addslashes($dompart)."' AND s.type='squirrelmail';");
|
|
if ($db->next_record()) {
|
|
$domain=$db->Record;
|
|
return "http://".$domain["sub"].(($domain["sub"])?".":"").$domain["domaine"];
|
|
}
|
|
}
|
|
$i++;
|
|
} while (strpos($dompart,'.')!==false);
|
|
}
|
|
|
|
// not found: search for a webmail in the admin user account
|
|
$db->query("SELECT * FROM sub_domaines s WHERE s.compte=2000 AND s.type='squirrelmail';");
|
|
if ($db->next_record()) {
|
|
$domain=$db->Record;
|
|
return "http://".$domain["sub"].(($domain["sub"])?".":"").$domain["domaine"];
|
|
}
|
|
|
|
}
|
|
|
|
} /* Class Squirrelmail */
|
|
|
|
|
|
|
|
|
|
|