path: root/ldap-site-mngmt/webinterface/lib/rbs_management_functions.php

<?php

/**  
* rbs_management_functions.php - Remote Boot Services Management Funktions-Bibliothek
* Diese Bibliothek enthält alle Funktionen für die Verwaltung von RBS Diensten, 
* PXE Konfigurationsdateien ihren Menüeinträgen und ihren Genersichen Bootmenüeinträgen
*
* @param string ldapError
* @param resource ds
* 
* @author Tarik Gasmi
* @copyright Tarik Gasmi
*/  


# Konfiguration laden
require_once("config.inc.php");

$ldapError = null;


#######################################################################
# Funktionen zur Verwaltung von RBS Diensten
# 

#
# Neues RBS Dienst-Objekt anlegen 
#
function add_rbs($rbsDN,$rbscn,$rbsoffer,$server,$atts){
	
	global $ds, $suffix, $auDN, $ldapError;
	
	$rbsentry ['objectclass'][0] = "RBService";
	$rbsentry ['objectclass'][1] = "top";
	$rbsentry ['cn'] = $rbscn;
	$rbsentry ['rbsofferdn'] = $rbsoffer;
	if (count($atts) != 0){
		foreach (array_keys($atts) as $key){
			if ($atts[$key] != ""){
				$rbsentry[$key] = $atts[$key];
			}
		}
	}
	if (count($server) != 0){
		if ($server['tftp'] != ""){$rbsentry ['tftpserverip'] = $server['tftp'];}
		if ($server['nfs'] != ""){$rbsentry ['nfsserverip'] = $server['nfs'];}
		if ($server['nbd'] != ""){$rbsentry ['nbdserverip'] = $server['nbd'];}
	}
	# print_r($rbsentry); echo "<br>";
	print_r($rbsDN); echo "<br>";
	
	# Standard Fallback Menü anlegen
	$pxecn = "PXE_Fallback-No-Config";
	$pxeDN = "cn=".$pxecn.",".$rbsDN;
	$filename = array("fallback-nopxe");
	$ldapuri = LDAP_HOST."/dn=cn=computers,".$auDN; # wirklich nötig??
	$mecn = "Fallback-Text";
	$meDN = "cn=".$mecn.",".$pxeDN;
	$meattribs = array("label" => "Keine PXE Boot-Konfiguration fuer die aktuelle Zeit definiert",
							"kernel" => "menu.c32",
							"submenulink" => "fallback-nopxe");
	
	if (ldap_add($ds,$rbsDN,$rbsentry)){
		if (add_pxe($pxeDN,$pxecn,$rbsDN,"",array(),$filename,$ldapuri)){
			if (add_me($meDN,$mecn,"","01",$meattribs,$pxeDN)){
			return 1;
			}
			else{
				return 0;
			}
		}
		else{
			return 0;
		}
	}
	else{
		return 0;
	}
}

#
# "RBS-Angebote" im Verzeichnis suchen, die die AU ($auDN) nutzen darf,
# Suche nach passenden RBS-Offer-DNs
#
function get_rbsoffers($auDN){

	global $ds, $suffix, $auDN, $ldapError;
	
	$attribs = array("dn","rbsofferdn");
	if(!($result = uniLdapSearch($ds, "ou=RIPM,".$suffix, "(objectclass=RBService)", $attribs, "dn", "sub", 0, 0))) {
 		# redirect(5, "", $ldapError, FALSE);
  		echo "no search";
  		die;
	}
	else{
		$result = ldapArraySauber($result);
		#print_r($result);echo "<br><br>";
		
		$rbs_offers = array();
		foreach ($result as $rbs){
			#print_r(strpos($auDN, $rbs['rbsofferdn']));echo "<br>";
			if ( strpos($auDN, $rbs['rbsofferdn']) !== false )
				$rbs_offers [] = $rbs['dn'];
			}
		}
		#print_r($rbs_offers);echo "<br><br>";
		return $rbs_offers;
}


#
# Beim Löschen von RBS-Objekten muss dafür gesorgt werden dass keine PXEs mehr auf 
# diese zeigen, Ref. Abhängigkeiten 
# 
function clean_up_del_rbs($rbsDN){

	global $ds, $suffix, $auDN, $ldapError;
	
	$attribs = array("dn");
	if(!($result = uniLdapSearch($ds, "ou=RIPM,".$suffix, "(&(objectclass=PXEConfig)(rbservicedn=$rbsDN))", $attribs, "dn", "sub", 0, 0))) {
 		# redirect(5, "", $ldapError, FALSE);
  		echo "no search";
  		die;
	}
	$result = ldapArraySauber($result);
	#print_r($result); echo "<br><br>";
	$delentry ['rbservicedn'] = $rbsDN;
	foreach ($result as $item){
		#print_r($item['dn']); echo "<br>";
		ldap_mod_del($ds, $item['dn'], $delentry); 
	}
	
	if(!($result = uniLdapSearch($ds, "ou=RIPM,".$suffix, "(&(objectclass=Host)(hlprbservice=$rbsDN))", $attribs, "dn", "sub", 0, 0))) {
 		# redirect(5, "", $ldapError, FALSE);
  		echo "no search";
  		die;
	}
	$result = ldapArraySauber($result);
	#print_r($result); echo "<br><br>";
	$delentry2 ['hlprbservice'] = $rbsDN;
	foreach ($result as $item){
		#print_r($item['dn']); echo "<br>";
		ldap_mod_del($ds, $item['dn'], $delentry2); 
	}
	
}

#
# beim ändern des CN (DN) des RBS muss dieses in allen referenzierenden PXEConfig-Objekten
# nachvollzogen werden, Ref. Abhängigkeiten
#
function adjust_rbs_dn($newrbsDN, $rbsDN){

	global $ds, $suffix, $auDN, $ldapError;
	
	if(!($result = uniLdapSearch($ds, "ou=RIPM,".$suffix, "(&(objectclass=PXEConfig)(rbservicedn=$rbsDN))", array("dn"), "dn", "sub", 0, 0))) {
 		# redirect(5, "", $ldapError, FALSE);
  		echo "no search";
  		die;
	}
	$result = ldapArraySauber($result);
	$modentry ['rbservicedn'] = $newrbsDN;
	foreach ($result as $item){
		ldap_mod_replace($ds, $item['dn'], $modentry);
	}
	
   if(!($result = uniLdapSearch($ds, "ou=RIPM,".$suffix, "(&(objectclass=Host)(hlprbservice=$rbsDN))", array("dn"), "dn", "sub", 0, 0))) {
 		# redirect(5, "", $ldapError, FALSE);
  		echo "no search";
  		die;
	}
	$result = ldapArraySauber($result);
	$modentry2 ['hlprbservice'] = $newrbsDN;
	foreach ($result as $item){
		ldap_mod_replace($ds, $item['dn'], $modentry2);
	}
}

function rbs_adjust_host($hostDN, $rbs){
   
   global $ds, $suffix, $ldapError;
   
   $modentry ['rbservicedn'] = $rbs;
   
   $pxearray = get_pxeconfigs($hostDN,array("dn"));
   if ( count($pxearray) != 0 ){
      foreach ( $pxearray as $item ){
         if ($result = ldap_mod_replace($ds,$item['dn'],$modentry)){
            return 1;
         }else{
            return 0;
         }
      }
   }
}

# Bei Änderung der TFTP Server IP eines RBS-Objekts entsprechend DHCP Option next-server
# in den Hostobjekten anpassen und DHCP modify time in den AUs aktualisieren
function adjust_dhcpnextserver($tftpIP, $rbsDN){

   global $ds, $suffix, $ldapError;
   
   if(!($result = uniLdapSearch($ds, "ou=RIPM,".$suffix, "(&(objectclass=Host)(hlprbservice=$rbsDN))", array("dn"), "dn", "sub", 0, 0))) {
 		# redirect(5, "", $ldapError, FALSE);
  		echo "no search";
  		die;
	}
	$result = ldapArraySauber($result);
	$host_au = array();
	if ($tftpIP == ""){
	   $deltftpentry ['dhcpoptnext-server'] = array();
      foreach ($result as $item){
   		ldap_mod_del($ds, $item['dn'], array());
	   	$expdn = array_slice(ldap_explode_dn($item['dn'], 0), 3);
	   	$host_au [] = implode(",", $expdn);
	   }  
	}else{
	   $modtftpentry ['dhcpoptnext-server'] = $tftpIP;
	   foreach ($result as $item){
   		ldap_mod_replace($ds, $item['dn'], $modtftpentry);
	   	$expdn = array_slice(ldap_explode_dn($item['dn'], 0), 3);
	   	$host_au [] = implode(",", $expdn);
	   }
	}
	if ( count($host_au) != 0 ){
	   $host_au = array_unique($host_au);
	   update_dhcpmtime($host_au);
	}
}

# Bei Änderung des PXE Init Boot File eines RBS-Objekts entsprechend DHCP Option Filename
# in den Hostobjekten anpassen 
function adjust_dhcpfilename($initbootfile, $rbsDN, $type){

   global $ds, $suffix, $ldapError;
   
   if(!($result = uniLdapSearch($ds, "ou=RIPM,".$suffix, "(&(objectclass=Host)(hlprbservice=$rbsDN))", array("dn"), "dn", "sub", 0, 0))) {
 		# redirect(5, "", $ldapError, FALSE);
  		echo "no search";
  		die;
	}
	$result = ldapArraySauber($result);
	$host_au = array();
	if ($type == "add"){
   	$modentry ['dhcpoptfilename'] = $initbootfile;
   	foreach ($result as $item){
   		ldap_mod_add($ds, $item['dn'], $modentry);
   	}
   }
   elseif ($type == "delete"){
      $modentry ['dhcpoptfilename'] = array();
   	foreach ($result as $item){
   		ldap_mod_del($ds, $item['dn'], $modentry);
   	}
   }
   elseif ($type == "replace"){
      $modentry ['dhcpoptfilename'] = $initbootfile;
   	foreach ($result as $item){
   		ldap_mod_replace($ds, $item['dn'], $modentry);   		
		   $expdn = array_slice(ldap_explode_dn($item['dn'], 0), 3);
		   $host_au [] = implode(",", $expdn);
   	}
   }
   if ( count($host_au) != 0 ){
	   $host_au = array_unique($host_au);
	   update_dhcpmtime($host_au);
	}
}

# IP Adresse eines Host ändern -> RBS TFTP Server IP anpassen (inkl. dhcpNext-server)
function adjust_hostip_tftpserverip($oldip,$newip){

   global $ds, $suffix, $ldapError, $auDN;

   if(!($result = uniLdapSearch($ds, "cn=rbs,".$auDN, "(&(objectclass=RBService)(tftpserverip=$oldip))", array("dn","tftpserverip"), "dn", "sub", 0, 0))) {
 		# redirect(5, "", $ldapError, FALSE);
  		echo "no search";
  		die;
	}
	$result = ldapArraySauber($result);
	if (count($result) != 0){
   	foreach ($result as $item){
	      if ($newip == ""){
	         $delentry ['tftpserverip'] = array();
	         ldap_mod_del($ds, $item['dn'], $delentry);
	         adjust_dhcpnextserver("", $item['dn']);
	      }else{
	         $modentry ['tftpserverip'] = $newip;
	         ldap_mod_replace($ds, $item['dn'], $modentry);
	         adjust_dhcpnextserver($newip, $item['dn']);
	      }
	   }  
	}
}

# 
# Sucht den Hostname zu einer IP im Rechnerteilbaum der AU
# Verwaltung der am RBS beteiligten Server
# 
function get_hostname_from_ip($ip){
	
	global $ds, $suffix, $ldapError, $auDN;
	
	$ipp = array($ip,$ip);
	$ipaddress = implode('_',$ipp); 
	if(!($result = uniLdapSearch($ds, "cn=computers,".$auDN, "(&(objectclass=Host)(ipaddress=$ipaddress))", array("dn","hostname"), "", "list", 0, 0))) {
 		# redirect(5, "", $ldapError, FALSE);
  		echo "no search";
  		die;
	}
	$result = ldapArraySauber($result);
	#print_r($result);
	$host ['hostname'] = $result[0]['hostname'];
	$host ['dn'] = $result[0]['dn'];
	return $host;
}


###############################################################################
# Funktionen zur Verwaltung von PXE Bootmenüs 

#
# Überprüft, ob sich die angegebene Timerange auf einer der 4 Spezifikationsstufen mit anderen
# Timeranges des Objkets überschneidet
#
function check_timerange_pxe($pxeday,$pxebeg,$pxeend,$nodeDN,$excepttimerange){

	global $ds, $suffix, $auDN, $ldapError;
	
	$brothers = get_pxeconfigs($nodeDN,array("timerange"));
	# keine Überschneidungen pro Spez.Ebene zulassen
	# print_r($brothers); echo "<br><br>";
	if (count($brothers) != 0){
		
		$intersect = 0;
		foreach ($brothers as $item){
			
			# Fall das Brother mehrere TimeRanges hat
			if (count($item['timerange']) > 1){
				foreach ($item['timerange'] as $tr){
					
					if($tr != $excepttimerange){
						$exptime = explode('_',$tr);
						$bpxeday = $exptime[0];
						$bpxebeg = $exptime[1];
						$bpxeend = $exptime[2];
						#echo "pxeday:"; print_r($pxeday); echo "<br>";
						#echo "bpxeday:"; print_r($bpxeday); echo "<br>";
						#echo "pxebeg:"; print_r($pxebeg); echo "<br>";
						#echo "bpxebeg:"; print_r($bpxebeg); echo "<br>";
						#echo "pxeend:"; print_r($pxeend); echo "<br>";
						#echo "bpxeend:"; print_r($bpxeend); echo "<br>";
						
						if ($pxeday == $bpxeday){
							if ( $pxebeg > $bpxeend || $pxeend < $bpxebeg ){
								# keine Überschneidung in der Uhrzeit
							}else{
								# Uhrzeit Überschneidung
								$intersect = 1;
								$intersecttr = $bpxeday."_".$bpxebeg."_".$bpxeend;
								break;
							}
						}
					}
					
				}
			}
			# Fall das Brother nur eine TimeRange hat
			elseif (count($item['timerange']) == 1){
			
				if($item['timerange'] != $excepttimerange){
					$exptime = explode('_',$item['timerange']);
					$bpxeday = $exptime[0];
					$bpxebeg = $exptime[1];
					$bpxeend = $exptime[2];
					#echo "pxeday:"; print_r($pxeday); echo "<br>";
					#echo "bpxeday:"; print_r($bpxeday); echo "<br>";
					#echo "pxebeg:"; print_r($pxebeg); echo "<br>";
					#echo "bpxebeg:"; print_r($bpxebeg); echo "<br>";
					#echo "pxeend:"; print_r($pxeend); echo "<br>";
					#echo "bmcend:"; print_r($bpxeend); echo "<br>";
					
					if ($pxeday == $bpxeday){
						if ( $pxebeg > $bpxeend || $pxeend < $bpxebeg ){
							# keine Überschneidung in der Uhrzeit
						}else{
							# Uhrzeit Überschneidung
							$intersect = 1;
							$intersecttr = $bpxeday."_".$bpxebeg."_".$bpxeend;
							break;
						}
					}
				}
			}
		}
		#echo "intersect: "; print_r($intersect); echo "<br>";
		if ($intersect == 1){
			echo "<b>[".$pxeday."_".$pxebeg."_".$pxeend."]</b> &uuml;berschneidet sich mit der 
					bereits existierende <b>Time Range [".$intersecttr."]</b> !<br><br>";
			return 0;
		}else{
			return 1;
		}
	}else{
		return 1;
	}
}


#
# Neues PXE Bootmenü anlegen 
#
function add_pxe($pxeDN,$pxecn,$rbsDN,$pxetimerange,$pxeattribs,$filenames,$conffile){
	
	global $ds, $suffix, $auDN, $ldapError;
	
	$pxeentry ['objectclass'][0] = "PXEConfig";
	$pxeentry ['objectclass'][1] = "top";
	$pxeentry ['cn'] = $pxecn;
	$pxeentry ['rbservicedn'] = $rbsDN;
	#$pxeentry ['ldapuri'] = $ldapuri;
	if ($conffile != ""){$pxeentry ['fileuri'] = $conffile;}
	if (count($filenames) > 1 ){
		for ($i=0; $i<count($filenames); $i++){
			$pxeentry ['filename'][$i] = $filenames[$i];
		}
	}
	if (count($filenames) == 1){
		$pxeentry ['filename'] = $filenames[0];
	}
	if ($pxetimerange != ""){$pxeentry ['timerange'] = $pxetimerange;}
	if (count($pxeattribs) != 0){
		foreach (array_keys($pxeattribs) as $key){
			if ($pxeattribs[$key] != ""){
				$pxeentry[$key] = $pxeattribs[$key];
			}
		}
	}
	#print_r($pxeentry); echo "<br>";
	print_r($pxeDN); echo "<br>";
	if (ldap_add($ds,$pxeDN,$pxeentry)){
		return 1;
	}
	else{
		return 0;
	}
}


#
# PXE CN (DN) ändern, Teilbaum verschieben
#
function modify_pxe_dn($pxeDN, $newpxeDN){

	global $ds, $suffix, $ldapError;
	
	if (move_subtree($pxeDN,$newpxeDN)){
		return 1;
	}else{
		return 0;
	}
}


#
# Timerange eines PXEConfig-Objekts ändern
#
function change_pxe_timerange($pxeDN,$newpxeDN,$pxetimerange){
	
	global $ds, $suffix, $auDN, $ldapError;
	
	# move tree
	if (move_subtree($pxeDN,$newpxeDN)){
		# timerange ändern
		$entrypxe ['timerange'] = $pxetimerange;
		if (ldap_mod_replace($ds,$newpxeDN,$entrypxe)){
			return 1;
		}
		else{
			return 0;
		}
	}
	else{
		return 0;
	} 
}

#
# nach dem Löschen von PXEConfig Menueinträgen müssen Menüpositionen in der PXEConfig 
# angepasst werden (Lücken schließen) 
# 
function cleanup_menupositions($pxeDN){
	
	global $ds, $suffix, $auDN, $ldapError;
	
	$me = get_menuentries($pxeDN,array("dn","menuposition"));
	if (count($me) != 0){
		foreach ($me as $item){	
			$pos = $item['menuposition'];
			$pos = preg_replace ( '/0([0-9])/', '$1', $pos);
			$menpos[$pos] = $item['dn'];
			ksort($menpos);
		}
		$p = 1;
		foreach ($menpos as $item){
			if (strlen($p) == 1){
				$p = "0".$p;
			}
			$entry ['menuposition'] = $p;
			ldap_mod_replace($ds,$item,$entry);
			$p++; 
		}	
	}
}

#
# Hilfsfunktion zur Verarbeitung von Menüpositionen in PXEConfigs
# 
function increment_menupositions($pxeDN,$menpos){
	
	global $ds, $suffix, $auDN, $ldapError;
	
	if (strlen($menpos) == 1){
		$menpos = "0".$menpos;
	}
	$meDN = get_dn_menuposition($pxeDN,$menpos);
	if ($meDN != ""){
		# zur Berechnung erst führende Nullen weg
		$menpos = preg_replace ( '/0([0-9])/', '$1', $menpos);
		$newpos = $menpos+1;
		increment_menupositions($pxeDN,$newpos);
		# zum Eintragen führenden Nullen wieder dazu
		if (strlen($newpos) == 1){
			$newpos = "0".$newpos;
		}
		$entry ['menuposition'] = $newpos;
		ldap_mod_replace($ds,$meDN,$entry);
	}
}

#
# Neuen Menüeintrag anlegen 
#
function add_me($meDN,$mecn,$gbmDN,$menpos,$meattribs,$pxeDN){
	
	global $ds, $suffix, $auDN, $ldapError;
	
	$mentry ['objectclass'][0] = "MenuEntry";
	$mentry ['objectclass'][1] = "top";
	$mentry ['cn'] = $mecn;
	if($gbmDN != ""){$mentry ['genericmenuentrydn'] = $gbmDN;}
	$mentry ['menuposition'] = $menpos;
	if (count($meattribs) != 0){
		foreach (array_keys($meattribs) as $key){
			if ($meattribs[$key] != ""){
				$mentry[$key] = $meattribs[$key];
			}
		}
	}
	print_r($mentry); echo "<br>";
	print_r($meDN); echo "<br>";
	increment_menupositions($pxeDN,$menpos); # andere jeweils um 1 erhöhen
	if (ldap_add($ds,$meDN,$mentry)){
		return 1;
	}
	else{
		return 0;
	}
}


#
# Menu Entry CN (DN) ändern
#
function modify_me_dn($meDN, $newmeDN){

	global $ds, $suffix, $ldapError;
	
	if (move_subtree($meDN,$newmeDN)){
		return 1;
	}else{
		return 0;
	}
}



#####################################################################
# Verwaltung von GBM
#

function add_gbm($gbmDN,$gbmcn,$attribs){

	global $ds, $suffix, $auDN, $ldapError;
	
	$entry ['objectclass'][0] = "MenuEntry";
	$entry ['objectclass'][1] = "top";
	$entry ['cn'] = $gbmcn;
	if (count($attribs) != 0){
		foreach (array_keys($attribs) as $key){
			if ($attribs[$key] != ""){
				$entry[$key] = $attribs[$key];
			}
		}
	}
	print_r($entry); echo "<br>";
	print_r($gbmDN); echo "<br>";
	if (ldap_add($ds,$gbmDN,$entry)){
		return 1;
	}
	else{
		return 0;
	}
}


# 
# beim löschen von GBMs muss dafür gesorgt werden, dass keine MEs mehr auf diese zeigen, 
# Ref.Abhängigkeiten  (sonst gibts Fehler beim PXE-Perlskript und die Nutzer wissen nicht dass ihr PXE Menü nicht
# mehr funktioniert, so kann man durch Fehlen des gbmDN wissen das es kein GBM mehr zu diesem ME gibt
#
function clean_up_del_gbm($gbmDN){

	global $ds, $suffix, $auDN, $ldapError;
	
	$attribs = array("dn","genericmenuentrydn");
	if(!($result = uniLdapSearch($ds, "ou=RIPM,".$suffix, "(&(objectclass=MenuEntry)(genericmenuentrydn=$gbmDN))", $attribs, "dn", "sub", 0, 0))) {
 		# redirect(5, "", $ldapError, FALSE);
  		echo "no search";
  		die;
	}
	$result = ldapArraySauber($result);
	#print_r($result); echo "<br><br>";
	$delentry ['genericmenuentrydn'] = $gbmDN;
	foreach ($result as $item){
		#print_r($item['dn']); echo "<br>";
		ldap_mod_del($ds, $item['dn'], $delentry); 
	}
	
}


#
# beim ändern des CN (DN) des GBM, Meüeinträge anpassen, Ref. Abhängigkeiten
#
function adjust_gbm_dn($newgbmDN, $gbmDN){

	global $ds, $suffix, $auDN, $ldapError;
	
	if(!($result = uniLdapSearch($ds, "ou=RIPM,".$suffix, "(&(objectclass=MenuEntry)(genericmenuentrydn=$gbmDN))", array("dn"), "dn", "sub", 0, 0))) {
 		# redirect(5, "", $ldapError, FALSE);
  		echo "no search";
  		die;
	}
	$result = ldapArraySauber($result);
	$modentry ['genericmenuentrydn'] = $newgbmDN;
	foreach ($result as $item){
		ldap_mod_replace($ds, $item['dn'], $modentry);
	}
}



function alternative_rbservices($rbsDN){

   global $ds, $suffix, $auDN, $ldapError;
   
   $alt_rbs = array();
   
   $rbsarray = get_rbsoffers($auDN);
   # print_r($rbsarray); echo "<br>";
   if (count($rbsarray) != 0){
      for ($i=0; $i < count($rbsarray); $i++){
         if ($rbsarray[$i] != $rbsDN){
		      $exp = ldap_explode_dn ( $rbsarray[$i], 1 );
   	      $alt = array ("dn" => $rbsarray[$i], "cn" => $exp[0], "au" => " / ".$exp[2]);
   	      $alt_rbs[] = $alt; 
         }
      }
   }
   
   return $alt_rbs;
}

?>