Add a 'nocrap' flag so the top of the page has useful information (i.e. no image, no legend).

This commit is contained in:
slamm%netscape.com 1998-09-08 19:34:51 +00:00
parent aa7876c8b8
commit 494a501fe1

View File

@ -105,9 +105,6 @@ sub show_tree_selector {
sub display_page_head {
my ($imageurl,$imagewidth,$imageheight,$quote) = &get_image;
# srand;
# $when = 60*10 + int rand(60*40);
# <META HTTP-EQUIV=\"REFRESH\" CONTENT=\"$when\">
@ -129,29 +126,32 @@ $treename = $tree . ($tree2 ne "" ? " and $tree2" : "" );
print "$script_str\n";
print "$message_of_day\n";
print "<table width='100%'>";
print "<tr>";
print "<td valign=bottom>";
print "<p><center><a href=addimage.cgi><img src='$imageurl' ";
print "width=$imagewidth height=$imageheight><br>";
print "$quote</a><br>";
print "</center>";
print "<p>";
print "<td align=right valign=bottom>";
print "<table><tr><td>";
print "<TT>L</TT> = Show Build Log<br>";
print "<TT><img src=star.gif>L</TT> = Show Log comments<br>";
print "<TT>C</TT> = Show changes that occured since the last build<br>";
print "<TT>B</TT> = Download binary generated by the build<br>";
print "<table cellspacing=2 border>";
print "<tr bgcolor=00ff00><td>Built successfully";
print "<tr bgcolor=yellow><td>Currently Building";
print "<tr bgcolor=orange><td>Build Successful, Build Tests Failed";
print "<tr bgcolor=red><td>Build failed";
print "</table>";
print "</td></tr></table>";
print "</table>";
if (!$form{'nocrap'}) {
my ($imageurl,$imagewidth,$imageheight,$quote) = &get_image;
print qq{
<table width="100%">
<tr>
<td valign=bottom>
<p><center><a href=addimage.cgi><img src="$imageurl"
width=$imagewidth height=$imageheight><br>
$quote</a><br>
</center>
<p>
<td align=right valign=bottom>
<table><tr><td>
<TT>L</TT> = Show Build Log<br>
<TT><img src="star.gif">L</TT> = Show Log comments<br>
<TT>C</TT> = Show changes that occured since the last build<br>
<TT>B</TT> = Download binary generated by the build<br>
<table cellspacing=2 border>
<tr bgcolor="00ff00"><td>Built successfully
<tr bgcolor="yellow"><td>Currently Building
<tr bgcolor="orange"><td>Build Successful, Build Tests Failed
<tr bgcolor="red"><td>Build failed
</table>
</td></tr></table>
</table>
};
if($bonsai_tree){
print "<p>The tree is currently <font size=+2>";
if( &tree_open ){