[r2003-05-21 21:53:45 by cvscast] reverted back php_css Beppe

Original author: cvscast
Date: 2003-05-21 21:53:45+00:00

web/site.cd

@@ -101,6 +101,25 @@ let fun protect_quote (s : String) : String =
   transform s with '"' -> [ '\\"' ] | c -> [c];;
 
 let php_css : String =
+[' <?php
+$browser = getenv("HTTP_USER_AGENT");
+if (preg_match("/MSIE/i", "$browser")) {
+        $css = "<link rel=\\"stylesheet\\" href=\\"cduce.css\\"
+type=\\"text/css\\">";
+} elseif (preg_match("/Mozilla/i", "$browser")) {
+        $css = "<blink>For better presentation use a more recent version
+of your browser, like Netscape 6</blink>";
+} if (preg_match("/Mozilla\\/5.0/i", "$browser")) {
+        $css = "<link rel=\\"stylesheet\\" href=\\"cduce.css\\"
+type=\\"text/css\\">";
+} elseif  (preg_match("/opera/i", "$browser")) {
+        $css = "<link rel=\\"stylesheet\\" href=\\"cduce.css\\"
+type=\\"text/css\\">";
+}
+echo "$css";
+?> '];;
+
+(** It does not work with IE
 if php then
 [' <?php $browser = getenv("HTTP_USER_AGENT");
 if (preg_match("/Mozilla/i", "$browser") && !preg_match("/Mozilla\\/5.0/i", "$browser")) 
@@ -111,7 +130,7 @@ your browser, like Netscape 6</blink>";
 else { echo "' !(protect_quote css) '"; }
 ?> ']
 else css;;
-
+**)
 
 let fun patch_css (String -> String)
 | [ a::_*? '<meta content="css"/>'; rem ] -> a @ php_css @ rem