diff options
-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); |