diff --git a/files/www/black_on_white.css b/files/www/black_on_white.css new file mode 100644 index 00000000..c7dd5f06 --- /dev/null +++ b/files/www/black_on_white.css @@ -0,0 +1,28 @@ +body { font-family:Verdana; background: white; color:black } +a:link { background: white; color: black } +a:visited { background: white; color: black } +a:active { background: white; color: black } +h1 { font-family:Verdana; color: black} + +hr { + width: 100%; + height: 2px; + margin-left: auto; + margin-right: auto; + color: black; + background-color: white; +} + +body table { + font-size: 16px; + +} +.navbar_select { background:white; color:black } +.navbar_select a:link { background:white; color:black } +.navbar_select a:visited { background:white; color:black } +.navbar_select a:active { background:white; color:black } + +.TopBanner { width:100%; } +.LogoDiv { position:absolute left:0px; width:100%; height:95; } +.AREDNLogo { background: white; position:absolute; left:10%; width:175; height:95; } +.PartOfAREDN { font-family:Verdana; font-size:xx-small; text-align:center; } diff --git a/files/www/cgi-bin/perlfunc.pm b/files/www/cgi-bin/perlfunc.pm index 597667f9..113f0108 100644 --- a/files/www/cgi-bin/perlfunc.pm +++ b/files/www/cgi-bin/perlfunc.pm @@ -61,7 +61,9 @@ sub html_header print "\n"; print "\n"; print "\n"; - print "\n"; + my $rnum=`date +%s`; + chomp($rnum); + print "\n"; print "\n" if $close; } @@ -1362,14 +1364,14 @@ sub get_interface sub css_options { - print ""; + print ""; my @cssfiles = `ls /www/*.css`; foreach $css (@cssfiles) { chomp($css); $css =~ m#^(.*?)([^/]*)(\.css)$#; ($dir,$file) = ($1,$2); - print "" unless $file eq "style"; + print "" unless $file eq "style"; } } diff --git a/files/www/cgi-bin/status b/files/www/cgi-bin/status index b7eb3904..a8d148e1 100755 --- a/files/www/cgi-bin/status +++ b/files/www/cgi-bin/status @@ -49,13 +49,17 @@ $config = "not set" if $config eq "" or not -d "/etc/config.$config"; read_postdata(); # set up the style sheet -system "cp -f /www/aredn.css /www/style.css" unless -f "/www/style.css"; -if($parms{css}) { system "cp -f /www/$parms{css} /www/style.css" } +system "rm -rf /www/style.css" if -f "/www/style.css"; # cleanup any actual file named style.css +system "ln -s /www/aredn.css /www/style.css" unless -l "/www/style.css"; + +if($parms{css}) { + system "ln -fs /www/$parms{css} /www/style.css" if -f "/www/$parms{css}"; +} # generate the page http_header(); html_header("AREDN™ Node $node", 1); -print "