Omit custom color settings as suggested by two independent readers.

 - Every user should override its settings on his/her own anyway.
&a_href: +"basename" argument

diff --git a/Web.pm b/Web.pm
index 1292afc..5c7348e 100644 (file)
--- a/Web.pm
+++ b/Web.pm
@@ -384,7 +384,11 @@ sub a_href ($;$%)
 my($url,$contents,%args)=@_;
 
        do { $$_=1 if !defined $$_; } for (\$args{"size"});
 my($url,$contents,%args)=@_;
 
        do { $$_=1 if !defined $$_; } for (\$args{"size"});

-       $contents=CGI::escapeHTML($url) if !defined $contents;
+       if (!defined $contents) {
+               $contents=$url;
+               $contents=File::Basename::basename($contents) if $args{"basename"};
+               $contents=CGI::escapeHTML($contents);
+               }

        $contents=~s#<a\b[^>]*>##gi;
        $contents=~s#</a>##gi;
 
        $contents=~s#<a\b[^>]*>##gi;
        $contents=~s#</a>##gi;
 


@@ -626,6 +630,8 @@ my($class)=@_;
 .nowrap   { white-space: nowrap; }
 .centered { text-align: center; }
 .tab-bold { font-weight: bold; }
 .nowrap   { white-space: nowrap; }
 .centered { text-align: center; }
 .tab-bold { font-weight: bold; }

+.tab-head { font-weight: bold; }
+/*

 .tab-head { font-weight: bold; color: yellow; background-color: transparent; }
 body {
                background-color: black;
 .tab-head { font-weight: bold; color: yellow; background-color: transparent; }
 body {
                background-color: black;


@@ -634,6 +640,7 @@ body {
 :link    { color: aqua;   background-color: transparent; }
 :visited { color: teal;   background-color: transparent; }
 h1,h2    { color: yellow; background-color: transparent; }
 :link    { color: aqua;   background-color: transparent; }
 :visited { color: teal;   background-color: transparent; }
 h1,h2    { color: yellow; background-color: transparent; }

+*/

 td       { padding: 2px; }
 caption  { caption-side: bottom; }
 .footer img { vertical-align: middle; }
 td       { padding: 2px; }
 caption  { caption-side: bottom; }
 .footer img { vertical-align: middle; }


@@ -648,8 +655,8 @@ HERE
                do { print '<link rel="'.$type.'" href="'.$_.'" />'."\n" if $_; } for ($W->{"rel_$type"});
                }
        print "</head><body";
                do { print '<link rel="'.$type.'" href="'.$_.'" />'."\n" if $_; } for ($W->{"rel_$type"});
                }
        print "</head><body";

-       print ' bgcolor="black" text="white" link="aqua" vlink="teal"'
-                       if $W->{"browser"}->netscape() && (!$W->{"browser"}->major() || $W->{"browser"}->major()<=4);
+#      print ' bgcolor="black" text="white" link="aqua" vlink="teal"'
+#                      if $W->{"browser"}->netscape() && (!$W->{"browser"}->major() || $W->{"browser"}->major()<=4);

        print ">\n";
 
        if ($W->{"heading"}) {
        print ">\n";
 
        if ($W->{"heading"}) {