anchor.diff:          {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)
  +                       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;     
  -	_ ->
  +                       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.
   
  
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:                     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} ) ,
  