anchor.diff:                      Name=list_to_atom(Addr ++ ":" ++ Port),
                       register(Name,self()),
                       N=1,
  -                    NameField=get_name_field(Name),                
  +                    NameField=get_name_field(Name),
                       Response = Req :ok ( { "text/html; charset=utf-8" ,
                                        [ { "Server" ,"Erlang-web-shell" } ] ,
                                        chunked} ) ,
  
positive.code:                    Str=proplists:get_value("str",Params),
                     Pid=list_to_atom(proplists:get_value("name",Params)),
                     Pid ! {post_msg,Str},
                     Req:ok({"text/plain", "success"});                   
                  _ ->
                      Req:not_found()
              end;
  
negative.code:         {post_msg,Str}->
               try eshell:eval(Str,Binding) of
                  {value,Value,NewBinding} ->
                         Response:write_chunk(io_lib:format("~p</br>",[Value]) ++ get_form(NameField,N+1)),
                     loop(NameField,Response,NewBinding,N+1)
               catch
                     _:Why->
                         Response:write_chunk(io_lib:format("~p</br>",[Why]) ++ get_form(NameField,N+1)),
                     loop(NameField,Response,Binding,N+1)
              end;
      _ ->
             loop(NameField,Response,Binding,N)
      end.
  
  