anchor.diff:  main2(["list-client", Host, PortStr]) ->
       Sock = escript_connect(Host, PortStr),
       escript_list(Sock);
  -main2(["server", PortStr, DataDir]) ->
  +main2(["delete-client", Host, PortStr, File]) ->
  +    Sock = escript_connect(Host, PortStr),
  +    escript_delete(Sock, File);
  +main2(["server", RegNameStr, PortStr, DataDir]) ->
       Port = list_to_integer(PortStr),
  -    application:start(sasl),
  +    %% application:start(sasl),
       _Pid1 = start_listen_server(Port, DataDir),
  -    _Pid2 = start_append_server(?MODULE, DataDir),
  +    _Pid2 = start_append_server(list_to_atom(RegNameStr), DataDir),
       receive forever -> ok end.
   
   escript_connect(Host, PortStr) ->
  
positive.code:     ok = inet:setopts(Sock, [{packet, line}]),
      case gen_tcp:recv(Sock, 0, 60*1000) of
          {ok, Line} ->
              %% io:format("Got: ~p\n", [Line]),
              PrefixLenLF = byte_size(Line)   - 2 - 8 - 1 - 1,
              PrefixLenCRLF = byte_size(Line) - 2 - 8 - 1 - 2,
              FileLenLF = byte_size(Line)   - 2 - 16 - 1 - 8 - 1 - 1,
  
negative.code:                 <<"DEL-migration ", File:DelFileLenLF/binary, "\n">> ->
                      do_net_server_delete_migration_only(Sock, File, DataDir);
                  _ ->
                      fmt("Else Got: ~p\n", [Line]),
                      gen_tcp:send(Sock, "ERROR\n"),
                      catch gen_tcp:close(Sock),
                      exit(normal)
  