Permalink
Browse files

Fixed messages printed when lanching the server.

  • Loading branch information...
sagotch committed Sep 7, 2018
1 parent c04fe33 commit cd4452615643e26df99e8f8abef71335ea6d1bc0
Showing with 7 additions and 7 deletions.
  1. +3 −3 lib/gwDaemon.ml
  2. +4 −4 wserver/wserver.ml
View
@@ -1703,13 +1703,13 @@ let geneweb_server () =
eprintf "GeneWeb %s - " Version.txt;
if not !daemon then
begin
eprintf "Possible addresses:";
eprintf "http://localhost:%d/base\n\
eprintf "Possible addresses:\n\
http://localhost:%d/base\n\
http://127.0.0.1:%d/base\n\
http://%s:%d/base\n"
!selected_port !selected_port hostn !selected_port;
eprintf "where \"base\" is the name of the database\n\
Type %s to stop the service"
Type %s to stop the service\n"
"control C"
end;
flush stderr;
View
@@ -579,10 +579,10 @@ let f addr_opt port tmout max_clients g =
Unix.listen s 4;
if Sys.unix then (let _ = Unix.nice 1 in ());
let tm = Unix.localtime (Unix.time ()) in
eprintf "Ready %4d-%02d-%02d %02d:%02d port" (1900 + tm.Unix.tm_year)
(succ tm.Unix.tm_mon) tm.Unix.tm_mday tm.Unix.tm_hour tm.Unix.tm_min;
eprintf " %d" port;
eprintf "...\n";
eprintf "Ready %4d-%02d-%02d %02d:%02d port %d...\n"
(1900 + tm.Unix.tm_year)
(succ tm.Unix.tm_mon) tm.Unix.tm_mday tm.Unix.tm_hour tm.Unix.tm_min
port ;
flush stderr;
while true do
begin try accept_connection tmout max_clients g s with

0 comments on commit cd44526

Please sign in to comment.