From 82eecd04982dcc9371801264b05acb8ab67bd73e Mon Sep 17 00:00:00 2001 From: Peter Palfrader Date: Tue, 16 Jul 2002 00:54:12 +0000 Subject: Have echolot version in HTML output --- Echolot/Globals.pm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'Echolot/Globals.pm') diff --git a/Echolot/Globals.pm b/Echolot/Globals.pm index bd374da..0a1dabb 100644 --- a/Echolot/Globals.pm +++ b/Echolot/Globals.pm @@ -1,7 +1,7 @@ package Echolot::Globals; # (c) 2002 Peter Palfrader -# $Id: Globals.pm,v 1.2 2002/06/20 04:27:37 weasel Exp $ +# $Id: Globals.pm,v 1.3 2002/07/16 00:53:33 weasel Exp $ # =pod @@ -20,12 +20,15 @@ use Carp; my $GLOBALS; -sub init { +sub init(%) { + my (%args) = @_; + my $hostname = `hostname`; $hostname =~ /^([a-zA-Z0-9_-]*)$/; $hostname = $1 || 'unknown'; $GLOBALS->{'hostname'} = $hostname; $GLOBALS->{'internalcounter'} = 1; + $GLOBALS->{'version'} = $args{'version'}; }; sub initStorage { -- cgit v1.2.3