summaryrefslogtreecommitdiff
path: root/Echolot/Tools.pm
diff options
context:
space:
mode:
authorPeter Palfrader <peter@palfrader.org>2003-10-17 04:12:16 +0000
committerPeter Palfrader <peter@palfrader.org>2003-10-17 04:12:16 +0000
commit9ee69aab6b77bb57d699c1afea4a231d67485fa3 (patch)
treece461d01201dc80992b0b97bf78d5d4af9ca4f2c /Echolot/Tools.pm
parentdc6c2bc4c39f81b6aa503fe36989c386ecef7b64 (diff)
Publish operator's address on index page
Diffstat (limited to 'Echolot/Tools.pm')
-rw-r--r--Echolot/Tools.pm6
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;