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;
.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;
: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; }
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"}) {