Code

Updated error handling
[gosa.git] / gosa-core / include / class_gosaSupportDaemon.inc
index b33e59eb82c889809c535dba0359a69b45a1fbc6..189dbdfac3a9addfe14b00e5c176f18a044f0284 100644 (file)
@@ -33,6 +33,7 @@ class gosaSupportDaemon
 
   private $is_connected     = FALSE;
 
+  protected $use_alternative_xml_parse_method = FALSE;
 
   /*! \brief  Creates a new gosaSupportDaemon object.
     @param string   Host    The Host where the daemon is running on.  
@@ -46,13 +47,18 @@ class gosaSupportDaemon
     #FIXME: bad idea about referencing global variables from within classes
     global $config;
 
+    /* This should only be the case if we call this from setup.
+        __autoload() 
+     */
+    if(!is_object($config)) { return; }
+
     # load from config, store statically
-    if (isset($config->current['GOSA_SI'])){
+    if ($config->get_cfg_value("gosa_si") != ""){
 
       if ($this->s_host == ""){
-        $this->s_host= preg_replace("/^.*@([^:]+):.*$/", "$1", $config->current['GOSA_SI']);
-        $this->i_port= preg_replace("/^.*@[^:]+:(.*)$/", "$1", $config->current['GOSA_SI']);
-        $this->s_encryption_key = preg_replace("/^(.*)@[^:]+:.*$/", "$1", $config->current['GOSA_SI']);
+        $this->s_host= preg_replace("/^.*@([^:]+):.*$/", "$1", $config->get_cfg_value("gosa_si"));
+        $this->i_port= preg_replace("/^.*@[^:]+:(.*)$/", "$1", $config->get_cfg_value("gosa_si"));
+        $this->s_encryption_key = preg_replace("/^(.*)@[^:]+:.*$/", "$1", $config->get_cfg_value("gosa_si"));
       }
 
       $this->f_timeout = $timeout;
@@ -84,6 +90,30 @@ class gosaSupportDaemon
     return($this->is_connected);
   }
 
+  
+  /*! \brief  Returns TRUE whether we are connected or not 
+      @return BOOLEAN  Returns TRUE when connected else FALSE
+   */
+  public function is_connected()
+  {
+    return($this->is_connected);
+  }
+
+  /*! \brief  */
+  public function get_hosts_with_module($mod)
+  {
+    $data = array("module_name" => $mod);
+    $res = $this->send_data("gosa_get_hosts_with_module",$this->s_host.":".$this->i_port,$data,TRUE);
+    $hosts = array();
+    if(isset($res['XML'][0]['HOST'])){
+      foreach($res['XML'][0]['HOST'] as $entry){
+        $hosts [] = $entry['VALUE'];
+      }
+    }
+    return($hosts);
+  }
+
 
   /*! \brief  Disconnect from gosa daemon.
    */
@@ -129,12 +159,112 @@ class gosaSupportDaemon
   public function get_error()
   {
     $str = $this->s_error;
-    $str = preg_replace("/ /"," ",$str);
-    return($str);
+    $ret = "";
+    if(is_string($str)){
+      $ret = $str;
+    }else{
+      foreach($str as $msg){
+        $ret .= $msg." ";
+      }
+    }
+    $ret = preg_replace("/ /"," ",$ret);
+    return($ret);
+  }
+
+
+  public function FAI_get_kernels($release)
+  {
+    $xml_msg = 
+      "<xml>".
+      "<header>gosa_get_available_kernel</header>".
+      "<source>GOSA</source>".
+      "<target>GOSA</target>".
+      "<release>".$release."</release>".
+      "</xml>";
+
+    $ret = array();
+    if($this->connect()){
+      $this->o_sock->write($xml_msg);
+      $str = trim($this->o_sock->read());
+
+      /* Check if something went wrong while reading */
+      if($this->o_sock->is_error()){
+        $this->set_error($this->o_sock->get_error());
+        return($ret);
+      }
+
+      $entries = $this->xml_to_array($str);
+      if(isset($entries['XML']) && is_array($entries['XML'])){
+
+        /* Check if returned values represent a valid answer */
+        if(isset($entries['XML'])){
+          if(isset($entries['XML']['ERROR_STRING'])) {
+            $this->set_error($entries['XML']['ERROR_STRING']);
+            new log("debug","GOsa-si",
+                get_class($this)."::".__FUNCTION__, array(),
+                "FAILED error was ".$this->get_error());
+            return($ret);
+          }
+
+          /* Unset header tags */
+          $ret = $entries['XML'];
+          foreach($ret as $key => $entry){
+            if(!preg_match("/^answer/i",$key)){
+              unset($ret[$key]);
+            }
+          }
+        }
+      }
+    }
+    return($ret);
   }
 
 
-  public function FAI_get_packages($release,$attrs, $package = array())
+  public function FAI_get_package_sections($release)
+  {
+    $xml_msg = "<xml><header>gosa_query_packages_list</header><target>GOSA</target><source>GOSA</source>".
+      "<select>distinct section</select>".
+      "<where><clause><phrase><distribution>".$release."</distribution></phrase></clause></where></xml>";
+
+    $ret = array();
+    if($this->connect()){
+      $this->o_sock->write($xml_msg);
+      $str = trim($this->o_sock->read());
+
+      /* Check if something went wrong while reading */
+      if($this->o_sock->is_error()){
+        $this->set_error($this->o_sock->get_error());
+        return($ret);
+      }
+
+      $entries = $this->xml_to_array($str);
+      if(isset($entries['XML']) && is_array($entries['XML'])){
+
+        /* Check if returned values represent a valid answer */
+        if(isset($entries['XML'])){
+          if(isset($entries['XML']['ERROR_STRING'])) {
+            $this->set_error($entries['XML']['ERROR_STRING']);
+            new log("debug","GOsa-si",
+                get_class($this)."::".__FUNCTION__, array(),
+                "FAILED error was ".$this->get_error());
+            return($ret);
+          }
+
+          /* Unset header tags */
+          foreach(array("HEADER","SOURCE","TARGET","SESSION_ID") as $type){
+            if(isset($entries['XML'][$type])){
+              unset($entries['XML'][$type]);
+            }
+          }
+          $ret = $entries['XML'];
+        }
+      }
+    }
+    return($ret);
+  }
+
+
+  public function FAI_get_packages($release,$attrs,$package,$from=-1,$to=-1)
   {
     $this->reset_error();
     $ret = array();
@@ -157,43 +287,32 @@ class gosaSupportDaemon
       $attr.= "<select>".$at."</select>";
     }
 
+    /* If no package is given, search for all */
+    if(!count($package)) $package = array("%");
+
+    /* Create limit tag */
+    if($from == -1){
+      $limit =""; 
+    }else{
+      $limit = "<limit><from>".$from."</from><to>".$to."</to></limit>";
+    }
+
     /* Create list of attributes to fetch */
     $pkgs = ""; 
     foreach($package as $pkg){
-      $pkgs .="
-               <phrase>
-                <operator>like</operator>
-                <package>".$pkg."</package>
-               </phrase>
-             ";
-
+      $pkgs .="<phrase><operator>like</operator><package>".$pkg."</package></phrase>";
     }
 
-    /* Create Daemon query */
-    if(!count($package)){
-      $xml_msg = "<xml><header>gosa_query_packages_list</header><target>GOSA</target><source>GOSA</source>".
-        $attr.
-        "<where><clause><phrase><distribution>".$release."</distribution></phrase></clause></where>
-        </xml>";
-    }else{
-         $xml_msg = "<xml><header>gosa_query_packages_list</header><target>GOSA</target><source>GOSA</source>".
-        $attr.
-        "<where>
-
-          <clause>
-            <phrase>
-              <distribution>".$release."</distribution>
-            </phrase>
-          </clause>
-
-          <clause>
-            <connector>OR</connector>
-                ".$pkgs."
-          </clause>
-        </where>
-        <limit><from>0</from><to>100</to></limit>
-        </xml>";
-    }
+    $xml_msg = "<xml><header>gosa_query_packages_list</header><target>GOSA</target><source>GOSA</source>".
+      $attr.
+      "<where>
+      <clause><phrase><distribution>".$release."</distribution></phrase></clause>
+      <clause><connector>OR</connector>
+      ".$pkgs."
+      </clause>
+      </where>".
+      $limit.
+      "</xml>";
 
     if($this->connect()){
       $this->o_sock->write($xml_msg);
@@ -340,21 +459,21 @@ class gosaSupportDaemon
     }
 
     $xml_msg = 
-"<xml>
+      "<xml>
       <header>gosa_query_jobdb</header>
       <target>GOSA</target>
       <source>GOSA</source>
       ".$tags."
 
       <orderby>".$sort."</orderby>";
-if($from != -1 && $to != -1){
-$xml_msg.= "
-      <limit>
-       <from>".$from."</from>
-       <to>".$to."</to>
-      </limit>";
-}
-$xml_msg.= "
+    if($from != -1 && $to != -1){
+      $xml_msg.= "
+        <limit>
+        <from>".$from."</from>
+        <to>".$to."</to>
+        </limit>";
+    }
+    $xml_msg.= "
       </xml>";
 
     if($this->connect()){
@@ -433,7 +552,7 @@ $xml_msg.= "
       $entries = $this->xml_to_array($str);
       if(isset($entries['XML']) && is_array($entries['XML'])){
         foreach($entries['XML'] as $entry){
-          if(isset($entry['ID'])){
+          if(is_array($entry) && array_key_exists("ID",$entry)){
             $ret[] = $entry['ID'];
           }
         }
@@ -715,7 +834,7 @@ $xml_msg.= "
     @param  String XML string  
     @return Array Returns an array containing the xml structure. 
    */
-  private function xml_to_array($xml)
+  private function xml_to_array($xml,$alternative_method = FALSE)
   {
     $params = array();
     $level = array();
@@ -728,23 +847,47 @@ $xml_msg.= "
     }else{
       xml_parser_free($parser);
 
-      foreach ($vals as $xml_elem) {
-        if ($xml_elem['type'] == 'open') {
-          if (array_key_exists('attributes',$xml_elem)) {
-            list($level[$xml_elem['level']],$extra) = array_values($xml_elem['attributes']);
-          } else {
-            $level[$xml_elem['level']] = $xml_elem['tag'];
+      if($this->use_alternative_xml_parse_method) {
+        $params = $this->build_xml_array($vals);
+      } else {
+
+        foreach ($vals as $xml_elem) {
+          if ($xml_elem['type'] == 'open') {
+            if (array_key_exists('attributes',$xml_elem)) {
+              list($level[$xml_elem['level']],$extra) = array_values($xml_elem['attributes']);
+            } else {
+              $level[$xml_elem['level']] = $xml_elem['tag'];
+            }
           }
-        }
-        if ($xml_elem['type'] == 'complete') {
-          $start_level = 1;
-          $php_stmt = '$params';
-          while($start_level < $xml_elem['level']) {
-            $php_stmt .= '[$level['.$start_level.']]';
-            $start_level++;
+          if ($xml_elem['type'] == 'complete') {
+
+            $start_level = 1;
+            $test2 = &$params;
+            while($start_level < $xml_elem['level']) {
+              $test2 = &$test2[$level[$start_level]];
+              $start_level++;
+            }
+
+            /* Save tag attributes too. 
+               e.g. <tag attr="val">
+             */
+            if(isset($xml_elem['attributes'])){
+              foreach($xml_elem['attributes'] as $name => $value){
+                $test2['ATTRIBUTES'][$name] = $value;
+              }
+            }
+
+            if(!isset($test2[$xml_elem['tag']])){
+              if(isset($xml_elem['value'])){
+                $test2[$xml_elem['tag']] = $xml_elem['value'];
+              }
+            }else{
+              if(!is_array($test2[$xml_elem['tag']])){
+                $test2[$xml_elem['tag']] = array($test2[$xml_elem['tag']]);
+              }
+              $test2[$xml_elem['tag']][] = $xml_elem['value'];
+            }
           }
-          $php_stmt .= '[$xml_elem[\'tag\']] = $xml_elem[\'value\'];';
-          @eval($php_stmt);
         }
       }
     }
@@ -760,6 +903,37 @@ $xml_msg.= "
   }
 
 
+  function build_xml_array(&$vals)
+  {
+    $array = array();
+    while(count($vals)){
+      $key = key($vals);
+      $val = $vals[$key];
+      unset($vals[$key]);
+      if($val['type'] == "close"){
+        return($array);
+      }elseif($val['type']=="open"){
+        $array[$val['tag']][] = $this->build_xml_array($vals);
+      }elseif($val['type'] != "cdata"){
+        $data = array("VALUE" => "","ATTRIBUTES" => "");
+        foreach(array("value" => "VALUE", "attributes" => "ATTRIBUTES") as $name => $attr){
+          if(isset($val[$name])){
+            $data[$attr] = $val[$name];
+          }
+        }
+        $array[$val['tag']][] = $data;
+      }else{
+#print_a($val);
+      }
+    }
+    return($array);
+  }
+
+
+
+
+
+
   /*! \brief  Updates an entry with a set of new values, 
     @param  Integer The ID of the entry, we want to update.
     @param  Array   The variables to update.   
@@ -780,6 +954,7 @@ $xml_msg.= "
 
     $attr = "";
     foreach($data as $key => $value){
+      $key = strtolower($key);
       if(is_array($value)){
         foreach($value as $sub_value){
           $attr.= "<$key>".strtolower($sub_value)."</$key>\n";
@@ -838,8 +1013,29 @@ $xml_msg.= "
   /*! \brief  Returns the number of currently queued objects.
       @return Integer  
    */
-  public function number_of_queued_entries()
+  public function number_of_queued_entries($event_types)
   {
+    $tags = "";
+    foreach($event_types as $type){
+      $tags .= "<phrase><headertag>".$type."</headertag></phrase>";
+    }
+    if(count($event_types) > 1){
+      $tags = "<connector>or</connector>".$tags;
+    }
+    if(count($event_types)){
+      $tags = "<where><clause>".$tags."</clause></where>";
+    }
+
+
+    $xml_msg =
+      "<xml>".
+      "<header>gosa_query_jobdb</header>".
+      "<target>GOSA</target>".
+      "<source>GOSA</source>".
+      "<select> count ID</select>".
+      $tags.
+      "</xml>";
+
     $xml_msg ="<xml><header>gosa_count_jobdb</header><target>GOSA</target><source>GOSA</source></xml>";
     $this->connect();
     if($this->connect()){
@@ -968,15 +1164,33 @@ $xml_msg.= "
         $entries = $this->xml_to_array($str);
         if(isset($entries['XML']) && is_array($entries['XML'])){
           $ret = $entries;
-          if(isset($entries['XML']['ERROR_STRING'])) {
-            $this->set_error($entries['XML']['ERROR_STRING']);
-            new log("debug","DaemonEvent (IDS) ", "gosaSupportDaemon::_send()", array($data=>$data),"FAILED ".$this->get_error());
+          if($this->use_alternative_xml_parse_method) {
+            if(isset($entries['XML'][0]['ERROR_STRING'][0]) && is_array($entries['XML'][0]['ERROR_STRING'])) {
+              $this->set_error($entries['XML'][0]['ERROR_STRING'][0]['VALUE']);
+              new log("debug","DaemonEvent (IDS) ", "gosaSupportDaemon::_send()", 
+                  array($data=>$data),"FAILED ".$this->get_error());
+            }elseif(isset($entries['XML'][0]['ERROR'][0]['VALUE']) && is_array($entries['XML'][0]['ERROR'])){
+              $this->set_error($entries['XML'][0]['ERROR'][0]['VALUE']);
+              new log("debug","DaemonEvent (IDS) ", "gosaSupportDaemon::_send()", 
+                  array($data=>$data),"FAILED ".$this->get_error());
+            }
           }else{
-            new log("debug","DaemonEvent (IDS) ", "gosaSupportDaemon::_send()", array($data=>$data),"SUCCESS");
+            if(isset($entries['XML']['ERROR_STRING'])) {
+              $this->set_error($entries['XML']['ERROR_STRING']);
+              new log("debug","DaemonEvent (IDS) ", "gosaSupportDaemon::_send()", 
+                  array($data=>$data),"FAILED ".$this->get_error());
+            }elseif(isset($entries['XML']['ERROR'])){
+              $this->set_error($entries['XML']['ERROR']);
+              new log("debug","DaemonEvent (IDS) ", "gosaSupportDaemon::_send()", 
+                  array($data=>$data),"FAILED ".$this->get_error());
+            }
           }
+          new log("debug","DaemonEvent (IDS) ", "gosaSupportDaemon::_send()", 
+              array($data=>$data),"SUCCESS");
         }
       }else{
-        new log("debug","DaemonEvent (IDS) ", "gosaSupportDaemon::_send()", array($data=>$data),"Fire & forget, not result.! ".$this->get_error());
+        new log("debug","DaemonEvent (IDS) ", "gosaSupportDaemon::_send()", 
+            array($data=>$data),"Fire & forget, not result.! ".$this->get_error());
       }
     }
     return($ret);
@@ -994,7 +1208,7 @@ $xml_msg.= "
     foreach ($data as $key => $value){
       if(is_array($value)){
         foreach($value as $sub_val){
-          $xml_message.= "<$key>$sub_value</$key>";
+          $xml_message.= "<$key>$sub_val</$key>";
         }
       }else{
         $xml_message.= "<$key>$value</$key>";
@@ -1083,18 +1297,736 @@ $xml_msg.= "
   }
 
 
-static function ping($target)
-{
-  if (tests::is_mac($target)){
-    /* Get communication object */
-    $d= new gosaSupportDaemon(TRUE,0.5);
-    $answer= $d->_send("<xml><header>gosa_ping</header><source>GOSA</source><target>$target</target></xml>", TRUE);
-    return (count($answer) ? TRUE:FALSE);
+  static function ping($target)
+  {
+    if (tests::is_mac($target)){
+      /* Get communication object */
+      $d= new gosaSupportDaemon(TRUE,0.5);
+      $answer= $d->_send("<xml><header>gosa_ping</header><source>GOSA</source><target>$target</target></xml>", TRUE);
+      return (count($answer) ? TRUE:FALSE);
+    }
+    return (FALSE);
   }
 
-  return (FALSE);
-}
 
+
+  /*! \brief  Returns a list of all configured principals. 
+              (Uses the GOsa support daemon instead of the ldap database.)
+      @return Array  A list containing the names of all configured principals.
+   */
+  public function krb5_list_principals($server)
+  {
+    $res = array();  
+
+    /* Check if the given server is a valid mac address
+     */
+    if(!tests::is_mac($server)){
+      trigger_error("The given server address '".$server."' is invalid, it must be a valid mac address");
+      return($ret);
+    }
+
+    /* Prepare request event 
+     */ 
+    $xml_msg = 
+      "<xml>".
+      "<header>gosa_krb5_list_principals</header>".
+      "<source>GOSA</source>".
+      "<target>".$server."</target>".
+      "</xml>";
+    
+    $tmp = $this->_send($xml_msg,TRUE);
+    if(isset($tmp['XML']['PRINCIPAL'])){
+      return($tmp['XML']['PRINCIPAL']);
+    }else{
+      return($res);
+    }
+  }
+
+
+  /*! \brief  Returns the configuration settings for a given principal name. 
+              (Uses the GOsa support daemon instead of the ldap database.)
+      @pram   String The name of the requested principal. (e.g. peter@EXAMPLE.DE)
+      @return Array  A list containing the names of all configured principals.
+   */
+  public function krb5_get_principal($server,$name)
+  {
+    $ret = array();
+
+    /* Check if the given name is a valid request value 
+     */
+    if(!is_string($name) || empty($name)){
+      trigger_error("The given principal name is not of type string or it is empty.");
+      return($ret);
+    }
+
+    /* Check if the given server is a valid mac address
+     */
+    if(!tests::is_mac($server)){
+      trigger_error("The given server address '".$server."' is invalid, it must be a valid mac address");
+      return($ret);
+    }
+
+    /* Prepare request event 
+     */ 
+    $xml_msg = 
+      "<xml>".
+      "<header>gosa_krb5_get_principal</header>".
+      "<principal>".$name."</principal>".
+      "<source>GOSA</source>".
+      "<target>".$server."</target>".
+      "</xml>";
+
+    $res = $this->_send($xml_msg,TRUE);
+    if(isset($res['XML'])){
+      return($res['XML']);
+    }else{
+      return($ret);
+    }
+  }
+
+
+  /*! \brief  Creates a given principal with a set of configuration settings.
+              For a list of configurable attributes have a look at 'krb5_get_principal()'.
+              (Uses the GOsa support daemon instead of the ldap database.)
+      @pram   String The name of the principal to update. (e.g. peter@EXAMPLE.DE)
+      @return Boolean   TRUE on success else FALSE. 
+   */
+  public function krb5_add_principal($server,$name,$values)
+  {
+    $ret = FALSE;  
+
+    /* Check if the given name is a valid request value 
+     */
+    if(!is_string($name) || empty($name)){
+      trigger_error("The given principal name is not of type string or it is empty.");
+      return($ret);
+    }
+    if(!is_array($values)){
+      trigger_error("No valid update settings given. The parameter must be of type array and must contain at least one entry");
+      return($ret);
+    }
+
+    /* Check if the given server is a valid mac address
+     */
+    if(!tests::is_mac($server)){
+      trigger_error("The given server address '".$server."' is invalid, it must be a valid mac address");
+      return($ret);
+    }
+
+    $attrs = "";
+    foreach($values as $key => $value){
+      if(empty($key) || is_numeric($key)){
+        trigger_error("Invalid configuration attribute given '".$key."=".$value."'.");
+        return($ret);
+      }
+      $key = strtolower($key);
+      if(is_array($value)){
+        foreach($value as $val){
+          $attrs.= "<$key>$val</$key>\n";
+        }
+      }else{
+        $attrs.= "<$key>$value</$key>\n";
+      }
+    }
+
+    /* Prepare request event 
+     */ 
+    $xml_msg = 
+      "<xml>".
+      "<header>gosa_krb5_create_principal</header>".
+      "<principal>".$name."</principal>".
+      $attrs.
+      "<source>GOSA</source>".
+      "<target>".$server."</target>".
+      "</xml>";
+
+    return($this->_send($xml_msg,TRUE) == TRUE && !$this->is_error());
+  }
+
+
+  function krb5_ramdomize_key($server,$name)  
+  {
+    /* Prepare request event 
+     */ 
+    $xml_msg = 
+      "<xml>".
+      "<header>gosa_krb5_randomize_key</header>".
+      "<principal>".$name."</principal>".
+      "<source>GOSA</source>".
+      "<target>".$server."</target>".
+      "</xml>";
+
+    return($this->_send($xml_msg,TRUE) == TRUE && !$this->is_error());
+  }
+  
+
+
+  /*! \brief  Updates a given principal with a set of configuration settings.
+              For a list of configurable attributes have a look at 'krb5_get_principal()'.
+              (Uses the GOsa support daemon instead of the ldap database.)
+      @pram   String The name of the principal to update. (e.g. peter@EXAMPLE.DE)
+      @return Boolean   TRUE on success else FALSE. 
+   */
+  public function krb5_set_principal($server,$name,$values)
+  {
+    $ret = FALSE;  
+
+    /* Check if the given name is a valid request value 
+     */
+    if(!is_string($name) || empty($name)){
+      trigger_error("The given principal name is not of type string or it is empty.");
+      return($ret);
+    }
+    if(!is_array($values) || !count($values)){
+      trigger_error("No valid update settings given. The parameter must be of type array and must contain at least one entry");
+      return($ret);
+    }
+
+    /* Check if the given server is a valid mac address
+     */
+    if(!tests::is_mac($server)){
+      trigger_error("The given server address '".$server."' is invalid, it must be a valid mac address");
+      return($ret);
+    }
+
+    $attrs = "";
+    foreach($values as $key => $value){
+      if(empty($key) || is_numeric($key)){
+        trigger_error("Invalid configuration attribute given '".$key."=".$value."'.");
+        return($ret);
+      }
+      $key = strtolower($key);
+      if(is_array($value)){
+        foreach($value as $val){
+          $attrs.= "<$key>$val</$key>\n";
+        }
+      }else{
+        $attrs.= "<$key>$value</$key>\n";
+      }
+    }
+
+    /* Prepare request event 
+     */ 
+    $xml_msg = 
+      "<xml>".
+      "<header>gosa_krb5_modify_principal</header>".
+      "<principal>".$name."</principal>".
+      $attrs.
+      "<source>GOSA</source>".
+      "<target>".$server."</target>".
+      "</xml>";
+
+    return($this->_send($xml_msg,TRUE) == TRUE && !$this->is_error());
+  }
+
+
+  /*! \brief  Removes the given principal.
+              (Uses the GOsa support daemon instead of the ldap database.)
+      @pram   String The name of the principal. (e.g. peter@EXAMPLE.DE)
+      @return Boollean   TRUE on success else FALSE
+   */
+  public function krb5_del_principal($server,$name)
+  {
+    $ret = FALSE;  
+
+    /* Check if the given name is a valid request value 
+     */
+    if(!is_string($name) || empty($name)){
+      trigger_error("The given principal name is not of type string or it is empty.");
+      return($ret);
+    }
+
+    /* Check if the given server is a valid mac address
+     */
+    if(!tests::is_mac($server)){
+      trigger_error("The given server address '".$server."' is invalid, it must be a valid mac address");
+      return($ret);
+    }
+
+    /* Prepare request event 
+     */ 
+    $xml_msg = 
+      "<xml>".
+      "<header>gosa_krb5_del_principal</header>".
+      "<principal>".$name."</principal>".
+      "<source>GOSA</source>".
+      "<target>".$server."</target>".
+      "</xml>";
+    
+    return($this->_send($xml_msg,TRUE) == TRUE && !$this->is_error());
+  }
+
+
+  /*! \brief  Returns a list of configured password policies.
+              (Uses the GOsa support daemon instead of the ldap database.)
+      @return Array A list of all configured password policies.
+   */
+  public function krb5_list_policies($server)
+  {
+    $res = array();  
+
+    /* Check if the given server is a valid mac address
+     */
+    if(!tests::is_mac($server)){
+      trigger_error("The given server address '".$server."' is invalid, it must be a valid mac address");
+      return($ret);
+    }
+
+    /* Prepare request event 
+     */ 
+    $xml_msg = 
+      "<xml>".
+      "<header>gosa_krb5_list_policies</header>".
+      "<source>GOSA</source>".
+      "<target>".$server."</target>".
+      "</xml>";
+    
+    $res = $this->_send($xml_msg,TRUE);
+    
+    /* Check if there are results for POLICY 
+     */
+    if(isset($res['XML']['POLICY'])){
+      
+      /* Ensure that we return an array 
+       */
+      $tmp = $res['XML']['POLICY'];
+      if(!is_array($tmp)){
+        $tmp = array($tmp);
+      }
+      return($tmp);
+    }else{
+      return(array());
+    }
+  }
+
+
+  /*! \brief  Returns a list of configured password policies.
+              (Uses the GOsa support daemon instead of the ldap database.)
+      @return Array The policy settings for the given policy name.
+   */
+  public function krb5_get_policy($server,$name)
+  {
+    $res = array();  
+
+    /* Check if the given name is a valid request value 
+     */
+    if(!is_string($name) || empty($name)){
+      trigger_error("The given policy name is not of type string or it is empty.");
+      return($ret);
+    }
+
+    /* Check if the given server is a valid mac address
+     */
+    if(!tests::is_mac($server)){
+      trigger_error("The given server address '".$server."' is invalid, it must be a valid mac address");
+      return($ret);
+    }
+
+    /* Prepare request event 
+     */ 
+    $xml_msg = 
+      "<xml>".
+      "<header>gosa_krb5_get_policy</header>".
+      "<policy>".$name."</policy>".
+      "<source>GOSA</source>".
+      "<target>".$server."</target>".
+      "</xml>";
+
+    /* Possible attributes */
+    $attrs = array("MASK","POLICY","PW_HISTORY_NUM","PW_MAX_LIFE",
+        "PW_MIN_CLASSES","PW_MIN_LENGTH","PW_MIN_LIFE","POLICY_REFCNT");
+
+  
+    $tmp = $this->_send($xml_msg,TRUE);
+    if(isset($tmp['XML'])){
+      foreach($attrs as $attr){
+        if(isset($tmp['XML'][$attr])){
+          $ret[$attr] = $tmp['XML'][$attr];
+        }else{
+          $ret[$attr] = "";
+        }
+      }
+    }
+    return($ret);
+  }
+
+  
+  /*! \brief  Creates a new policy with a given set of configuration settings.
+              For a list of configurable attributes have a look at 'krb5_get_policy()'.
+              (Uses the GOsa support daemon instead of the ldap database.)
+      @pram   String The name of the policy to update.
+      @pram   Array  The attributes to update
+      @return Boolean   TRUE on success else FALSE. 
+   */
+  public function krb5_add_policy($server,$name,$values)
+  {
+    $ret = FALSE;  
+
+    /* Check if the given name is a valid request value 
+     */
+    if(!is_string($name) || empty($name)){
+      trigger_error("The given policy name is not of type string or it is empty.");
+      return($ret);
+    }
+    if(!is_array($values) || !count($values)){
+      trigger_error("No valid policy settings given. The parameter must be of type array and must contain at least one entry");
+      return($ret);
+    }
+
+    /* Check if the given server is a valid mac address
+     */
+    if(!tests::is_mac($server)){
+      trigger_error("The given server address '".$server."' is invalid, it must be a valid mac address");
+      return($ret);
+    }
+
+
+    /* Transform array into <xml>
+     */
+    $attrs = "";
+    foreach($values as $id => $value){
+      if(empty($id) || is_numeric($id)){
+        trigger_error("Invalid policy configuration attribute given '".$id."=".$value."'.");
+        return($ret);
+      }
+      $id = strtolower($id);
+      $attrs.= "<$id>$value</$id>\n";
+    }
+
+    /* Prepare request event 
+     */ 
+    $xml_msg = 
+      "<xml>".
+      "<header>gosa_krb5_create_policy</header>".
+      "<policy>".$name."</policy>".
+      $attrs.
+      "<source>GOSA</source>".
+      "<target>".$server."</target>".
+      "</xml>";
+
+    return($this->_send($xml_msg,TRUE) == TRUE && !$this->is_error());
+  }
+
+
+  /*! \brief  Updates a given policy with a set of configuration settings.
+              For a list of configurable attributes have a look at 'krb5_get_policy()'.
+              (Uses the GOsa support daemon instead of the ldap database.)
+      @pram   String The name of the policy to update.
+      @return Boolean   TRUE on success else FALSE. 
+   */
+  public function krb5_set_policy($server,$name,$values)
+  {
+    $ret = FALSE;  
+
+    /* Check if the given name is a valid request value 
+     */
+    if(!is_string($name) || empty($name)){
+      trigger_error("The given policy name is not of type string or it is empty.");
+      return($ret);
+    }
+    if(!is_array($values) || !count($values)){
+      trigger_error("No valid policy settings given. The parameter must be of type array and must contain at least one entry");
+      return($ret);
+    }
+
+    /* Check if the given server is a valid mac address
+     */
+    if(!tests::is_mac($server)){
+      trigger_error("The given server address '".$server."' is invalid, it must be a valid mac address");
+      return($ret);
+    }
+
+    /* Transform array into <xml>
+     */
+    $attrs = "";
+    foreach($values as $id => $value){
+      if(preg_match("/^policy$/i",$id)) continue;
+      if(empty($id) || is_numeric($id)){
+        trigger_error("Invalid policy configuration attribute given '".$id."=".$value."'.");
+        return($ret);
+      }
+      $id = strtolower($id);
+      $attrs.= "<$id>$value</$id>\n";
+    }
+
+    /* Prepare request event 
+     */ 
+    $xml_msg = 
+      "<xml>".
+      "<header>gosa_krb5_modify_policy</header>".
+      "<policy>".$name."</policy>".
+      $attrs.
+      "<source>GOSA</source>".
+      "<target>".$server."</target>".
+      "</xml>";
+
+    return($this->_send($xml_msg,TRUE) == TRUE && !$this->is_error());
+  }
+
+  
+  /*! \brief  Removes the given password policy. 
+              (Uses the GOsa support daemon instead of the ldap database.)
+      @return Boolean  TRUE on success else FALSE
+   */
+  public function krb5_del_policy($server,$name)
+  {
+    $ret = FALSE;
+
+    /* Check if the given server is a valid mac address
+     */
+    if(!tests::is_mac($server)){
+      trigger_error("The given server address '".$server."' is invalid, it must be a valid mac address");
+      return($ret);
+    }
+
+    /* Check if the given name is a valid request value 
+     */
+    if(!is_string($name) || empty($name)){
+      trigger_error("The given policy name is not of type string or it is empty.");
+      return($ret);
+    }
+
+    /* Prepare request event 
+     */ 
+    $xml_msg = 
+      "<xml>".
+      "<header>gosa_krb5_del_policy</header>".
+      "<policy>".$name."</policy>".
+      "<source>GOSA</source>".
+      "<target>".$server."</target>".
+      "</xml>";
+    return($this->_send($xml_msg,TRUE) == TRUE && !$this->is_error());
+  }
+
+
+  /*! \brief  Sets the password of for the given principal.
+              (Uses the GOsa support daemon instead of the ldap database.)
+      @param  String  The servers mac
+      @param  String  The principals name
+      @param  String  $the new password.   
+      @return Boolean  TRUE on success else FALSE
+   */
+  public function krb5_set_password($server,$name,$password)
+  {
+    $ret = FALSE;
+
+    /* Check if the given server is a valid mac address
+     */
+    if(!tests::is_mac($server)){
+      trigger_error("The given server address '".$server."' is invalid, it must be a valid mac address");
+      return($ret);
+    }
+
+    /* Check if the given name is a valid request value
+     */
+    if(!is_string($name) || empty($name)){
+      trigger_error("The given principal name is not of type string or it is empty.");
+      return($ret);
+    }
+
+    /* Prepare request event
+     */
+    $xml_msg =
+      "<xml>".
+      "<header>gosa_krb5_set_password</header>".
+      "<principal>".$name."</principal>".
+      "<password>".$password."</password>".
+      "<source>GOSA</source>".
+      "<target>".$server."</target>".
+      "</xml>";
+    return($this->_send($xml_msg,TRUE) == TRUE && !$this->is_error());
+  }
+
+
+  /*! \brief  Returns log file informations for a given mac address 
+      @param  $mac The mac address to fetch logs for.
+      @retrun Array A Multidimensional array containing log infos.
+        MAC_00_01_6C_9D_B9_FA['install_20080311_090900'][0]=debconf.log
+        MAC_00_01_6C_9D_B9_FA['install_20080311_090900'][1]=syslog.log
+                               install_20080313_144450   ...
+   */
+  public function get_log_info_for_mac($mac)
+  {
+    $xml_msg = "
+      <xml>
+      <header>gosa_show_log_by_mac</header>
+      <target>GOSA</target>
+      <source>GOSA</source>
+      <mac>".$mac."</mac>
+      </xml>";
+
+    $res = $this->_send($xml_msg,TRUE);
+    $ret = array();
+    if(isset($res['XML'])){
+
+      /* Filter all entry that look like this 
+          MAC_00_01_6C_9D_B9_FA
+       */
+      foreach($res['XML'] as $name => $entry){
+        if(preg_match("/^MAC/",$name)){
+
+          /* Get list of available log files 
+           */
+          foreach($entry as $log_date){
+            $xml_msg2 = "<xml> 
+              <header>gosa_show_log_files_by_date_and_mac</header> 
+              <target>GOSA</target> 
+              <source>GOSA</source>                        
+              <date>".$log_date."</date> 
+              <mac>".$mac."</mac> 
+              </xml>";
+
+            $ret[$mac][$log_date] = array();
+            $res = $this->_send($xml_msg2,TRUE);
+            $ret[$mac][$log_date]['DATE_STR']  = $log_date; 
+            $ret[$mac][$log_date]['REAL_DATE'] = strtotime(preg_replace("/[^0-9]*/","",$log_date));
+            if(isset($res['XML']['SHOW_LOG_FILES_BY_DATE_AND_MAC'])){
+              $ret[$mac][$log_date]['FILES']     = $res['XML']['SHOW_LOG_FILES_BY_DATE_AND_MAC'];
+            }
+          }
+        }
+      }
+    }
+    return($ret);
+  }
+
+  public function get_log_file($mac,$date,$file)
+  {
+    $xml_msg ="
+      <xml> 
+      <header>gosa_get_log_file_by_date_and_mac</header> 
+      <target>GOSA</target> 
+      <source>GOSA</source>
+      <date>".$date."</date> 
+      <mac>".$mac."</mac> 
+      <log_file>".$file."</log_file>
+      </xml>";
+
+    $res = $this->_send($xml_msg,TRUE);
+    if(isset($res['XML'][strtoupper($file)])){
+      return(base64_decode($res['XML'][strtoupper($file)]));
+    }
+    return("");
+  }
+
+
+
+
+
+  /*****************
+   * DAK - Functions 
+   *****************/
+
+  /*! \brief  Returns all currenlty queued entries for a given DAK repository 
+      @param  ...
+      @return Array   All queued entries.
+   */
+  public function DAK_keyring_entries($server)  
+  {
+    /* Ensure that we send the event to a valid mac address 
+     */
+    if(!is_string($server) || !tests::is_mac($server)){
+      trigger_error("No valid mac address given '".$server."'.");
+      return;
+    }
+
+    /* Create query
+     */
+    $xml_msg = "<xml> 
+                  <header>gosa_get_dak_keyring</header> 
+                  <target>".$server."</target> 
+                  <source>GOSA</source>
+                </xml>";
+        
+    $res = $this->_send($xml_msg,TRUE);
+
+    /* Check if there are results for POLICY
+     */
+    if(isset($res['XML'])){
+      $ret = array();
+      foreach($res['XML'] as $key => $entry){
+        if(preg_match("/^ANSWER/",$key)){
+          $ret[] = $entry;
+        }
+      }
+      return($ret);
+    }else{
+      return(array());
+    }
+  }
+
+
+  /*! \brief  Imports the given key into the specified keyring (Servers mac address)
+      @param  String  The servers mac address 
+      @param  String  The gpg key.
+      @return Boolean TRUE on success else FALSE 
+   */
+  public function DAK_import_key($server,$key)  
+  {
+    /* Ensure that we send the event to a valid mac address 
+     */
+    if(!is_string($server) || !tests::is_mac($server)){
+      trigger_error("No valid mac address given '".$server."'.");
+      return;
+    }
+
+    /* Check if there is some cleanup required before importing the key.
+        There may be some Header lines like:
+        -----BEGIN PGP PUBLIC KEY BLOCK-----   Version: GnuPG v1.4.6 (GNU/Linux)
+     */
+    if(preg_match("/".normalizePreg("BEGIN PGP PUBLIC KEY BLOCK")."/",$key)){
+
+      /* Remove header */
+      $key = preg_replace("/^.*\n\n/sim","",$key);
+      /* Remove footer */
+      $key = preg_replace("/-----.*$/sim","",$key);
+    }elseif (!preg_match('%^[a-zA-Z0-9/+]*={0,2}$%', $key)) {
+      
+      /* Encode key if it is raw.
+       */
+      $key = base64_encode($key);
+    }
+
+    /* Create query
+     */
+    $xml_msg = "<xml> 
+                  <header>gosa_import_dak_key</header> 
+                  <target>".$server."</target> 
+                  <key>".$key."</key> 
+                  <source>GOSA</source>
+                </xml>";
+        
+    $res = $this->_send($xml_msg,TRUE);
+    return($this->is_error());
+  }
+
+
+  /*! \brief Removes a key from the keyring on the given server. 
+      @param  String  The servers mac address 
+      @param  String  The gpg key uid.
+      @return Boolean TRUE on success else FALSE 
+   */
+  public function DAK_remove_key($server,$key)  
+  {
+    /* Ensure that we send the event to a valid mac address 
+     */
+    if(!is_string($server) || !tests::is_mac($server)){
+      trigger_error("No valid mac address given '".$server."'.");
+      return;
+    }
+
+    /* Create query
+     */
+    $xml_msg = "<xml> 
+                  <header>gosa_remove_dak_key</header> 
+                  <target>".$server."</target> 
+                  <keyid>".$key."</keyid> 
+                  <source>GOSA</source>
+                </xml>";
+       
+    $res = $this->_send($xml_msg,TRUE);
+    return($this->is_error());
+  }
 }
 
 // vim:tabstop=2:expandtab:shiftwidth=2:filetype=php:syntax:ruler: