diff options
| author | Peter Palfrader <peter@palfrader.org> | 2003-10-17 04:12:16 +0000 |
|---|---|---|
| committer | Peter Palfrader <peter@palfrader.org> | 2003-10-17 04:12:16 +0000 |
| commit | 9ee69aab6b77bb57d699c1afea4a231d67485fa3 (patch) | |
| tree | ce461d01201dc80992b0b97bf78d5d4af9ca4f2c /Echolot/Tools.pm | |
| parent | dc6c2bc4c39f81b6aa503fe36989c386ecef7b64 (diff) | |
Publish operator's address on index page
Diffstat (limited to 'Echolot/Tools.pm')
| -rw-r--r-- | Echolot/Tools.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/Echolot/Tools.pm b/Echolot/Tools.pm index c3ad305..fd202f5 100644 --- a/Echolot/Tools.pm +++ b/Echolot/Tools.pm @@ -1,7 +1,7 @@ package Echolot::Tools; # (c) 2002 Peter Palfrader <peter@palfrader.org> -# $Id: Tools.pm,v 1.23 2003/06/06 10:36:23 weasel Exp $ +# $Id: Tools.pm,v 1.24 2003/10/17 04:12:16 weasel Exp $ # =pod @@ -218,6 +218,9 @@ sub escape_HTML_entities($) { sub write_HTML_file($$;$%) { my ($origfile, $template_file, $expire, %templateparams) = @_; + my $operator = Echolot::Config::get()->{'operator_address'}; + $operator =~ s/@/./; + for my $lang ( keys %{Echolot::Config::get()->{'templates'}} ) { my $template = HTML::Template->new( filename => Echolot::Config::get()->{'templates'}->{$lang}->{$template_file}, @@ -232,6 +235,7 @@ sub write_HTML_file($$;$%) { $template->param ( thesaurus => Echolot::Config::get()->{'thesaurus'} ); $template->param ( fromlines => Echolot::Config::get()->{'fromlines'} ); $template->param ( version => Echolot::Globals::get()->{'version'} ); + $template->param ( operator => $operator ); $template->param ( expires => date822( time + $expire )); my $file = $origfile; |