anchor.diff:  
   
   fmtnow() ->
  -    {{Year, Month, Date}, {Hour, Min, Sec}} = calendar:local_time(),
  -    io_lib:format("[~2..0w/~s/~4..0w:~2..0w:~2..0w:~2..0w ~s]",
  -                  [Date,yaws:month(Month),Year, Hour, Min, Sec, zone()]).
  +    {{Year, Month, Day}, {Hour, Min, Sec}} = calendar:local_time(),
  +    [fill_zero(Day,2),"/",yaws:month(Month),"/",integer_to_list(Year),":",
  +     fill_zero(Hour,2),":",fill_zero(Min,2),":",fill_zero(Sec,2)," ",zone()].
   
   zone() ->
       Time = erlang:universaltime(),
  
positive.code:         false ->
              AL;
          enoent ->
              %% Logfile disapeared, 
              error_logger:format("Logfile ~p disapeared - we reopen it",
                                  [AL#alog.filename]),
  	    file:close(AL#alog.fd),
              {ok, Fd2} = file:open(AL#alog.filename, [write, raw]),
  
negative.code: %% Ugly reformatting code to get times like +0000 and -1300
  
  zone(Val) when Val < 0 ->
      [$-|fill_zero(trunc(abs(Val)), 4)];
  zone(Val) when Val >= 0 ->
      [$+|fill_zero(trunc(Val), 4)].
  
  fill_zero(N, Width) ->
      left_fill(N, Width, $0).
  
  left_fill(N, Width, Fill) when is_integer(N) ->
      left_fill(integer_to_list(N), Width, Fill);
  left_fill(N, Width, _Fill) when length(N) >= Width ->
      N;
  left_fill(N, Width, Fill) ->
      left_fill([Fill|N], Width, Fill).
  