anchor.diff:                      Addr=Req:get(peer),
                       Port=integer_to_list(get_port(Socket)),
                       Name=list_to_atom(Addr ++ ":" ++ Port),
  +                    %Register process as ip:port name
                       register(Name,self()),
                       N=1,
                       NameField=get_name_field(Name),
  
positive.code:                        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:             case Path of
                 "shell" ->
                     Params=Req:parse_post(),
                     Pid=list_to_atom(proplists:get_value("name",Params)),
                     case string:strip(proplists:get_value("str",Params)) of
                        "halt()."  ->
                                      Pid ! {client,exit};
                          Str      ->
                                      Pid ! {post_msg,Str}
                     end,
                     Req:ok({"text/plain", "success"});
                  _ ->
                      Req:not_found()
  