index.yaws

   1 <!DOCTYPE html>\r
   2 <html>\r
   3 <head>\r
   4    <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />\r
   5    <title>euphorik.ch</title>\r
   6    <erl>\r
   7       % set the stylesheet\r
   8       out(A) ->\r
   9          CSS = case euphorik_bd:css_from_user_cookie(yaws_api:find_cookie_val("cookie", A)) of\r
  10             undefined -> "styles/1/euphorik.css";\r
  11             C -> C\r
  12          end,\r
  13          {ehtml, {link ,\r
  14             [\r
  15                {id, "mainCss" },\r
  16                {rel, "stylesheet"},\r
  17                {href, CSS},\r
  18                {type, "text/css"},\r
  19                {media, "screen"}\r
  20             ], []}\r
  21          }.\r
  22    </erl>\r
  23    <link rel="stylesheet" href="styles/jquery.lightbox.css" type="text/css" media="screen" ></link>\r
  24 \r
  25    <script type="text/javascript" src="js/libs/jquery.js" prod="delete"></script>\r
  26    <script type="text/javascript" src="js/libs/jquery.lightbox.js" prod="delete"></script>\r
  27    <script type="text/javascript" src="js/libs/md5.js" prod="delete"></script>\r
  28    <script type="text/javascript" src="js/libs/json2.js" prod="delete"></script>\r
  29 \r
  30    <script type="text/javascript" src="js/betterjs.js" prod="delete"></script>\r
  31    <script type="text/javascript" src="js/fragment.js" prod="delete"></script>\r
  32 \r
  33    <script type="text/javascript" src="js/euphorik.js"></script>\r
  34 \r
  35    <script type="text/javascript" src="js/communication.js" prod="delete"></script>\r
  36    <script type="text/javascript" src="js/conf.js" prod="delete"></script>\r
  37    <script type="text/javascript" src="js/util.js" prod="delete"></script>\r
  38    <script type="text/javascript" src="js/formatter.js" prod="delete"></script>\r
  39    <script type="text/javascript" src="js/pages.js" prod="delete"></script>\r
  40    <script type="text/javascript" src="js/client.js" prod="delete"></script>\r
  41 \r
  42    <script type="text/javascript" src="js/chat/chat.js" prod="delete"></script>\r
  43    <script type="text/javascript" src="js/chat/conversation.js" prod="delete"></script>\r
  44    <script type="text/javascript" src="js/chat/conversations.js" prod="delete"></script>\r
  45    <script type="text/javascript" src="js/chat/message.js" prod="delete"></script>\r
  46    <script type="text/javascript" src="js/chat/commandes.js" prod="delete"></script>\r
  47 \r
  48    <script type="text/javascript" src="js/pageStatic.js" prod="delete"></script>\r
  49    <script type="text/javascript" src="js/pageMinichat.js" prod="delete"></script>\r
  50    <script type="text/javascript" src="js/pageAdmin.js" prod="delete"></script>\r
  51    <script type="text/javascript" src="js/pageProfile.js" prod="delete"></script>\r
  52    <script type="text/javascript" src="js/pageRegister.js" prod="delete"></script>\r
  53    <script type="text/javascript" src="js/pageAbout.js" prod="delete"></script>\r
  54 \r
  55 </head>\r
  56    <body>\r
  57       <div id="container">\r
  58          <erl>\r
  59             % To redefine the logo class for the ekMasters.\r
  60             out(A) ->\r
  61                Is_ek_master = euphorik_bd:is_ek_master_from_cookie(yaws_api:find_cookie_val("cookie", A)),\r
  62                {ehtml, {'div', [{id, "logo"}] ++ if Is_ek_master -> [{class, "ekMaster"}]; true -> [] end}}.\r
  63          </erl>\r
  64          <div id="info" style="display:none" ><div id="icone"></div><div class="close" ></div><div class="message" ></div><div class="buttons"></div></div>\r
  65          <div id="waitbar" style="display:none" ><div class="image"></div></div>\r
  66          <ul id="menu">\r
  67             <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
  68          </ul>\r
  69          <form action="" id="formMenuCss">\r
  70             <p>\r
  71                <select id="menuCss">\r
  72                   <erl>\r
  73                      % Parse the available styles.\r
  74                      out(A) ->\r
  75                         Styles_dir = A#arg.docroot ++ "/styles",\r
  76                         {ok, Liste_dir} = file:list_dir(Styles_dir),\r
  77                         {ehtml,\r
  78                            lists:foldr(\r
  79                               fun(Dir, Acc) ->\r
  80                                  case file:consult(Styles_dir ++ "/" ++ Dir ++ "/infos.txt") of\r
  81                                     {ok, [{nom, Nom}]} ->\r
  82                                        [{option, [{value, Dir}], Nom} | Acc];\r
  83                                     _ ->\r
  84                                        Acc\r
  85                                  end\r
  86                               end,\r
  87                               [],\r
  88                               Liste_dir\r
  89                            )\r
  90                         }.\r
  91                   </erl>\r
  92                </select>\r
  93             </p>\r
  94          </form>\r
  95          <div id="page"></div>\r
  96          <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
  97       </div>\r
  98    </body>\r
  99 </html>\r