Unused functions.

diff --git a/dashboard.pl b/dashboard.pl
index d92bc50..4ea2d87 100755 (executable)
--- 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;