From a3ba9bf178acd55301a742aaf444b954efbf85ef Mon Sep 17 00:00:00 2001
From: "Ronald G. Minnich" <rminnich@gmail.com>
Date: Fri, 15 Nov 2002 05:09:21 +0000
Subject: [PATCH] status web page builder

---
 util/buildstatus/buildstatus.pl | 153 ++++++++++++++++++++++++++++++++
 1 file changed, 153 insertions(+)
 create mode 100644 util/buildstatus/buildstatus.pl

diff --git a/util/buildstatus/buildstatus.pl b/util/buildstatus/buildstatus.pl
new file mode 100644
index 0000000000..86759eaec7
--- /dev/null
+++ b/util/buildstatus/buildstatus.pl
@@ -0,0 +1,153 @@
+#owner:	Ron Minnich
+#email:	rminnich@lanl.gov
+#status: unstable
+#explanation: 
+#flash-types: 
+#payload-types: 
+#OS-types: 
+#OS-issues:
+#console-types:
+#vga:
+#last-known-good: 0/0/0000
+#Comments: 
+#Links:
+#Mainboard-revision: 
+#AKA: 
+$mainboardcount = 0;
+
+sub mainboard {
+	my $sname = shift(@_);
+	my $mainboard = $sname;
+	$mainboard =~ s/.*src.mainboard.(.*).STATUS/$1/;
+	open(STATUS, $sname) || die("Can' open $name: $!");
+	$mainboardlist[$mainboardcount] = $mainboard;
+	$mainboardcount++;
+	LOOP: while(<STATUS>) {
+		chop;
+		next LOOP if (/^#.*/) ;
+		($varname, $value) = split(/:/);
+		# no lead spaces/tabs on value!
+		$value =~ s/^[ \t]+//;
+		# @ gets eaten up ...
+		$value =~ s/@/AT_AT_SIGN/;
+		$varname =~ s/-/_/g;
+		$cmd = " \$$varname { '$mainboard' } = \"$value\"";
+		#print "Command: $cmd\n";
+		eval $cmd;
+	}
+}
+
+sub cell {
+  my $item = shift(@_);
+  print "<td>$item</td>\n";
+}
+sub dumpstatus {
+  print "<table BORDER COLS=8 WIDTH=\"100%\" NOSAVE>\n";
+  print "<caption> <h2>LinuxBIOS Mainboard Status </h2></caption>\n";
+  print "<tr>\n";
+  cell("Name");
+  cell("Revision");
+  cell("AKA");
+  cell("Status");
+  cell("owner");
+  cell("email");
+  cell("Last Known Good");
+  cell("Explanation");
+  print "</tr>\n";
+	foreach $i (0 .. $#mainboardlist) {
+	  print "<tr>\n";
+		$board = $mainboardlist[$i];
+	        cell($board);
+	  cell($Mainboard_revision{$board});
+	        cell($AKA{$board});
+	        cell($status{$board});
+	        cell($owner{$board});
+		$mail = $email{$board};
+		$mail =~ s/AT_AT_SIGN/@/;
+	  #cell($email{$board});
+	  cell($mail);
+	        cell($last_known_good{$board});
+	        cell($explanation{$board});
+	  #print "$board, $status{$board}, $owner{$board}\n";
+	  print "<tr>\n";
+	}
+  print "</table>\n";
+}
+
+sub dumpbootinfo {
+  print "<table BORDER COLS=6 WIDTH=\"100%\" NOSAVE>\n";
+  print "<caption> <h2>LinuxBIOS Boot information </h2></caption>\n";
+  print "<tr>\n";
+  cell("Name");
+  cell("Flash types");
+  cell("Payload Types");
+  cell("OS types");
+  cell("OS issues");
+  cell("Comments");
+
+  print "</tr>\n";
+	foreach $i (0 .. $#mainboardlist) {
+	  print "<tr>\n";
+		$board = $mainboardlist[$i];
+	        cell($board);
+	  cell($flash_types{$board});
+	        cell($payload_types{$board});
+	        cell($OS_types{$board});
+	        cell($OS_issues{$board});
+	        cell($Comments{$board});
+	  print "<tr>\n";
+	}
+  print "</table>\n";
+}
+
+sub dumpconsoleinfo{
+  print "<table BORDER COLS=3 WIDTH=\"100%\" NOSAVE>\n";
+  print "<caption> <h2>LinuxBIOS Console Information </h2></caption>\n";
+  print "<tr>\n";
+  cell("Name");
+  cell("Console types");
+  cell("VGA capability");
+  print "</tr>\n";
+	foreach $i (0 .. $#mainboardlist) {
+	  print "<tr>\n";
+		$board = $mainboardlist[$i];
+	        cell($board);
+	  cell($console_types{$board});
+	        cell($vga{$board});
+	  print "<tr>\n";
+	}
+  print "</table>\n";
+}
+
+sub dumplinks {
+  print "<table BORDER COLS=2 WIDTH=\"100%\" NOSAVE>\n";
+  print "<caption> <h2>LinuxBIOS Links and Documentation </h2></caption>\n";
+  print "<tr>\n";
+  cell("Name");
+  cell("Links");
+  print "</tr>\n";
+	foreach $i (0 .. $#mainboardlist) {
+	  print "<tr>\n";
+		$board = $mainboardlist[$i];
+	        cell($board);
+	  cell($Links{$board});
+	  print "<tr>\n";
+	}
+  print "</table>\n";
+}
+
+# make it look like C argv[]
+unshift(@ARGV, "XX");
+
+$prefix=".";
+if ($#ARGV == 1) { $prefix = $ARGV[1]; }
+
+open(DIRS, "ls $prefix/src/mainboard/*/*/STATUS|") || die("open ls failed: $!");
+while(<DIRS>) {
+	chop;
+	mainboard($_);
+}
+dumpstatus();
+dumpbootinfo();
+dumpconsoleinfo();
+dumplinks();