index.yaws

   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 <erl>
   5  out(A) ->
   6    {header, {content_type,
   7       case string:str((A#arg.headers)#headers.user_agent, "MSIE") of
   8          0 -> "text/html"; %"application/xhtml+xml"; % TODO : jquery.lightbox does not support application/xhtml+xml
   9          _ -> "text/html"
  10       end
  11    }}.
  12 </erl>
  13 <html xmlns="http://www.w3.org/1999/xhtml">
  14 <head>
  15    <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
  16    <title>euphorik.ch</title>
  17    <erl>\r
  18       % set the stylesheet
  19       out(A) ->
  20          CSS = case euphorik_bd:css_from_user_cookie(yaws_api:find_cookie_val("cookie", A)) of
  21             undefined -> "styles/1/euphorik.css";
  22             C -> C
  23          end,
  24          {ehtml, {link ,
  25             [
  26                {id, "mainCss" },
  27                {rel, "stylesheet"},
  28                {href, CSS},
  29                {type, "text/css"},
  30                {media, "screen"}
  31             ], []}
  32          }.
  33    </erl>
  34    <link rel="stylesheet" href="styles/jquery.lightbox.css" type="text/css" media="screen" ></link>
  35
  36    <script type="text/javascript" src="js/libs/jquery.js" prod="delete"></script>
  37    <script type="text/javascript" src="js/libs/jquery.lightbox.js" prod="delete"></script>
  38    <script type="text/javascript" src="js/libs/md5.js" prod="delete"></script>
  39    <script type="text/javascript" src="js/libs/json2.js" prod="delete"></script>
  40
  41    <script type="text/javascript" src="js/betterjs.js" prod="delete"></script>
  42    <script type="text/javascript" src="js/comet.js" prod="delete"></script>
  43    <script type="text/javascript" src="js/fragment.js" prod="delete"></script>
  44
  45    <script type="text/javascript" src="js/euphorik.js"></script>
  46
  47    <script type="text/javascript" src="js/communication.js" prod="delete"></script>
  48    <script type="text/javascript" src="js/conf.js" prod="delete"></script>
  49    <script type="text/javascript" src="js/util.js" prod="delete"></script>
  50    <script type="text/javascript" src="js/formater.js" prod="delete"></script>
  51    <script type="text/javascript" src="js/pages.js" prod="delete"></script>
  52    <script type="text/javascript" src="js/client.js" prod="delete"></script>
  53
  54    <script type="text/javascript" src="js/chat/chat.js" prod="delete"></script>
  55    <script type="text/javascript" src="js/chat/conversation.js" prod="delete"></script>
  56    <script type="text/javascript" src="js/chat/conversations.js" prod="delete"></script>
  57    <script type="text/javascript" src="js/chat/message.js" prod="delete"></script>
  58    <script type="text/javascript" src="js/chat/commandes.js" prod="delete"></script>
  59
  60    <script type="text/javascript" src="js/pageStatic.js" prod="delete"></script>
  61    <script type="text/javascript" src="js/pageMinichat.js" prod="delete"></script>
  62    <script type="text/javascript" src="js/pageAdmin.js" prod="delete"></script>
  63    <script type="text/javascript" src="js/pageProfile.js" prod="delete"></script>
  64    <script type="text/javascript" src="js/pageRegister.js" prod="delete"></script>
  65    <script type="text/javascript" src="js/pageAbout.js" prod="delete"></script>
  66
  67 </head>
  68    <body>
  69       <div id="container">
  70          <erl>
  71             % permet de prédéfinir la "class" du logo pour un ekMaster...
  72             out(A) ->
  73                Est_ek_master = euphorik_bd:is_ek_master_from_cookie(yaws_api:find_cookie_val("cookie", A)),
  74                {ehtml, {'div', [{id, "logo"}] ++ if Est_ek_master -> [{class, "ekMaster"}]; true -> [] end}}.
  75
  76          </erl>
  77          <div id="info" style="display:none" ><div id="icone"></div><div class="close" ></div><div class="message" ></div><div class="buttons"></div></div>
  78          <div id="waitbar" style="display:none" ><div class="image"></div></div>
  79          <ul id="menu">
  80             <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>
  81          </ul>
  82          <form action="" id="formMenuCss">
  83             <p>
  84                <select id="menuCss">
  85                   <erl>
  86                      % parse les styles disponible
  87                      out(A) ->
  88                         Stlyes_dir = A#arg.docroot ++ "/styles",
  89                         {ok, Liste_dir} = file:list_dir(Stlyes_dir),
  90                         {ehtml,
  91                            lists:foldr(
  92                               fun(Dir, Acc) ->
  93                                  case file:consult(Stlyes_dir ++ "/" ++ Dir ++ "/infos.txt") of
  94                                     {ok, [{nom, Nom}]} ->
  95                                        [{option, [{value, Dir}], Nom} | Acc];
  96                                     _ ->
  97                                        Acc
  98                                  end
  99                               end,
 100                               [],
 101                               Liste_dir
 102                            )
 103                         }.
 104                   </erl>
 105                </select>
 106             </p>
 107          </form>
 108          <div id="page"></div>
 109          <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>
 110       </div>
 111    </body>
 112 </html>