Replace some french comments by english ones.
[euphorik.git] / index.yaws
index 1b88721..d295414 100755 (executable)
@@ -1,54 +1,99 @@
-<?xml version="1.0" encoding="UTF-8" ?>
-<!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>
-   <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">
+<!DOCTYPE html>\r
+<html>\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/formatter.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
+            % To redefine the logo class for the ekMasters.\r
+            out(A) ->\r
+               Is_ek_master = euphorik_bd:is_ek_master_from_cookie(yaws_api:find_cookie_val("cookie", A)),\r
+               {ehtml, {'div', [{id, "logo"}] ++ if Is_ek_master -> [{class, "ekMaster"}]; true -> [] end}}.\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"><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 the available styles.\r
+                     out(A) ->\r
+                        Styles_dir = A#arg.docroot ++ "/styles",\r
+                        {ok, Liste_dir} = file:list_dir(Styles_dir),\r
+                        {ehtml,\r
+                           lists:foldr(\r
+                              fun(Dir, Acc) ->\r
+                                 case file:consult(Styles_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