+Setup: $ENV{"HOSTNAME"}

+$W->{"body_attr_sub"}

diff --git a/Web.pm b/Web.pm
index f940a0c..5709a63 100644 (file)
--- 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"}) {