diff options
| author | Peter Palfrader <peter@palfrader.org> | 2002-07-16 00:54:12 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2002-07-16 00:54:12 +0000 |
| commit | 82eecd04982dcc9371801264b05acb8ab67bd73e (patch) | |
| tree | a2e5e729560d83fb9e18423d8b0f9649c270d1e7 /Echolot | |
| parent | 1bbc600d22135a8ff4eda863c64afedb00cb3c9a (diff) | |
Have echolot version in HTML output
Diffstat (limited to 'Echolot')
| -rw-r--r-- | Echolot/Globals.pm | 7 | ||||
| -rw-r--r-- | Echolot/Stats.pm | 3 |
2 files changed, 7 insertions, 3 deletions
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 <peter@palfrader.org> -# $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 { diff --git a/Echolot/Stats.pm b/Echolot/Stats.pm index 5493436..5dfc17d 100644 --- a/Echolot/Stats.pm +++ b/Echolot/Stats.pm @@ -1,7 +1,7 @@ package Echolot::Stats; # (c) 2002 Peter Palfrader <peter@palfrader.org> -# $Id: Stats.pm,v 1.19 2002/07/13 20:42:51 weasel Exp $ +# $Id: Stats.pm,v 1.20 2002/07/16 00:53:33 weasel Exp $ # =pod @@ -282,6 +282,7 @@ sub write_file($$;$) { $template->param ( SITE_NAME => Echolot::Config::get()->{'sitename'} ); $template->param ( seperate_rlist => Echolot::Config::get()->{'seperate_rlists'} ); $template->param ( combined_list => Echolot::Config::get()->{'combined_list'} ); + $template->param ( version => Echolot::Globals::get()->{'version'} ); $filename = $filebasename.'.html'; open(F, '>'.$filename) or |