[Fai-commit] r4641 - people/eartoast/addons/class-reference

[glaweh-guest at alioth.debian.org]

Author: glaweh-guest
Date: 2007-10-19 23:13:22 +0000 (Fri, 19 Oct 2007)
New Revision: 4641

Modified:
   people/eartoast/addons/class-reference/fai-classes-log
Log:
clean up the output... this breaks the merger for now, but...


Modified: people/eartoast/addons/class-reference/fai-classes-log
===================================================================
--- people/eartoast/addons/class-reference/fai-classes-log	2007-10-19 19:44:27 UTC (rev 4640)
+++ people/eartoast/addons/class-reference/fai-classes-log	2007-10-19 23:13:22 UTC (rev 4641)
@@ -78,9 +78,20 @@
 # print the classes and the places referencing them
 sub dump_class_refs_full {
 	foreach my $class (sort keys %config_classes) {
-		print "class: $class\n";
-		foreach my $file (sort @{$config_classes{$class}}) {
-			print "  $file\n";
+		print "$class\n";
+		my $lastdate='';
+		my $lasthost='';
+		foreach (sort @{$config_classes{$class}}) {
+			my ($date,$host)=split;
+			if ($date ne $lastdate) {
+				print "\t$date\n";
+				$lastdate=$date;
+				$lasthost='';
+			}
+			if ($host ne $lasthost) {
+				print "\t\t$host\n";
+				$lasthost=$host;
+			}
 		}
 	}
 }
@@ -89,7 +100,7 @@
 sub dump_class_refs_host_last_seen {
 	my $type = shift;
 	foreach my $class (sort keys %config_classes) {
-		print "class: $class\n";
+		print "$class\n";
 		my %last_seen;
 		my @output;
 
@@ -104,7 +115,21 @@
 		}
 		# print out a list, indented with two spaces, sorted by date and hostname
 		# of the last-seen data
-		print "  ".join("\n  ",sort values %last_seen)."\n";
+		#print "  ".join("\n  ",sort values %last_seen)."\n";
+		my $lastdate='';
+		my $lasthost='';
+		foreach (sort values %last_seen) {
+			my ($date,$host)=split;
+			if ($date ne $lastdate) {
+				print "\t$date\n";
+				$lastdate=$date;
+				$lasthost='';
+			}
+			if ($host ne $lasthost) {
+				print "\t\t$host\n";
+				$lasthost=$host;
+			}
+		}
 	}
 }
 
@@ -116,8 +141,14 @@
 		s# .*$##;
 		push @refs,"$_ $class";
 	}
-	foreach my $class_seen (sort @refs) {
-		print "$class_seen\n";
+	my $lastdate='';
+	foreach (sort @refs) {
+		my ($date,$class)=split;
+		if ($date ne $lastdate) {
+			print "$date\n";
+			$lastdate=$date;
+		}
+		print "\t$class\n";
 	}
 }
 sub HELP_MESSAGE {