From 56dba1eea7f284b39551bbedeb2af00cebcfe813 Mon Sep 17 00:00:00 2001
From: short <>
Date: Mon, 25 Oct 2004 08:05:59 +0000
Subject: [PATCH] +Setup: $ENV{"HOSTNAME"} +$W->{"body_attr_sub"}

---
 Web.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/Web.pm b/Web.pm
index f940a0c..5709a63 100644
--- a/Web.pm
+++ b/Web.pm
@@ -168,6 +168,8 @@ my($class,%args)=@_;
 
 	do { args_check(%$_) if $_; } for ($W->{"args_check"});
 
+	$ENV{"HOSTNAME"}||=&{$W->{"web_hostname_sub"}}();
+
 	return $W;
 }
 
@@ -238,7 +240,7 @@ my(%tmpl)=@_;
 		$W->{"args"}{$name}=[ $W->{"args"}{$name} ] if !ref $W->{"args"}{$name} && ref $regex;
 		fatal "$name_html passed as multivar although singlevar expected"
 				if ref $W->{"args"}{$name} && !ref $regex;
-		$regex=${$regex}[0] if ref $regex;
+		$regex=$regex->[0] if ref $regex;
 		for my $val (!ref $W->{"args"}{$name} ? $W->{"args"}{$name} : @{$W->{"args"}{$name}}) {
 			$val="" if !defined $val;
 			fatal "$name_html <span class=\"quote\">".CGI::escapeHTML($val)."</span>"
@@ -670,6 +672,7 @@ HERE
 	Wprint "</head><body";
 #	Wprint ' bgcolor="black" text="white" link="aqua" vlink="teal"'
 #			if $W->{"browser"}->netscape() && (!$W->{"browser"}->major() || $W->{"browser"}->major()<=4);
+	do { &{$_}($W) if $_; } for $W->{"body_attr_sub"};
 	Wprint ">\n";
 
 	if ($W->{"heading"}) {
-- 
1.8.3.1