-<?xml version="1.0" encoding="UTF-8" ?>
+<?xml version="1.0" encoding="UTF-8"?>\r
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"\r
-"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
-<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="fr" >
-<head>
- <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
- <title>euphorik.ch</title>
- <erl>
- out(A) ->
- CSS = case euphorik_bd:css_from_user_cookie(yaws_api:find_cookie_val("cookie", A)) of
- undefined -> "css/1/euphorik.css";
- C -> C
- end,
- {ehtml, {link ,
- [
- {id, "cssPrincipale" },
- {rel, "stylesheet"},
- {href, CSS},
- {type, "text/css"},
- {media, "screen"}
- ], []}
- }.
- </erl>
- <link rel="stylesheet" href="css/jquery.lightbox.css" type="text/css" media="screen" ></link>
- <script type="text/javascript" src="js/jquery.js" ></script>
- <script type="text/javascript" src="js/jquery.lightbox.js"></script>
- <script type="text/javascript" src="js/md5.js" ></script>
- <script type="text/javascript" src="js/json2.js" ></script>
- <script type="text/javascript" src="js/pageMinichat.js" ></script>
- <script type="text/javascript" src="js/pageAdmin.js" ></script>
- <script type="text/javascript" src="js/pageProfile.js" ></script>
- <script type="text/javascript" src="js/pageRegister.js" ></script>
- <script type="text/javascript" src="js/pageAbout.js" ></script>
- <script type="text/javascript" src="js/euphorik.js" ></script>
-</head>
- <body>
- <div id="container">
- <div id="logo"></div>\r
- <div id="info" style="display:none" ><div id="icone"></div><div class="fermer" ></div><div class="message" ></div><div class="boutons"></div></div>
- <ul id="menu">
+"http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">\r
+<erl>\r
+ out(A) ->\r
+ {header, {content_type,\r
+ case string:str((A#arg.headers)#headers.user_agent, "MSIE") of\r
+ 0 -> "text/html"; %"application/xhtml+xml"; % TODO : jquery.lightbox does not support application/xhtml+xml\r
+ _ -> "text/html"\r
+ end\r
+ }}.\r
+</erl>\r
+<html xmlns="http://www.w3.org/1999/xhtml">\r
+<head>\r
+ <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />\r
+ <title>euphorik.ch</title>\r
+ <erl>\r
+ % set the stylesheet\r
+ out(A) ->\r
+ CSS = case euphorik_bd:css_from_user_cookie(yaws_api:find_cookie_val("cookie", A)) of\r
+ undefined -> "styles/1/euphorik.css";\r
+ C -> C\r
+ end,\r
+ {ehtml, {link ,\r
+ [\r
+ {id, "mainCss" },\r
+ {rel, "stylesheet"},\r
+ {href, CSS},\r
+ {type, "text/css"},\r
+ {media, "screen"}\r
+ ], []}\r
+ }.\r
+ </erl>\r
+ <link rel="stylesheet" href="styles/jquery.lightbox.css" type="text/css" media="screen" ></link>\r
+\r
+ <script type="text/javascript" src="js/libs/jquery.js" prod="delete"></script>\r
+ <script type="text/javascript" src="js/libs/jquery.lightbox.js" prod="delete"></script>\r
+ <script type="text/javascript" src="js/libs/md5.js" prod="delete"></script>\r
+ <script type="text/javascript" src="js/libs/json2.js" prod="delete"></script>\r
+\r
+ <script type="text/javascript" src="js/betterjs.js" prod="delete"></script>\r
+ <script type="text/javascript" src="js/fragment.js" prod="delete"></script>\r
+\r
+ <script type="text/javascript" src="js/euphorik.js"></script>\r
+\r
+ <script type="text/javascript" src="js/communication.js" prod="delete"></script>\r
+ <script type="text/javascript" src="js/conf.js" prod="delete"></script>\r
+ <script type="text/javascript" src="js/util.js" prod="delete"></script>\r
+ <script type="text/javascript" src="js/formater.js" prod="delete"></script>\r
+ <script type="text/javascript" src="js/pages.js" prod="delete"></script>\r
+ <script type="text/javascript" src="js/client.js" prod="delete"></script>\r
+\r
+ <script type="text/javascript" src="js/chat/chat.js" prod="delete"></script>\r
+ <script type="text/javascript" src="js/chat/conversation.js" prod="delete"></script>\r
+ <script type="text/javascript" src="js/chat/conversations.js" prod="delete"></script>\r
+ <script type="text/javascript" src="js/chat/message.js" prod="delete"></script>\r
+ <script type="text/javascript" src="js/chat/commandes.js" prod="delete"></script>\r
+\r
+ <script type="text/javascript" src="js/pageStatic.js" prod="delete"></script>\r
+ <script type="text/javascript" src="js/pageMinichat.js" prod="delete"></script>\r
+ <script type="text/javascript" src="js/pageAdmin.js" prod="delete"></script>\r
+ <script type="text/javascript" src="js/pageProfile.js" prod="delete"></script>\r
+ <script type="text/javascript" src="js/pageRegister.js" prod="delete"></script>\r
+ <script type="text/javascript" src="js/pageAbout.js" prod="delete"></script>\r
+\r
+</head>\r
+ <body>\r
+ <div id="container">\r
+ <erl>\r
+ % permet de prédéfinir la "class" du logo pour un ekMaster...\r
+ out(A) ->\r
+ Est_ek_master = euphorik_bd:is_ek_master_from_cookie(yaws_api:find_cookie_val("cookie", A)),\r
+ {ehtml, {'div', [{id, "logo"}] ++ if Est_ek_master -> [{class, "ekMaster"}]; true -> [] end}}.\r
+\r
+ </erl>\r
+ <div id="info" style="display:none" ><div id="icone"></div><div class="close" ></div><div class="message" ></div><div class="buttons"></div></div>\r
+ <div id="waitbar" style="display:none" ><div class="image"></div></div>\r
+ <ul id="menu">\r
<li class="minichat">chat</li><li class="admin" style="display:none">admin</li><li class="profile"></li><li class="register">register</li><li class="logout">logout</li><li class="about">about</li>\r
- </ul>
- <form action="" id="formMenuCss">
- <p>
- <select id="menuCss">
- <option value="1" selected="selected">Retro</option>
- <option value="2">Dark</option>
- </select>
- </p>
- </form>
- <div id="page"></div>
- <div id="footer"><span class="copyright">copyright 2008 euphorik.ch</span><span class="conditions lien">conditions d'utilisation</span><a href="http://yaws.hyber.org"><img src="img/powered-by-yaws.gif" alt="powered by Yaws" /></a></div>
- </div>
- </body>
-</html>
\ No newline at end of file
+ </ul>\r
+ <form action="" id="formMenuCss">\r
+ <p>\r
+ <select id="menuCss">\r
+ <erl>\r
+ % parse les styles disponible\r
+ out(A) ->\r
+ Stlyes_dir = A#arg.docroot ++ "/styles",\r
+ {ok, Liste_dir} = file:list_dir(Stlyes_dir),\r
+ {ehtml,\r
+ lists:foldr(\r
+ fun(Dir, Acc) ->\r
+ case file:consult(Stlyes_dir ++ "/" ++ Dir ++ "/infos.txt") of\r
+ {ok, [{nom, Nom}]} ->\r
+ [{option, [{value, Dir}], Nom} | Acc];\r
+ _ ->\r
+ Acc\r
+ end\r
+ end,\r
+ [],\r
+ Liste_dir\r
+ )\r
+ }.\r
+ </erl>\r
+ </select>\r
+ </p>\r
+ </form>\r
+ <div id="page"></div>\r
+ <div id="footer"><span class="copyright">copyright 2008 euphorik.ch</span><span class="termsOfUse pageLink">terms of use</span><a href="http://yaws.hyber.org"><img src="img/powered-by-yaws.gif" alt="powered by Yaws" /></a></div>\r
+ </div>\r
+ </body>\r
+</html>\r