1 <?xml version="1.0" encoding="UTF-8" ?>
2 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN"
3 "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
4 <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="fr" >
6 <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
7 <title>euphorik.ch</title>
9 % prédéfinit la feuille de style
11 CSS = case euphorik_bd:css_from_user_cookie(yaws_api:find_cookie_val("cookie", A)) of
12 undefined -> "styles/1/euphorik.css";
17 {id, "cssPrincipale" },
25 <link rel="stylesheet" href="css/jquery.lightbox.css" type="text/css" media="screen" ></link>
26 <script type="text/javascript" src="js/jquery.js" ></script>
27 <script type="text/javascript" src="js/jquery.lightbox.js"></script>
28 <script type="text/javascript" src="js/md5.js" ></script>
29 <script type="text/javascript" src="js/json2.js" ></script>
30 <script type="text/javascript" src="js/pageMinichat.js" ></script>
31 <script type="text/javascript" src="js/pageAdmin.js" ></script>
32 <script type="text/javascript" src="js/pageProfile.js" ></script>
33 <script type="text/javascript" src="js/pageRegister.js" ></script>
34 <script type="text/javascript" src="js/pageAbout.js" ></script>
35 <script type="text/javascript" src="js/euphorik.js" ></script>
40 % permet de prédéfinir la "class" du logo pour un ekMaster...
42 Est_ek_master = euphorik_bd:is_ek_master_from_cookie(yaws_api:find_cookie_val("cookie", A)),
43 {ehtml, {'div', [{id, "logo"}] ++ if Est_ek_master -> [{class, "ekMaster"}]; true -> [] end}}.
46 <div id="info" style="display:none" ><div id="icone"></div><div class="fermer" ></div><div class="message" ></div><div class="boutons"></div></div>
48 <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>
50 <form action="" id="formMenuCss">
54 % parse les styles disponible
56 Stlyes_dir = A#arg.docroot ++ "/styles",
57 {ok, Liste_dir} = file:list_dir(Stlyes_dir),
61 case file:consult(Stlyes_dir ++ "/" ++ Dir ++ "/infos.txt") of
63 [{option, [{value, Dir}], Nom} | Acc];
73 <!-- option value="1" selected="selected">Retro</option>
74 <option value="2">Dark</option -->
79 <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>