From 469a682aa06661288e71041d75a91dfa4c0f171f Mon Sep 17 00:00:00 2001
From: Peter Palfrader <peter@palfrader.org>
Date: Mon, 11 Apr 2005 18:40:43 +0000
Subject: Add build host to web pages

---
 bin/latency-graphs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'bin')

diff --git a/bin/latency-graphs b/bin/latency-graphs
index 156281e..760fae7 100755
--- a/bin/latency-graphs
+++ b/bin/latency-graphs
@@ -6,6 +6,7 @@ use English;
 my $ECHOLOT_BASE = shift @ARGV;
 die ("Usage: $PROGRAM_NAME <echolot base>\n") if (!defined $ECHOLOT_BASE || scalar @ARGV > 0);
 
+my $HOSTNAME = `hostname`;
 my $INDEX = $ECHOLOT_BASE.'/results/thesaurus/index.txt';
 my $STATSDIR = $ECHOLOT_BASE.'/data';
 my $AUTORANGE = 'ploticus/plot-autorange.pls';
@@ -177,7 +178,7 @@ for my $remailer (sort { $remailers{$a}->{'nick'} cmp $remailers{$b}->{'nick'}}
 	print F "<tr><td><img src=\"$IMG_URL$autorange\" width=\"$autorange_size->{'x'}\" height=\"$autorange_size->{'y'}\">" .
 		"</td><td><img src=\"$IMG_URL$dots_autorange\" width=\"$dots_autorange_size->{'x'}\" height=\"$dots_autorange_size->{'y'}\"></td></tr>\n";
 	print F "</table>\n";
-	print F "<hr>\nBuilt at $GMTIME<br>\n";
+	print F "<hr>\nBuilt at $GMTIME on $HOSTNAME<br>\n";
 	print F "<a href=\"web\@palfrader.org\">Peter Palfrader &lt;web\@palfrader.org&gt;</a>\n";
 	print F "</body></html>\n";
 }
@@ -190,7 +191,7 @@ print F "<a href=\"../\">..</a><br>\n";
 print F "$body\n";
 print F "<br><br><br>\n";
 print F 'Images created with Steve Grubb\'s <a href="http://ploticus.sourceforge.net/">ploticus</a>'."\n";
-print F "<hr>\nBuilt at $GMTIME<br>\n";
+print F "<hr>\nBuilt at $GMTIME on $HOSTNAME<br>\n";
 print F "<a href=\"web\@palfrader.org\">Peter Palfrader &lt;web\@palfrader.org&gt;</a>\n";
 print F "</body></html>\n";
 close (F);
-- 
cgit v1.2.3