ldap-site-mngmt: actualized WebIF and DHCPConfig Generationscript

git-svn-id: http://svn.openslx.org/svn/openslx/trunk@1340 95ad53e4-c205-0410-b2fa-d234c58c8868

1 files changed, 294 insertions, 132 deletions

diff --git a/ldap-site-mngmt/generation-scripts/dhcp_generate.pl b/ldap-site-mngmt/generation-scripts/dhcp_generate.pl
index f8c2cfb6..5623cc96 100644
--- a/ldap-site-mngmt/generation-scripts/dhcp_generate.pl
+++ b/ldap-site-mngmt/generation-scripts/dhcp_generate.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 
 # Generate ISC DHCP Configuration File
-# 
+#
 # Reads DHCP Config Data form LDAP Directory and generates an 
 # include file "dhcp.master.inc" included in dhcpd.conf with: 
 # - Definitions of User-defined DHCP Options
@@ -14,26 +14,47 @@ use strict;
 use warnings;
 #use diagnostics;
 
+#use LSM::dhcpgen;
 use Net::LDAP;
 use Net::LDAP::LDIF;
+use Getopt::Std;
+
+#$Getopt::Std::STANDARD_HELP_VERSION;
+our $VERSION = "1.10";
+
 
 # Configuration Variables for Perl-Script
-our ( $ldaphost, $basedn, $userdn, $passwd, $dhcpdn, $dhcpdconfpath, $dhcpdconffile );
+our ( $ldaphost, $basedn, $userdn, $passwd, $dhcpdn, $dhcpdconfpath, $dhcpdconffile, $opt_a, $opt_h, $opt_v );
 # Read Configuration Variables ...
 require "dhcpgen.conf.pl";
-#use dhcpgenconfig;
 
-my ( $ldap, $mesg, $mesg2 );
+my ( $ldap, $mesg, $failoverpeer, @searchbases );
+
+#use LSM::dhcpgen;
+my $acteptime = time();
+my $acttime = localtime();
+getopts('ahv');
+
+
+if ($opt_h){ print "HILFE Text\n"; exit (1); }
+if ($opt_a){ print "Generate all Include Files:\n\n";}
+
 
 # Bind with LDAP Server
-$ldap = Net::LDAP->new( $ldaphost ) or die "$@";
+$ldap = Net::LDAP->new( $ldaphost, debug => 0 ) or die "$@";
 $mesg = $ldap->bind( $userdn, password => $passwd );
 $mesg->code && die $mesg->error;
 
+my @dhcpunits = get_dhcpunits();
+@searchbases = searchbases($acteptime);
+#print @searchbases;
 
 mkdir "$dhcpdconfpath/includes";
-open DATEI, "> $dhcpdconfpath/includes/dhcp.master.inc";
 
+
+#################################################
+# DHCP MASTER INCLUDE FILE
+my $writemaster;
 my @dhcpdnarray = split /,/,$dhcpdn;
 my $aurdn = $dhcpdnarray[2];
 my @auarray = split /=/,$aurdn;
@@ -42,141 +63,103 @@ my $srvrdn = $dhcpdnarray[0];
 my @srvarray = split /=/,$srvrdn;
 my $srv = $srvarray[1];
 
-# File Header (general Informations)
-printf DATEI "#####################  DHCP SERVICE CONFIG  ############################################ \n#\n";
-printf DATEI "# DHCP Service: \t\t %s \n", $srv;
-printf DATEI "# Administrative Unit: \t\t %s \n#\n", $au;
-printf DATEI "# [ %s ]\n#\n", $dhcpdn;
-printf DATEI "######################################################################################## \n\n\n";
+# File Header
+$writemaster .= "# DHCP Config Master Include File \"dhcp.master.inc\"\n# DHCP Service: $srv\n# AU: $au\n# (DN: $dhcpdn)\n# generated: $acttime\n# Unix: $acteptime\n\n";
 
+# LDAP Search: DHCP Service Object
+my $dhcpsrventry = get_dhcpservice_object($ldap,$dhcpdn);
 
-# Ldapsearch on DHCP Service Object
-$mesg = $ldap->search(base => $dhcpdn,
-											scope => 'base',
-											filter => '(objectclass=dhcpService)');
-#Net::LDAP::LDIF->new( \*STDOUT,"w" )->write( $mesg->entries );
-$mesg->code && die $mesg->error;
-my $dhcpservice = $mesg->count or die "DHCP Service Object does not exist in the System";
-my $dhcpsrventry = $mesg->entry(0);
-
-printf DATEI "######################\n# Option Definitions\n######################\n\n";
-# write Definitions of user/self-defined DHCP Options
-if ($dhcpsrventry->exists( 'OptionDefinition' )) {
-	my @optdefinitions = $dhcpsrventry->get_value( 'OptionDefinition' );
-	foreach my $optdef ( @optdefinitions) {
-		printf DATEI "%s\n", $optdef;
+# Definitions for user/self-defined DHCP Options
+$writemaster .= "\n######################\n# Option Definitions\n######################\n\n";
+if ($dhcpsrventry->exists('OptionDefinition')) {
+	my @optdefinitions = $dhcpsrventry->get_value('OptionDefinition');
+	foreach my $optdef (@optdefinitions) {
+		$writemaster .= "$optdef\n";
 	}
 }
-# Failover Information of DHCP Service
-my $failoverpeer;
+
+# Failover Information of DHCP Service, needed for DHCP Pool Declarations later 
+#my $failoverpeer;
 if ($dhcpsrventry->exists( 'dhcpFailoverPeer' )) {
 	$failoverpeer = $dhcpsrventry->get_value( 'dhcpFailoverPeer' );
 }
 
-
+# Global DHCP Options (global Scope)
+$writemaster .= "\n\n######################\n# Global Options\n######################\n\n";
 my $indent = "";
-printf DATEI "\n\n######################\n# Global Options\n######################\n\n";
-# write DHCP Options in global Scope
-dhcpoptions( $dhcpsrventry, $indent );
-printf DATEI "\n";
-
+$writemaster .= dhcpoptions( $dhcpsrventry, $indent );
 
+# Include Directives (one for each DHCP Unit in LDAP Database)
+$writemaster .= "\n\n######################\n# Includes\n######################\n\n";
+foreach my $dhcpunit ( @dhcpunits ){
+	$writemaster .= "include \"$dhcpdconfpath/includes/dhcp.".lc $dhcpunit->get_value('ou').".inc\";\n";
+	#$writemaster .= "include \"includes/dhcp.".lc $dhcpunit->get_value('ou').".inc\";\n";
+}
 
-####################################
-# DHCP SUBNETS
-
-# ldapsearch on Subnet Objects referencing to DHCP Service Object
-$mesg = $ldap->search(base=>$basedn,
-							scope => 'sub',
-							filter => '(&(objectclass=dhcpSubnet)(dhcphlpcont:dn:='.$dhcpdn.'))');
-#Net::LDAP::LDIF->new( \*STDOUT,"w" )->write( $mesg->entries );
-$mesg->code && die $mesg->error;
-my @subnets = $mesg->sorted('cn');
+# Write File
+print "Generate DHCP Master Include File\n";
+open DATEI, "> $dhcpdconfpath/includes/dhcp.master.inc";
+print DATEI $writemaster;
+close DATEI;
+# Writing DHCP MASTER INCLUDE FILE Completed 
+#################################################
 
-# write Subnet Declarations
-printf DATEI "\n\n######################\n# DHCP Subnets\n######################\n\n";
 
-foreach my $subnetentry ( @subnets ) {
-	my $subnetdn = $subnetentry->dn;
-	my $subnet = $subnetentry->get_value( 'cn' );
-	my $netmask = $subnetentry->get_value( 'dhcpoptnetmask' );
-	printf DATEI "subnet %s netmask %s {\n", $subnet, $netmask;
-	# write DHCP Options in Subnet Scope
-	my $optindent = "  ";
-	dhcpoptions($subnetentry,$optindent);
+#################################################
+# DHCP INCLUDE FILES, one for each AdministrativeUnit
+foreach my $searchbase ( @searchbases ){
 	
-	# write Pool Declarations in Subnet Declaration
-	# ldapsearch on Pool Objects referencing to DHCP Subnet Object
-	$mesg2 = $ldap->search(base=>$basedn,
-								scope => 'sub',
-								filter => '(&(objectclass=dhcpPool)(dhcphlpcont:dn:='.$subnetdn.'))');
-	#Net::LDAP::LDIF->new( \*STDOUT,"w" )->write( $mesg->entries );
-	$mesg2->code && die $mesg2->error;
-	my @pools = $mesg2->sorted('cn');
+	my $writeinc;
+	my $lastchange;
+	my $includedatei = lc "dhcp.$searchbase->{ou}.inc";
+	my $audn = $searchbase->{dn};
+	my $dhcpmtime = $searchbase->{dhcpmtime};
+	#print "$includedatei\n";
+	#print "$audn\n";
 	
-	foreach my $poolentry ( @pools ) {
-		printf DATEI "%spool {\n", $optindent;
-		# write DHCP Options in Pool Scope
-		my $poolindent = "    ";
-		if ( $failoverpeer ){
-			printf DATEI "%sfailover peer \"%s\";\n", $poolindent, $failoverpeer;
-			printf DATEI "%sdeny dynamic bootp clients;\n", $poolindent;
-		}
-		if ($poolentry->exists( 'dhcpRange' )) {
-			#foreach my $ranges ( @) {
-			my @range = split /_/,$poolentry->get_value( 'dhcpRange' );
-			printf DATEI "%srange %s %s;\n", $poolindent, $range[0], $range[1];
-		}
-		dhcpoptions($poolentry,$poolindent);
-		printf DATEI "%s}\n", $optindent;
+	# Include File Header
+	$writeinc .= "# DHCP Config Include File \"$includedatei\"\n# AU: $searchbase->{ou}\n# (DN: $audn)\n# generated: $acttime\n# Unix: $acteptime\n\n";
+
+	###########################
+	# DHCP SUBNETS (and POOLS)
+	# LDAP Search: DHCP Subnet Objects referencing to DHCP Service Object
+	my @subnets = get_dhcpsubnet_objects($ldap,$audn,$dhcpdn);
+	# write Subnet declarations
+	$writeinc .= "\n\n######################\n# DHCP Subnets\n######################\n\n";
+	foreach my $subnetentry ( @subnets ) {	
+		$writeinc .= dhcpsubnet($subnetentry);
 	}
 	
-	# close Subnet Declaration
-	printf DATEI "}\n\n";
-}
-
-
-####################################
-# DHCP HOSTS
-
-# ldapsearch on DHCP Host Objects referencing to DHCP Service Object
-$mesg = $ldap->search(base=>$basedn,
-		scope => 'sub',
-		filter => '(&(objectclass=dhcpHost)(dhcphlpcont:dn:='.$dhcpdn.'))');
-		#Net::LDAP::LDIF->new( \*STDOUT,"w" )->write( $mesg->entries );
-		$mesg->code && die $mesg->error;
-my @hosts = $mesg->sorted('dn');
-
-# write Host Declarations
-printf DATEI "\n\n######################\n# DHCP Hosts\n######################\n";
-
-# grouping Hosts by Administrative Units (AU)
-my $hostau = "";
-foreach my $hostentry ( @hosts ) {
-	
-	# für jede AU eigener Abschnitt (oder abzweigung in eigene includedatei ...)
-	my $hostdn = $hostentry->dn();
-	my @dnarray = split /,/,$hostdn;
-	my @auarray = split /=/,$dnarray[2];
-	my $hostauactual = $auarray[1];
-	if ( $hostau ne $hostauactual) {
-		# hier neues Datei Handle und neuer Pfad falls eigene includedatei ...
-		printf DATEI "\n################################################\n# AU: %s \n", $hostauactual;
-		$hostau = $hostauactual;
+	###########################
+	# DHCP HOSTS
+	# LDAP Search: DHCP Host Objects referencing to DHCP Service Object
+	my @hosts = get_dhcphost_objects($ldap,$audn,$dhcpdn);
+	# write Host Declarations
+	$writeinc .= "\n\n######################\n# DHCP Hosts\n######################\n";
+	foreach my $hostentry ( @hosts ) {
+		$writeinc .= dhcphost($hostentry);
 	}
-	# DHCP Options in Host Scope
-	dhcphost($hostentry);
+	
+	# Write File
+	if ($dhcpmtime == 0){ $lastchange = "not changed yet!"; }
+		else{ $lastchange = "last change: ".localtime($dhcpmtime); }
+	print "Generate Include-File $includedatei ($lastchange)\n";
+	open DATEI, "> $dhcpdconfpath/includes/$includedatei";
+	print DATEI $writeinc;
+	close DATEI;
 }
+# Writing DHCP INCLUDE FILES Completed
+#######################################
 
 
-close DATEI;
-
 # LDAP unbind
 $mesg = $ldap->unbind;
 
+
 exit (0);
 
 
+
 ###################################################################################################
 # Subroutines
 ###############
@@ -185,9 +168,10 @@ exit (0);
 sub dhcpoptions {
 	my $entry = shift;
 	my $indent = shift;
-	my @atts = $entry->attributes;	
+	my @atts = $entry->attributes;
+	my $output = "";
 	
-	# DHCP Optionen mit 'option' vorne dran
+	# DHCP Option beginning with with 'option'
 	my @options1 = grep /dhcpopt/, @atts;
 	#printf "options: @options1\n";
 	foreach my $option ( @options1 ){
@@ -195,13 +179,13 @@ sub dhcpoptions {
 			my $value = $entry->get_value( $option );
 			$option =~ s/dhcpopt//;
 			if ( $option eq "Domain-name"){
-				printf DATEI "%soption %s \"%s\";\n", $indent, lc($option), $value;
+				$output .= $indent."option ".lc($option)." \"$value\";\n";
 			}else{
-				printf DATEI "%soption %s %s;\n", $indent, lc($option), $value;
+				$output .= $indent."option ".lc($option)." $value;\n";
 			}
 		}
 	}
-	# DHCP Optionen
+	# DHCP Options without 'option'
 	my @options2 = grep /dhcpOpt/, @atts;
 	#printf "Options: @options2\n";
 	foreach my $option ( @options2 ){
@@ -209,40 +193,218 @@ sub dhcpoptions {
 			my $value = $entry->get_value( $option );
 			$option =~ s/dhcpOpt//;
 			if ( $option eq "Filename"){
-				printf DATEI "%s%s \"%s\";\n", $indent, lc($option), $value;
+				$output .= $indent.lc($option)." \"$value\";\n";
 			}else{
-				printf DATEI "%s%s %s;\n", $indent, lc($option), $value;
+				$output .= $indent.lc($option)." $value;\n";
 			}
 		}
 	}
+	
+	return $output;
+}
+
+
+# write DHCP Pool declaration (+ specific Options), Parameter: DHCP Object LDAP Entry
+sub dhcppool {
+	my $entry = shift;
+	my $indent = shift;
+	my @atts = $entry->attributes;
+	my $output = "";
+	# open Pool Declaration
+	$output .= $indent."pool {\n";
+	# write DHCP Options in Pool Scope
+	my $poolindent = $indent."  ";
+	if ( $failoverpeer ){
+		$output .= $poolindent."failover peer \"$failoverpeer\";\n";
+		$output .= $poolindent."deny dynamic bootp clients;\n";
+	}
+	if ($entry->exists( 'dhcpRange' )) {
+		#foreach my $ranges ( @) {
+		my @range = split /_/,$entry->get_value( 'dhcpRange' );
+		$output .= $poolindent."range $range[0] $range[1];\n";
+	}
+	$output .= dhcpoptions($entry,$poolindent);
+	# close Pool Declaration
+	$output .= "$indent}\n";
+	
+	return $output;
 }
 
 
-# write DHCP Host specific Options, Parameter: DHCP Object LDAP Entry
+# write DHCP Subnet declaration (specific Options), Parameter: DHCP Object LDAP Entry
+sub dhcpsubnet {
+	my $entry = shift;
+	my @atts = $entry->attributes;
+	my $output = "";
+	
+	my $subnetdn = $entry->dn;
+	my $subnet = $entry->get_value( 'cn' );
+	my $netmask = $entry->get_value( 'dhcpoptnetmask' );
+	# open Subnet Declaration
+	$output .= "subnet $subnet netmask $netmask {\n";
+	# write DHCP Options in Subnet Scope
+	my $optindent = "  ";
+	$output .= dhcpoptions($entry,$optindent);
+	# write Pool Declarations in Subnet Declaration
+	# ldapsearch on Pool Objects referencing to DHCP Subnet Object
+	$mesg = $ldap->search(base=>$basedn,
+				scope => 'sub',
+				filter => '(&(objectclass=dhcpPool)(dhcphlpcont:dn:='.$subnetdn.'))');
+	#Net::LDAP::LDIF->new( \*STDOUT,"w" )->write( $mesg->entries );
+	$mesg->code && die $mesg->error;
+	my @pools = $mesg->sorted('cn');
+	foreach my $poolentry ( @pools ) {
+		$output .= dhcppool($poolentry,$optindent);
+	}
+	# close Subnet Declaration
+	$output .= "}\n\n";
+
+	return $output;
+}
+
+
+# write DHCP Host declaration (specific Options), Parameter: DHCP Object LDAP Entry
 sub dhcphost {
 	my $entry = shift;
 	my @atts = $entry->attributes;
+	my $output = "";
 	
-	printf DATEI "\nhost %s {\n", lc $entry->get_value( 'hostname' );
+	$output .= "\nhost ".lc $entry->get_value('hostname')." {\n";
+	#printf DATEI "\nhost %s {\n", lc $entry->get_value( 'hostname' );
 	# Host specific DHCP Options
-	if ($entry->exists( 'hwaddress' )) {
-		printf DATEI "  hardware ethernet %s;\n", $entry->get_value( 'hwaddress' );
+	if ($entry->exists('hwaddress')) {
+		$output .= "  hardware ethernet ".$entry->get_value('hwaddress').";\n";
 	}
-	if ($entry->exists( 'dhcpoptfixed-address' )) {
+	if ($entry->exists('dhcpoptfixed-address')) {
 		if ( $entry->get_value('dhcpoptfixed-address') eq "ip" ){
-			my @ip = split /_/, $entry->get_value( 'ipaddress' );
-			printf DATEI "  fixed-address %s;\n", lc $ip[0];
+			my @ip = split /_/, $entry->get_value('ipaddress');
+			$output .= "  fixed-address ".lc $ip[0].";\n";
 		}
 		if ( $entry->get_value('dhcpoptfixed-address') eq "hostname" ){
-			printf DATEI "  fixed-address %s.%s;\n", lc $entry->get_value( 'hostname' ), lc $entry->get_value( 'domainname' );
+			$output .= "  fixed-address ".lc $entry->get_value('hostname').".".lc $entry->get_value('domainname').";\n";
 		}
 	}
 	my @hwoptions = grep /Hw-/, @atts;
 	foreach my $hwoption ( @hwoptions ){
-		printf DATEI "  option %s \"%s\";\n", lc($hwoption), $entry->get_value($hwoption);
+		$output .= "  option ".lc($hwoption)." \"".$entry->get_value($hwoption)."\";\n";
 	}
 	# remaining DHCP Options
 	my $optindent = "  ";
-	dhcpoptions ($entry, $optindent);
-	printf DATEI "}\n";
+	$output .= dhcpoptions ($entry, $optindent);
+	$output .= "}\n";
+	
+	return $output;
+}
+
+sub get_dhcpservice_object {
+	my $ldap = shift;
+	my $basedn = shift;
+	# Ldapsearch on DHCP Service Object
+	
+	my $mesg = $ldap->search(base => $basedn,
+					scope => 'base',
+					filter => '(objectclass=dhcpService)');
+	#Net::LDAP::LDIF->new( \*STDOUT,"w" )->write( $mesg->entries );
+	$mesg->code && die $mesg->error;
+	my $dhcpservice = $mesg->count or die "DHCP Service Object does not exist in the System";
+	my $dhcpsrventry = $mesg->entry(0);
+	
+	return $dhcpsrventry;
+}
+
+# all Subnet Objects of one AU Container
+sub get_dhcpsubnet_objects {
+	my $ldap = shift;
+	my $audn = shift;
+	my $dhcpdn = shift;
+	
+	# ldapsearch on Subnet Objects referencing to DHCP Service Object
+	$mesg = $ldap->search(base=>"cn=dhcp,".$audn,
+				scope => 'sub',
+				filter => '(&(objectclass=dhcpSubnet)(dhcphlpcont:dn:='.$dhcpdn.'))');
+	#Net::LDAP::LDIF->new( \*STDOUT,"w" )->write( $mesg->entries );
+	$mesg->code && die $mesg->error;
+	my @dhcpsubnets = $mesg->sorted('cn');
+	
+	return @dhcpsubnets;
+}
+
+# all Host Objects of one AU Container
+sub get_dhcphost_objects {
+	my $ldap = shift;
+	my $audn = shift;
+	my $dhcpdn = shift;
+	
+	# ldapsearch on DHCP Host Objects referencing to DHCP Service Object
+	$mesg = $ldap->search(base=>"cn=computers,".$audn,
+			scope => 'sub',
+			filter => '(&(objectclass=dhcpHost)(dhcphlpcont:dn:='.$dhcpdn.'))');
+	#Net::LDAP::LDIF->new( \*STDOUT,"w" )->write( $mesg->entries );
+	$mesg->code && die $mesg->error;
+	my @dhcphosts = $mesg->sorted('dn');
+	
+	return @dhcphosts;
+}
+
+# all AU containers
+sub get_dhcpunits {
+	#my $ldap = shift;
+	#my $basedn = shift;
+
+	# ldapsearch on Subnet Objects referencing to DHCP Service Object
+	$mesg = $ldap->search(base=>$basedn,
+				scope => 'sub',
+				filter => '(objectclass=administrativeUnit)',
+				#filter => '(&(objectclass=administrativeUnit)(dhcpMTime>='.$yday.'))',
+				attrs   =>  [ 'ou','dhcpMTime' ] );
+	#Net::LDAP::LDIF->new( \*STDOUT,"w" )->write( $mesg->entries );
+	$mesg->code && die $mesg->error;
+	my @adminunits = $mesg->entries;
+	
+	return @adminunits;
+}
+
+
+# Generate Searchbases-Array for AdminUnit-specific LDAP Search on DHCP Objects 
+sub searchbases {
+	my $acteptime = shift;  ### falls noch plausibiltäts-test: acteptime > dhcpmtime
+	my $opta = $opt_a;
+	#print "opt_a: $opta \n";
+	my @adunits = get_dhcpunits();
+	if ( $opta ){
+		# All Admin Units
+		foreach my $adunit (@adunits){
+			push @searchbases, { dn => $adunit->dn, ou => $adunit->get_value('ou'), dhcpmtime => $adunit->get_value('dhcpMTime') };
+		}
+	}else{
+		# Only Admin Units which DHCP Data changed since last generation
+		foreach my $adunit (@adunits){
+			my $changetime = "1";
+			my $dhandle = 1;
+			open DAT, "< $dhcpdconfpath/includes/dhcp.".lc $adunit->get_value('ou').".inc"  #or open DAT and my $incgen = 1; #or die "Can't open/generate Include File";
+			#print $incgen;
+			or $dhandle = 0;
+			if ($dhandle){
+				while (<DAT>){
+					chomp;
+					if (/^# Unix: (\S+)/){ $changetime = $1; }
+				}
+				close DAT;
+			}
+			my $actualize = "";
+			if ($adunit->exists( 'dhcpMTime' ) && $adunit->get_value('dhcpMTime') >= $changetime ) {
+				#printf "%s - %s\n", $adunit->dn, $adunit->get_value('dhcpMTime');
+				$actualize = "needs to be actualized\n";
+				push @searchbases, { dn => $adunit->dn, ou => $adunit->get_value('ou'), dhcpmtime => $adunit->get_value('dhcpMTime') };
+			}
+			if ($opt_v){
+				print $adunit->get_value('ou')."\n";
+				print "dhcpmodify:  ".$adunit->get_value('dhcpMTime')."\n";
+				print "lastchange:  $changetime\n";
+				print $actualize;
+				print "------------------------\n";
+			}
+		}
+	}
+	return @searchbases;
 }
\ No newline at end of file