anchor.diff:  
       wf:info(?MODULE,"Info Init: ~p Offset: ~p Block: ~p~n",[FilePath,FileSize,Block]),
   
  -    Name={Sid,filename:basename(RelPath)},
  +    Name={Sid,filename:basename(FileName)},
       Block2=case Block of 0 -> ?STOP; _ -> ?NEXT end,
       Offset2=case FileSize >= Offset of true -> FileSize; false -> 0 end,
       FTP2=FTP#ftp{block=Block2,offset=Offset2,filename=RelPath,data= <<>>},
  
positive.code:     wf:send(Sid,FTP#ftp{data= <<>>,status={event,init}}),
      {ok,Async};
  
  proc(#ftp{sid=Sid,data=Data,status= <<"send">>,block=Block}=FTP,
       #handler{state=#ftp{data=State,size=TotalSize,offset=Offset,filename=RelPath}}=Async) when Offset+Block >= TotalSize ->
  	wf:info(?MODULE,"Proc Stop ~p, last piece size: ~p", [FTP#ftp{data= <<>>},byte_size(Data)]),
  	case file:write_file(filename:join(?ROOT,RelPath),<<Data/binary>>,[append,raw]) of
  
negative.code:     {reply,wf:format(FTP2),Req,State};
  
  info(#ftp{sid=Sid,filename=FileName,status= <<"send">>}=FTP,Req,State) ->
      wf:info(?MODULE,"Info Send: ~p",[FTP#ftp{data= <<>>}]),
      Reply=try gen_server:call(n2o_async:pid({file,{Sid,filename:basename(FileName)}}),FTP)
          catch E:R -> wf:error(?MODULE,"Info Error call the sync: ~p~n",[FTP#ftp{data= <<>>}]),
              FTP#ftp{data= <<>>,block=?STOP} end,
      wf:info(?MODULE,"reply ~p",[Reply#ftp{data= <<>>}]),
  