Mirrors
/
aredn
mirror of https://github.com/aredn/aredn.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

check for .css file extension being passed

This commit is contained in:
Darryl Quinn 2015-04-06 14:47:09 -05:00
parent b8dcc50fb9
commit 09af80b17e
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
files/www/cgi-bin/perlfunc.pm
View File

@ -61,6 +61,7 @@ sub html_header
print "<meta http-equiv='expires' content='0'>\n";
print "<meta http-equiv='cache-control' content='no-cache'>\n";
print "<meta http-equiv='pragma' content='no-cache'>\n";
# Prevent browser caching of the css file
my $rnum=`date +%s`;
chomp($rnum);
print "<link id='stylesheet_css' rel=StyleSheet href='/style.css?", $rnum, "' type='text/css'>\n";

11
files/www/cgi-bin/status
View File

@ -49,11 +49,14 @@ $config = "not set" if $config eq "" or not -d "/etc/config.$config";
read_postdata();
# set up the style sheet
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";
mkdir "/tmp/web" unless -d "/tmp/web"; # make sure /tmp/web exists
# DO IN BUILD- unlink "/www/style.css" if -f "/www/style.css"; # cleanup any actual file named style.css in /www
# DO IN BUILD- symlink "/tmp/web/style.css","/www/style.css" unless -l "/www/style.css"; # fixed for web page
symlink "/www/aredn.css","/tmp/web/style.css" unless -l "/tmp/web/style.css"; # default to aredn.css
if($parms{css}) {
system "ln -fs /www/$parms{css} /www/style.css" if -f "/www/$parms{css}";
if($parms{css} and -f "/www/$parms{css}" and $parms{css} =~ /\.css$/i) {
unlink "/tmp/web/style.css";
symlink "/www/$parms{css}","/tmp/web/style.css";
}
# generate the page