m_dom.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: PHP Class that manage domain names installed on the server
 ----------------------------------------------------------------------
*/

define('SLAVE_FLAG', "/var/run/alternc/refresh_slave");

/**
* Classe de gestion des domaines de l'hberg.
* 
* Cette classe permet de grer les domaines / sous-domaines, redirections
* dns et mx des domaines d'un membre hberg.<br />
*/
class m_dom {

  /** $domains : Cache des domaines du membre
   * @access private
   */
  var $domains;

  /** $dns : Liste des dns trouvs par la fonction whois
   * @access private
   */
  var $dns;

  /** Flag : a-t-on trouv un sous-domaine Webmail pour ce domaine ?
   * @access private
   */
  var $webmail;

  /**
   * Systme de verrouillage du cron
   * Ce fichier permet de verrouiller le cron en attendant la validation
   * du domaine par update_domains.sh
   * @access private
   */
  var $fic_lock_cron="/var/run/alternc/cron.lock";

  /**
   * Le cron a-t-il t bloqu ?
   * Il faut appeler les fonctions prives lock et unlock entre les
   * appels aux domaines.
   * @access private
   */
  var $islocked=false;

  var $type_local = "VHOST";
  var $type_url = "URL";
  var $type_ip = "IP";
  var $type_webmail = "WEBMAIL";
  var $type_ipv6 = "IPV6";
  var $type_cname = "CNAME";
  var $type_txt = "TXT";
  var $type_defmx = "DEFMX";
  var $type_defmx2 = "DEFMX2";

  var $action_insert = "0";
  var $action_update= "1";
  var $action_delete = "2";

  var $tld_no_check_at_all = "1";

  var $cache_domains_type_lst=false;
  /* ----------------------------------------------------------------- */
  /**
   * Constructeur
   */
  function m_dom() {
    $this->tld_no_check_at_all = variable_get('tld_no_check_at_all', 0,'Disable ALL check on the TLD (users will be able to add any domain)', array(array('desc'=>'Disabled','type'=>'boolean')));
    variable_get('mailname_bounce', '%%FQDN%%','FQDN of the mail server, used to create vhost virtual mail_adress.', array(array('desc'=>'FQDN','type'=>'string')));
  }

  function get_panel_url_list() {
    global $db,$err;
    $err->log("dom","get_panel_url_list");
    $db->query("SELECT sd.id as sub_id, if(length(sd.sub)>0,concat_ws('.',sd.sub,sd.domaine),sd.domaine) as fqdn from sub_domaines sd where type = 'PANEL';");
    $t=array();
    while ($db->next_record()) {
      $t[intval($db->f('sub_id'))] = $db->f('fqdn');
    }
    return $t;
  }

  function get_sub_domain_id_and_member_by_name($fqdn) {
    global $db,$err,$cuid;
    $err->log("dom","get_sub_domain_by_name");
    $fqdn=mysql_real_escape_string($fqdn);
    $db->query("select sd.* from sub_domaines sd where if(length(sd.sub)>0,concat_ws('.',sd.sub,sd.domaine),sd.domaine) = '$fqdn';");
    if (! $db->next_record()) return false;
    return array('sub_id'=>intval($db->f('id')), 'member_id'=> intval($db->f('compte') ));
  }

  function hook_menu() {
    global $quota;
    $obj = array( 
      'title'       => _("Domains"),
      'ico'         => 'images/dom.png',
      'link'        => 'toggle',
      'pos'         => 20,
      'links'       => array(),
     ) ;

     if ( $quota->cancreate("dom") ) {
       $obj['links'][] =
         array (
           'ico' => 'images/new.png',
           'txt' => _("Add a domain"),
           'url' => "dom_add.php",
         );
     }

     foreach ($this->enum_domains() as $d) {
       $obj['links'][] =
         array (
           'txt' => htmlentities($d),
           'url' => "dom_edit.php?domain=".urlencode($d),
         );
     }

     return $obj;
  }



  /* ----------------------------------------------------------------- */
  /**
   * Retourne un tableau contenant les types de domaines
   *
   * @return array retourne un tableau index contenant la liste types de domaines 
   *  authoris. Retourne FALSE si une erreur s'est produite.
   */
  function domains_type_lst() {
    global $db,$err;
    $err->log("dom","domains_type_lst");
    if (empty($this->cache_domains_type_lst)) {
      $db->query("select * from domaines_type order by advanced;");
      $this->cache_domains_type_lst=array();
      while ($db->next_record()) {
        $this->cache_domains_type_lst[strtolower($db->Record["name"])] = $db->Record;
      }
    }
    return $this->cache_domains_type_lst;
  }

  function domains_type_enable_values() {
    global $db,$err,$cuid;
    $err->log("dom","domains_type_target_values");
    $db->query("desc domaines_type;");
    $r = array();
    while ($db->next_record()) {
      if ($db->f('Field') == 'enable') {
        $tab = explode(",", substr($db->f('Type'), 5, -1));
        foreach($tab as $t) { $r[]=substr($t,1,-1); }
      }
    }
    return $r;
  }

  function domains_type_target_values($type=null) {
    global $db,$err,$cuid;
    $err->log("dom","domains_type_target_values");
    if (is_null($type)) {
      $db->query("desc domaines_type;");
      $r = array();
      while ($db->next_record()) {
        if ($db->f('Field') == 'target') {
          $tab = explode(",", substr($db->f('Type'), 5, -1));
          foreach($tab as $t) { $r[]=substr($t,1,-1); }
        }
      }
      return $r;
    } else {
      $db->query("select target from domaines_type where name='$type';");
      if (! $db->next_record()) return false;
      return $db->f('target');
    }
  }

  function import_manual_dns_zone($zone, $domain, $detect_redirect=true, $save=false) {
    global $err;
    if ($save) {
      if (! $this->import_manual_dns_prep_zone($domain) ) {
        $err->raise('dom', _("Err: failed to prepare the zone"));
        return false;
      }
    }

    $val = array();
    foreach (explode("\n", $zone) as $z) {
      $z=trim($z);
      if (empty($z)) continue; 
      $val[] = $this->import_manual_dns_entry($z,$domain,$detect_redirect,$save);
    }
    return $val;
  }

  function import_manual_dns_entry($zone, $domain, $detect_redirect=true, $save=false) {
    global $cuid, $err;
    $err->log("dom","import_manual_dns_entry");
    $zone=trim($zone);
    if (empty($zone)) return false;

    $domain=trim($domain);
    if ( empty($domain) ) {
      $err->raise("dom", _("Missing domain name"));
      return false;
    }

    $val = array(
      'status'    => 'err', // can be 'ok', 'err', 'warn'
      'comment'   => 'no val',
      'entry_old' => $zone,
      'entry_new' => array('domain'=>$domain),
    );

    // Examples:
    // ; hello comment
    if ( preg_match('/^;/', $zone, $ret) ) {
      $val['status'] = 'ok';
      $val['comment'] = 'Just a comment, do not import';
    } else
    // Examples:
    // $TTL 86400'
    if ( preg_match('/^\$TTL\h+(?P<ttl>[\dMHDmhd]+)/', $zone, $ret) ) {
      $val['status'] = 'ok';
      $val['comment'] = 'Set TTL to '.$ret['ttl'];
      $val['entry_new']['type'] = 'set_ttl';
      $val['entry_new']['value'] = $ret['ttl'];
    } else

    // Examples:
    // @ IN AAAA 127.2.1.5
    // reseau IN AAAA 145.214.44.55
    if ( preg_match('/^(?P<sub>[\w\.@\-]*)\h*(?P<ttl>\d*)\h*IN\h+AAAA\h+(?P<target>[0-9A-F:]{2,40})/i', $zone, $ret) ) {

      // Check if it is just a redirect
      if ( substr($ret['sub'], -1) == '.' ) { // if ending by a "." it is allready a FQDN
        $url="http://".$ret['sub'];
      } else {
        if ( $ret['sub'] == '@' || empty($ret['sub']) ) {
          $url="http://".$domain;
        } else {
          $url="http://".$ret['sub'].".".$domain;
        }
      }
      if ( $detect_redirect && $dst_url = $this->is_it_a_redirect($url) ) {
        $val['status'] = 'warn';
        $val['comment'] = "Became a redirect to $dst_url";
        $val['entry_new']['type'] = 'URL';
        $val['entry_new']['sub'] = $ret['sub'];
        $val['entry_new']['value'] = $dst_url;
      } else {
        $val['status'] = 'ok';
        $val['comment'] = "Create entry AAAA with ".$ret['sub']." go to ".$ret['target']." with ttl ".$ret['ttl'];
        $val['entry_new']['type'] = 'IPV6';
        $val['entry_new']['sub'] = $ret['sub'];
        $val['entry_new']['value'] = $ret['target'];
      }
    } else


    // Examples:
    // @ IN A 127.2.1.5
    // reseau IN A 145.214.44.55
    if ( preg_match('/^(?P<sub>[\w\.@\-]*)\h*(?P<ttl>\d*)\h*IN\h+A\h+(?P<target>\d+\.\d+\.\d+\.\d+)/i', $zone, $ret) ) {
      // Check if it is just a redirect
      if ( substr($ret['sub'], -1) == '.' ) { // if ending by a "." it is allready a FQDN
        $url="http://".$ret['sub'];
      } else {
        if ( $ret['sub'] == '@' || empty($ret['sub']) ) {
          $url="http://".$domain;
        } else {
          $url="http://".$ret['sub'].".".$domain;
        }
      }
      if ( $detect_redirect && $dst_url = $this->is_it_a_redirect($url) ) {
        $val['status'] = 'warn';
        $val['comment'] = "Became a redirect to $dst_url";
        $val['entry_new']['type'] = 'URL';
        $val['entry_new']['sub'] = $ret['sub'];
        $val['entry_new']['value'] = $dst_url;
      } else {
        $val['status'] = 'ok';
        $val['comment'] = "Create entry A with ".$ret['sub']." go to ".$ret['target']." with ttl ".$ret['ttl'];
        $val['entry_new']['type'] = 'IP';
        $val['entry_new']['sub'] = $ret['sub'];
        $val['entry_new']['value'] = $ret['target'];
      }
    } else

    // Examples:
    // @ IN NS ns.example.tld.
    // ns 3600 IN NS 145.214.44.55
    if ( preg_match('/^(?P<sub>[\-\w\.@]*)\h*(?P<ttl>\d*)\h*IN\h+NS\h+(?P<target>[\w\.\-]+)/i', $zone, $ret) ) {
      if ( empty($ret['sub']) || $ret['sub'] == '@' ) {
        $val['status'] = 'warn';
        $val['comment'] = "Won't migrate it, there will get a new value";
      } else {
        $val['status'] = 'ok';
        $val['comment'] = "Create entry NS with ".$ret['sub']." go to ".$ret['target']." with ttl ".$ret['ttl'];
        $val['entry_new']['type'] = 'FIXME-NS';
        $val['entry_new']['sub'] = $ret['sub'];
        $val['entry_new']['value'] = $ret['target'];
      }
    } else

    // Examples:
    // agenda IN CNAME ghs.google.com.
    // www 3600 IN CNAME @
    if ( preg_match('/^(?P<sub>[\-\w\.@]*)\h*(?P<ttl>\d*)\h*IN\h+CNAME\h+(?P<target>[@\w+\.\-]+)/i', $zone, $ret) ) {
      if ( substr($ret['sub'], -1) == '.' ) { // if ending by a "." it is allready a FQDN
        $url="http://".$ret['sub'];
      } else {
        if ( $ret['sub'] == '@' || empty($ret['sub']) ) {
          $url="http://".$domain;
        } else {
          $url="http://".$ret['sub'].".".$domain;
        }
      }
      if ( $detect_redirect && $dst_url = $this->is_it_a_redirect($url) ) {
        $val['status'] = 'warn';
        $val['comment'] = "Became a redirect to $dst_url";
        $val['entry_new']['type'] = 'URL';
        $val['entry_new']['sub'] = $ret['sub'];
        $val['entry_new']['value'] = $dst_url;
      } else {
        $val['status'] = 'ok';
        $val['comment'] = "Create entry CNAME with ".$ret['sub']." go to ".$ret['target']." with ttl ".$ret['ttl'];
        $val['entry_new']['type'] = 'CNAME';
        $val['entry_new']['sub'] = $ret['sub'];
        $val['entry_new']['value'] = $ret['target'];
      }
    } else

    // Examples:
    // @ IN MX 10 aspmx.l.google.com.
    // arf 3600 IN MX 20 pouet.fr.
    if ( preg_match('/^(?P<sub>[\-\w\.@]*)\h*(?P<ttl>\d*)\h*IN\h+MX\h+(?P<weight>\d+)\h+(?P<target>[@\w+\.\-]+)/i', $zone, $ret) ) {
      $val['status'] = 'warn';
      $val['comment'] = "Create entry MX with ".$ret['sub']." go to ".$ret['target']." with ttl ".$ret['ttl']." and weight 5 (initial weight was ".$ret['weight'].")";
      $val['entry_new']['type'] = 'MX';
      $val['entry_new']['sub'] = $ret['sub'];
      $val['entry_new']['value'] = $ret['target'];
    } else

    // Examples:
    // _sip._tcp  IN      SRV             1 100 5061 sip.example.tld.
    if ( preg_match('/^(?P<sub>[\_\w\.@\-]+)\h+(?P<ttl>\d*)\h*IN\h+SRV\h+/i', $zone, $ret) ) {
      $val['status']='err';
      $val['comment'] = "Please add yourself the entry $zone";
    } else

    // Examples:
    // @       IN      TXT             "google-site-verification=jjjjjjjjjjjjjjjjjjjjjjjjsdsdjlksjdljdslgNj5"
    if ( preg_match('/^(?P<sub>[\_\w\.@\-]*)\h*(?P<ttl>\d*)\h*IN\h+TXT\h+\"(?P<target>.+)\"/i', $zone, $ret) ) {
      $val['status']='ok';
      $val['comment'] = "Create TXT entry with ".$ret['sub']." go to ".$ret['target'];
      $val['entry_new']['type'] = 'TXT';
      $val['entry_new']['sub'] = $ret['sub'];
      $val['entry_new']['value'] = $ret['target'];
    } else {

      // WTF can it be ?
      $val['comment'] = "Unknow: $zone";
    }

    if ($save) {
      return $this->import_manual_dns_entry_doit($val); 
    }

    return $val;
  }

  private function import_manual_dns_entry_doit($entry) {
    global $err;
    $entry['did_it'] = 0;
    if ( $entry['status'] == 'err' ) {
      return $entry;
    }

    $val=$entry['entry_new'];

    if (empty($val['type'])) return false;

    switch($val['type']) {
      case "set_ttl":
        $entry['did_it'] = $this->set_ttl($this->get_domain_byname($val['domain']), $val['value']);
        return $entry;
        break;
    }

    // If it is an unknown domains type
    if (! array_key_exists( strtolower($val['type']), $this->domains_type_lst() ) ) {
      echo "what is this shit ?\n";
      print_r($entry);
      return $entry;
    }

    // If the subdomain is @, we want an empty subdomain
    if ($val['sub'] == '@') $val['sub'] = '';

    $this->lock();
    $entry['did_it'] = $this->set_sub_domain($val['domain'], $val['sub'], $val['type'], $val['value']);
    $this->unlock();

    return $entry;
  }

  private function import_manual_dns_prep_zone($domain) {
    global $err;
    // Prepare a domain to be importer : 
    // * create the domain
    // * delete all automatic subdomain
    // * set no mx
    $this->lock();

    // function add_domain($domain,$dns,$noerase=0,$force=0,$isslave=0,$slavedom="") 
    if (! $this->add_domain($domain, true, false, true) ) {
      $err->raise('dom', "Error adding domain");
      return false;
    }

    // Set no mx
    $this->edit_domain($domain, true, false);

    $d = $this->get_domain_all($domain);
    foreach( $d['sub'] as $sd) {
      $this->del_sub_domain($sd['id']);
    }

    $this->unlock();
 
    return true;
  }

  // Take an URL, and return FALSE is there is no redirection,
  // and the target URL if there is one (HTTP CODE 301 & 302)
  // CURL is needed
  function is_it_a_redirect($url) {
    try {
      $params = array('http' => array(
        'method' => 'HEAD',
        'ignore_errors' => true
        ));

      $context = stream_context_create($params);
      $fp = @fopen($url, 'rb', false, $context);
      $result = @stream_get_contents($fp);

      if ($result === false) {
        throw new Exception("Could not read data from {$url}");
        return false;
      } 
      if ( strstr($http_response_header[0], '301') || strstr($http_response_header[0], '302')) {
        // This is a redirection
       if ( preg_match( '/Location:\h+(?P<target>[\-\w:\/.\?\=.]+)/', implode("\n",$http_response_header), $ret ) ) {
         // check if it is a redirection to himself
         preg_match('/\/\/(?P<host>[\w\.\-]+)\//', ( substr($url,-1)=='/'?$url:$url.'/') , $original_cname);
         preg_match('/\/\/(?P<host>[\w\.\-]+)\//', $ret['target'], $target_url);
         if ( isset($target_url['host']) && ( $target_url['host'] == $original_cname['host'] ) ) { // if it's a redirection to himself (sub pages, http to https...)
           return false; // do not do a redirection (we must point to the server)
         }

         // If it is a redirection to a sub directory
         // (we know it is a redirection to a sub directory because it's not a complete URI)
         if ( substr($ret['target'],0,4) != 'http' ) {
           return 'http://'.$original_cname['host'].'/'.$ret['target'];
         }
         return $ret['target'];
       } 
      } else { // it isn't a redirection 
        return false;
      }
    } catch (Exception $e) {
      return false;
    }
  }

  function domains_type_regenerate($name) {
    global $db,$err,$cuid; 
    $name=mysql_real_escape_string($name);
    $db->query("update sub_domaines set web_action='UPDATE' where lower(type) = lower('$name') ;");
    $db->query("update domaines d, sub_domaines sd set d.dns_action = 'UPDATE' where lower(sd.type)=lower('$name');");
    return true;
  }

  function domains_type_get($name) {
    global $db,$err,$cuid; 
    $name=mysql_real_escape_string($name);
    $db->query("select * from domaines_type where name='$name' ;");
    $db->next_record();
    return $db->Record;
  }

  function domains_type_del($name) {
    global $db,$err,$cuid;
    $name=mysql_real_escape_string($name);
    $db->query("delete domaines_type where name='$name';");
    return true;
  }

  function domains_type_update($name, $description, $target, $entry, $compatibility, $enable, $only_dns, $need_dns,$advanced,$create_tmpdir,$create_targetdir) {
    global $err,$cuid,$db;
    // The name MUST contain only letter and digits, it's an identifier after all ...
    if (!preg_match("#^[a-z0-9]+$#",$name)) {
      $err->raise("dom", _("The name MUST contain only letter and digits"));
      return false;
    }
    $name=mysql_real_escape_string($name);    $description=mysql_real_escape_string($description);    $target=mysql_real_escape_string($target);
    $entry=mysql_real_escape_string($entry);    $compatibility=mysql_real_escape_string($compatibility);    $enable=mysql_real_escape_string($enable);
    $only_dns=intval($only_dns);    $need_dns=intval($need_dns);    $advanced=intval($advanced); $create_tmpdir=intval($create_tmpdir); $create_targetdir=intval($create_targetdir);
    $db->query("UPDATE domaines_type SET description='$description', target='$target', entry='$entry', compatibility='$compatibility', enable='$enable', need_dns=$need_dns, only_dns=$only_dns, advanced='$advanced',create_tmpdir=$create_tmpdir,create_targetdir=$create_targetdir where name='$name';");
    return true;
  }   

  function sub_domain_change_status($sub_id,$status) {
    global $db,$err,$cuid;
    $err->log("dom","sub_domain_change_status");
    $sub_id=intval($sub_id);
    $status=strtoupper($status);
    if (! in_array($status,array('ENABLE', 'DISABLE'))) return false;

    $jh = $this->get_sub_domain_all($sub_id);
    if ($status == 'ENABLE') { // check compatibility with existing sub_domains
      if (! $this->can_create_subdomain($jh['domain'], $jh['name'], $jh['type'], $sub_id) ) {
        $err->raise("dom", _("The parameters for this subdomain and domain type are invalid. Please check for subdomain entries incompatibility"));
        return false;
      }
    } 

    $db->query("update sub_domaines set enable='$status' where id = '".intval($sub_id)."';");
    $this->set_dns_action($jh['domain'], 'UPDATE');

    return true;
  } 

  /* ----------------------------------------------------------------- */
  /**
   * Retourne un tableau contenant les domaines d'un membre.
   * Par dfaut le membre connect
   *
   * @return array retourne un tableau index contenant la liste des
   *  domaines hbergs sur le compte courant. Retourne FALSE si une
   *  erreur s'est produite.
   */
  function enum_domains($uid=-1) {
    global $db,$err,$cuid;
    $err->log("dom","enum_domains");
    if ($uid == -1) { $uid = $cuid; }
    $db->query("SELECT * FROM domaines WHERE compte='{$uid}' ORDER BY domaine ASC;");
    $this->domains=array();
    if ($db->num_rows()>0) {
      while ($db->next_record()) {
      $this->domains[]=$db->f("domaine");
      }
    }
    return $this->domains;
  }

  function del_domain_cancel($dom) {
    global $db,$err,$classes,$cuid;
    $err->log("dom","del_domaini_canl",$dom);
    $dom=strtolower($dom);
    $db->query("UPDATE sub_domaines SET web_action='UPDATE'  WHERE domaine='$dom';");
    $this->set_dns_action($dom, 'UPDATE');

    # TODO : some work with domain sensitive classes

    return true;
  }

  /* ----------------------------------------------------------------- */
  /**
   *  Efface un domaine du membre courant, et tous ses sous-domaines
   *
   * Cette fonction efface un domaine et tous ses sous-domaines, ainsi que
   * les autres services attachs  celui-ci. Elle appelle donc les autres
   * classe. Chaque classe peut dclarer une fonction del_dom qui sera
   * appelle lors de la destruction d'un domaine.
   *
   * @param string $dom nom de domaine  effacer
   * @return boolean Retourne FALSE si une erreur s'est produite, TRUE sinon.
   */
  function del_domain($dom) {
    global $db,$err,$classes,$cuid,$hooks;
    $err->log("dom","del_domain",$dom);
    $dom=strtolower($dom);

    $this->lock();
    if (!$r=$this->get_domain_all($dom)) {
      return false;
    }
    $this->unlock();

    // Call Hooks to delete the domain and the MX management:
    // TODO : the 2 calls below are using an OLD hook call, FIXME: remove them when unused
    $hooks->invoke("alternc_del_domain",array($dom));
    $hooks->invoke("alternc_del_mx_domain",array($dom));
    // New hook calls: 
    $hooks->invoke("hook_dom_del_domain",array($r["id"]));
    $hooks->invoke("hook_dom_del_mx_domain",array($r["id"]));

    // Now mark the domain for deletion:
    $db->query("UPDATE sub_domaines SET web_action='DELETE'  WHERE domaine='$dom';");
    $this->set_dns_action($dom, 'DELETE');

    return true;
  }

  function domshort($dom, $sub="") {
    return str_replace("-","",str_replace(".","",empty($sub)?"":"$sub.").$dom );
  }

  /* ----------------------------------------------------------------- */
  /**
   *  Installe un domaine sur le compte courant.
   *
   * <p>Si le domaine existe dj ou est interdit, ou est celui du serveur,
   * l'installation est refuse. Si l'hbergement DNS est demand, la fonction
   * checkhostallow vrifiera que le domaine peut tre install conformment
   * aux demandes des super-admin.
   * 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
   * toto.test.org ou test.test.asso.fr)</p>
   * <p>Chaque classe peut dfinir une fonction add_dom($dom) qui sera
   * appelle lors de l'installation d'un nouveau domaine.</p>
   *
   * @param string $dom nom fqdn du domaine  installer
   * @param boolean $dns 1 ou 0 pour hberger le DNS du domaine ou pas.
   * @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.
   *  force ne devrait tre utilis que par le super-admin.
   $ @return boolean Retourne FALSE si une erreur s'est produite, TRUE sinon.
  */
  function add_domain($domain,$dns,$noerase=false,$force=false,$isslave=false,$slavedom="") {
    global $db,$err,$quota,$classes,$L_MX,$L_FQDN,$tld,$cuid,$bro,$hooks;
    $err->log("dom","add_domain",$domain);

    // Locked ?
    if (!$this->islocked) {
      $err->raise("dom",_("--- Program error --- No lock on the domains!"));
      return false;
    }
    // Verifie que le domaine est rfc-compliant
    $domain=strtolower($domain);
    $t=checkfqdn($domain);
    if ($t) {
      $err->raise("dom",_("The domain name is syntaxically incorrect"));
      return false;
    }
    // Interdit les domaines cls (table forbidden_domains) sauf en cas FORCE
    $db->query("SELECT domain FROM forbidden_domains WHERE domain='$domain'");
    if ($db->num_rows() && !$force) {
      $err->raise("dom",_("The requested domain is forbidden in this server, please contact the administrator"));
      return false;
    }
    if ($domain==$L_FQDN || $domain=="www.$L_FQDN") {
      $err->raise("dom",_("This domain is the server's domain! You cannot host it on your account!"));
      return false;
    }
    $db->query("SELECT compte FROM domaines WHERE domaine='$domain';");
    if ($db->num_rows()) {
      $err->raise("dom",_("The domain already exist"));
      return false;
    }
    $db->query("SELECT compte FROM `sub_domaines` WHERE sub != \"\" AND concat( sub, \".\", domaine )='$domain' OR domaine='$domain';");
    if ($db->num_rows()) {
      $err->raise("dom",_("The domain already exist"));
      return false;
    }
    $this->dns=$this->whois($domain);
    if (!$force) {
      $v=checkhostallow($domain,$this->dns);
      if ($v==-1) {
        $err->raise("dom",_("The last member of the domain name is incorrect or cannot be hosted in that server"));
        return false;
      }
      if ($dns && $v==-2) {
        $err->raise("dom",_("The domain cannot be found in the whois database")); 
        return false;
      }
      if ($dns && $v==-3) {
        $err->raise("dom",_("The domain cannot be found in the whois database"));
        return false;
      }

      if ($dns) $dns="1"; else $dns="0";

      // mode 5 : force DNS to NO.
      if ($tld[$v]==5) $dns=0;
      // It must be a real domain (no subdomain)
      if (!$dns) {
         $v=checkhostallow_nodns($domain);
         if ($v) {
           $err->raise("dom",_("The requested domain is forbidden in this server, please contact the administrator"));
           return false;
         }
      }
    }
    // Check the quota :
    if (!$quota->cancreate("dom")) {
      $err->raise("dom",_("Your domain quota is over, you cannot create more domain names"));
      return false;
    }
    if ($noerase) $noerase="1"; else $noerase="0";
    if ($dns) $gesmx="1"; else $gesmx="0"; // do not host mx by default if not hosting the DNS
    $db->query("INSERT INTO domaines (compte,domaine,gesdns,gesmx,noerase,dns_action) VALUES ('$cuid','$domain','$dns','$gesmx','$noerase','UPDATE');");
    if (!($id=$db->lastid())) {
      $err->raise("dom",_("An unexpected error occured when creating the domain"));
      return false;
    }

    if ($isslave) {
      $isslave=true;
      $db->query("SELECT domaine FROM domaines WHERE compte='$cuid' AND domaine='$slavedom';");
      $db->next_record();
      if (!$db->Record["domaine"]) {
        $err->raise("dom",_("Domain '%s' not found"),$slavedom);
        $isslave=false;
      }
      // Point to the master domain : 
      $this->create_default_subdomains($domain, $slavedom);
    }
    if (!$isslave) {
      $this->create_default_subdomains($domain);
    }

    // TODO: Old hooks, FIXME: when unused remove them
    $hooks->invoke("alternc_add_domain",array($domain));
    if ($isslave) {
      $hooks->invoke("alternc_add_slave_domain",array($domain));
    }
    // New Hooks: 
    $hooks->invoke("hook_dom_add_domain",array($id));
    if ($gesmx) $hooks->invoke("hook_dom_add_mx_domain",array($id));
    if ($isslave) {
      $hooks->invoke("hook_dom_add_slave_domain",array($id, $slavedom));
    }
    return true;
  }

  function create_default_subdomains($domain,$target_domain=""){
    global $db,$err;
    $err->log("dom","create_default_subdomains",$domain);
    $query="SELECT sub, domain_type, domain_type_parameter FROM default_subdomains WHERE (concerned = 'SLAVE' or concerned = 'BOTH') and enabled=1;";
    if(empty($target_domain)) {
      $query="SELECT sub, domain_type, domain_type_parameter FROM default_subdomains WHERE (concerned = 'MAIN' or concerned = 'BOTH') and enabled=1;";
    }
    $domaindir=$this->domdefaultdir($domain);
    $db->query($query);
    $jj=array();
    while ($db->next_record()) {
      $jj[]=Array("domain_type_parameter"=>$db->f('domain_type_parameter'),"sub"=>$db->f('sub'), "domain_type"=>$db->f('domain_type'));
    }
    $src_var=array("%%SUB%%","%%DOMAIN%%","%%DOMAINDIR%%", "%%TARGETDOM%%");
    foreach($jj as $j){
      $trg_var=array($j['sub'],$domain,$domaindir,$target_domain);
      $domain_type_parameter=str_ireplace($src_var,$trg_var,$j['domain_type_parameter']);
      $this->set_sub_domain($domain, $j['sub'], strtolower($j['domain_type']), $domain_type_parameter);
    }
  }

  function domdefaultdir($domain) {
    global $bro,$cuid;
    $dest_root = $bro->get_userid_root($cuid);
    #  return $dest_root."/www/".$this->domshort($domain);
    return "/www/".$this->domshort($domain);
  }

  function dump_axfr($domain, $ns='localhost') {
    exec('/usr/bin/dig AXFR "'.escapeshellcmd($domain).'" @"'.escapeshellcmd($ns).'"', $axfr);
    return $axfr;
  }


  function lst_default_subdomains(){
    global $db,$err;
    $err->log("dom","lst_default_subdomains");
    $c=array();
    $db->query("select * from default_subdomains;");
     
    while($db->next_record()) {
      $c[]=array('id'=>$db->f('id'),
                 'sub'=>$db->f('sub'),
                 'domain_type'=>$db->f('domain_type'),
                 'domain_type_parameter'=>$db->f('domain_type_parameter'),
                 'concerned'=>$db->f('concerned'),
                 'enabled'=>$db->f('enabled')
                 ) ; 
    }

    return $c;
  }

  
  function update_default_subdomains($arr) {
    global $err;
    $err->log("dom","update_default_subdomains");
    $ok=true;
    foreach ($arr as $a) {
      if (! isset($a['id'])) $a['id']=null;
      if(!empty($a['sub']) || !empty($a['domain_type_parameter'])){

        if (! isset($a['enabled'])) $a['enabled']=0;
        if (! $this->update_one_default($a['domain_type'],$a['sub'], $a['domain_type_parameter'], $a['concerned'], $a['enabled'],$a['id']) ) {
         $ok=false;
        }
      }  
    }
    return $ok;
  }

  function update_one_default($domain_type,$sub,$domain_type_parameter,$concerned,$enabled,$id=null){
    global $db,$err;
    $err->log("dom","update_one_default");
    
    if($id==null)
      $db->query("INSERT INTO default_subdomains values ('','".addslashes($sub)."','".addslashes($domain_type)."','".addslashes($domain_type_parameter)."','".addslashes($concerned)."','".addslashes($enabled)."');");
    else
    $db->query("UPDATE default_subdomains set sub='".addslashes($sub)."', domain_type='".addslashes($domain_type)."',domain_type_parameter='".addslashes($domain_type_parameter)."',concerned='".addslashes($concerned)."',enabled='".addslashes($enabled)."' where id=".addslashes($id).";");
    return true;
      //update
    

  }

  function del_default_type($id){
    global $err,$db;
    $err->log("dom","del_default_type");

    if(!$db->query("delete from default_subdomains where id=$id;")){
      $err->raise("dom",_("Could not delete default type"));
      return false;
    }

    return true;


  }

  /* ----------------------------------------------------------------- */
  /**
   * Retourne les entres DNS du domaine $domain issues du WHOIS.
   *
   * Cette fonction effectue un appel WHOIS($domain) sur Internet,
   * et extrait du whois les serveurs DNS du domaine demand. En fonction
   * du TLD, on sait (ou pas) faire le whois correspondant.
   * Actuellement, les tld suivants sont supports :
   * .com .net .org .be .info .ca .cx .fr .biz .name
   *
   * @param string $domain Domaine fqdn dont on souhaite les serveurs DNS
   * @return array Retourne un tableau index avec les NOMS fqdn des dns
   *   du domaine demand. Retourne FALSE si une erreur s'est produite.
   *
   */
  function whois($domain) {
    global $db,$err;
    $err->log("dom","whois",$domain);
    // pour ajouter un nouveau TLD, utiliser le code ci-dessous.
    //  echo "whois : $domain<br />";
    preg_match("#.*\.([^\.]*)#",$domain,$out);
    $ext=$out[1];
    // pour ajouter un nouveau TLD, utiliser le code ci-dessous.
    //  echo "ext: $ext<br />";

    $serveur="";
    if (($fp=@fsockopen("whois.iana.org", 43))>0) {
      fputs($fp, "$domain\r\n");
      $found = false;
      $state=0;
      while (!feof($fp)) {
        $ligne = fgets($fp,128);
        if (preg_match('#^whois:#', $ligne)) { $serveur=preg_replace('/whois:\ */','',$ligne,1); }
      }
    }
    $serveur=str_replace(array(" ","\n"),"",$serveur);

    $egal="";
    switch($ext) {
    case "net":
      $egal="=";
      break;
    case "name":
      $egal="domain = ";
      break;
    }
    // pour ajouter un nouveau TLD, utiliser le code ci-dessous.
    //  echo "serveur : $serveur <br />";
    if (($fp=@fsockopen($serveur, 43))>0) {
      fputs($fp, "$egal$domain\r\n");
      $found = false;
      $state=0;
      while (!feof($fp)) {
  $ligne = fgets($fp,128);
  // pour ajouter un nouveau TLD, utiliser le code ci-dessous.
  //  echo "| $ligne<br />";
  switch($ext) {
  case "org":
  case "com":
  case "net":
  case "info":
  case "biz":
  case "name":
  case "cc":
    if (preg_match("#Name Server:#", $ligne)) {
      $found = true;
      $tmp=strtolower(str_replace(chr(10), "",str_replace(chr(13),"",str_replace(" ","", str_replace("Name Server:","", $ligne)))));
      if ($tmp)
        $server[]=$tmp;
    }
    break;
  case "cx":
    $ligne = str_replace(chr(10), "",str_replace(chr(13),"",str_replace(" ","", $ligne)));
    if ($ligne=="" && $state==1)
      $state=2;
    if ($state==1)
      $server[]=strtolower($ligne);
    if ($ligne=="Nameservers:" && $state==0) {
      $state=1;
      $found = true;
    }
    break;
  case "eu":
  case "be":
          $ligne=preg_replace("/^ *([^ ]*) \(.*\)$/","\\1",trim($ligne));
          if($found)
             $tmp = trim($ligne);
          if ($tmp)
             $server[]=$tmp;
          if ($ligne=="Nameservers:") {
            $state=1;
            $found=true;
          }
          break;
    case "im":
          if (preg_match('/Name Server:/', $ligne)) {
            $found = true;
            // weird regexp (trailing garbage after name server), but I could not make it work otherwise
            $tmp = strtolower(preg_replace('/Name Server: ([^ ]+)\..$/',"\\1", $ligne));
            $tmp = preg_replace('/[^-_a-z0-9\.]/', '', $tmp);
            if ($tmp)
              $server[]=$tmp;
          }
          break;
    case "it":
          if (preg_match("#nserver:#", $ligne)) {
            $found=true;
            $tmp=strtolower(preg_replace("/nserver:\s*[^ ]*\s*([^\s]*)$/","\\1", $ligne));
            if ($tmp)
              $server[]=$tmp;
          }
          break;
  case "fr":
  case "re":
          if (preg_match("#nserver:#", $ligne)) {
            $found=true;
            $tmp=strtolower(preg_replace("#nserver:\s*([^\s]*)\s*.*$#","\\1", $ligne));
            if ($tmp)
              $server[]=$tmp;
          }
          break;
  case "ca":
  case "ws";
    if (preg_match('#Name servers#', $ligne)) {
          // found the server
      $state = 1;
    } elseif ($state) {
      if (preg_match('#^[^%]#', $ligne) && $ligne = preg_replace('#[[:space:]]#', "", $ligne)) {
      // first non-whitespace line is considered to be the nameservers themselves
      $found = true;
      $server[] = $ligne;
    }
    }
    break;
        case "coop":
          if (preg_match('#Host Name:\s*([^\s]+)#', $ligne, $matches)) {
            $found = true;
            $server[] = $matches[1];
          }
  } // switch