create a simple redirect index page for embedded web server

processone · Dec 1, 2014 · 91d08e6 · 91d08e6
1 parent 65f864e
commit 91d08e6
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/src/tsung_controller/ts_controller_sup.erl b/src/tsung_controller/ts_controller_sup.erl
@@ -109,6 +109,9 @@ start_inets(LogDir) ->
                                   DestName = filename:join(DestDir,CSS),
                                   file:copy(filename:join(Path,CSS),DestName)
                           end,Styles),
+
+            Redirect= << "<meta http-equiv=\"refresh\" content=\"0; url=/es/ts_web:status\">\n" >>,
+            file:write_file(filename:join(LogDir,"index.html"), Redirect),
             Inets = inets:start(httpd, [{port, 8091},
                                         {modules,[mod_esi,
                                                   mod_dir,
@@ -119,14 +122,16 @@ start_inets(LogDir) ->
                                                   mod_disk_log]},
                                         {erl_script_alias, {"/es", [ts_web, ts_api]}},
                                         {error_log, "inets_error.log"},
+                                        %% {transfer_log, "inets_access.log"},
+                                        {directory_index, ["index.html"]},
                                         {mime_types,[ {"html","text/html"},
                                                       {"css","text/css"},
                                                       {"png","image/png"},
                                                       {"json","application/json"},
                                                       {"js","application/x-javascript"}]},
                                         {server_name,"tsung_controller"}, {server_root,LogDir},
                                         {document_root,LogDir}]),
-            ?LOGF("starting inets on port 8091: ~p",[Inets],?INFO);
+            ?LOGF("Starting inets on port 8091: ~p",[Inets],?INFO);
         _ ->
             ?LOG("Web gui disabled, skip inets",?INFO)
     end.