From: František Dvořák <valtri@civ.zcu.cz>
Date: Sun, 11 Mar 2012 18:38:33 +0000 (+0100)
Subject: Unused functions.
X-Git-Url: http://scientific.zcu.cz/git/?a=commitdiff_plain;h=7c008f06c32e24417e15a926fd1cc5a5a1a7f888;p=meta-dashboard.git

Unused functions.
---

diff --git a/dashboard.pl b/dashboard.pl
index d92bc50..4ea2d87 100755
--- a/dashboard.pl
+++ b/dashboard.pl
@@ -6,51 +6,6 @@ my ($list, @list, %list, $item, @item, %item, $result, %platforms, %components,
 my (%list_perf);
 
 
-sub table2($$$) {
-	my ($perf, $list, $components) = @_;
-	my ($item, $class, %list, $result);
-
-	%list = %$list;
-	print qq(<table class="cert">
-	<tr class="cert">
-		<th class="cert"></th>
-);
-	foreach my $p (sort keys %platforms) {
-		print "		<th class=\"cert\">$p</th>\n";
-	}
-	print "	</tr>\n";
-	foreach my $c (sort keys %{$components}) {
-		print "	<tr class=\"cert\">\n		<th class=\"cert\">$c</th>\n";
-		foreach my $p (sort keys %platforms) {
-			$item=$list{$c}{$p};
-			if (defined $item) {
-				if ($perf) {
-					$class = 'cert';
-					$result = $item->{result2};
-					#$result =~ s/ /<br\/>/g;
-				} else {
-					$result = $item->{result};
-					if ($item->{result} eq '0') { $class='OK'; }
-					else { $class='FAIL'; }
-				}
-				print "		<td class=\"$class\"><span class=\"date\">$item->{date}</span><br/><a href=\"$item->{dir}/\">$result</a></td>\n";
-			} else {
-				print "		<td class=\"cert\"></td>\n"
-			}
-		}
-		print "	</tr>\n";
-	}
-	print "</table>\n";
-}
-
-
-sub table($) {
-	my ($list) = @_;
-
-	table2(0, $list, \%components);
-}
-
-
 $list=`ls -1 | egrep '^(gridsite|lb|px|canl)'`;
 @list=split /\n/, $list;