anchor.diff:                     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:ok({"text/plain", "success"});
                   _ ->
                       Req:not_found()
               end;
  
positive.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.
  
  
negative.code:                     Name=list_to_atom(Addr ++ ":" ++ Port),
                      register(Name,self()),
                      N=1,
                      NameField=get_name_field(Name),
                      Response = Req :ok ( { "text/html; charset=utf-8" ,
                                       [ { "Server" ,"Erlang-web-shell" } ] ,
                                       chunked} ) ,
  