diff options
| author | Peter Palfrader <peter@palfrader.org> | 2005-04-11 18:40:43 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2005-04-11 18:40:43 +0000 |
| commit | 469a682aa06661288e71041d75a91dfa4c0f171f (patch) | |
| tree | 4657b11a62d9ff3fe32c907401c960f7f7f65a99 /bin | |
| parent | 74b8d26c00fdccac8aa04d4726f6111a7c60762f (diff) | |
Add build host to web pages
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/latency-graphs | 5 |
1 files changed, 3 insertions, 2 deletions
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 <web\@palfrader.org></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 <web\@palfrader.org></a>\n"; print F "</body></html>\n"; close (F); |