anchor.diff:  		B ->
   			Ssl = false
   	end,
  -	Checkdomain = fun(D) ->
  -					case binary:split(D,<<".">>,[global]) of
  -						[_,_,_,_] ->
  -							ok;
  -						_X ->
  -							% case inet:gethostbyname(util:tolist(D)) of
  -							% 	{ok,_} ->
  -							% 		ok;
  -							% 	Err ->
  -							% 		?PRT("Domain not reachable ~p", [D]),
  -							% 		throw(Err)
  -							% end
  -							ok
  -					end
  -				end,
   	Domport = fun(DM) ->
  -				case binary:split(DM,<<":">>) of
  +				case split_first(DM,<<":">>) of
   					[Dom] ->
  -						Checkdomain(Dom),
   						case Ssl of
   							true ->
   								[Dom,443];
  
positive.code: 								[Dom,80]
  						end;
  					[Dom,Port] ->
  						Checkdomain(Dom),
  						[Dom,toint(Port)]
  				end
  			end,
  	Userpass = fun(DomainPort,DM) ->
  					case binary:split(DM,<<"@">>) of
  						[_] ->
  							DomainPort(DM) ++ [undefined, undefined];
  						[Uspw,Rem] ->
  							DomainPort(Rem) ++ binary:split(Uspw,<<":">>)
  					end
  			end,
  	case binary:split(B,<<"/">>) of
  		[Dom,Path] ->
  			list_to_tuple(Userpass(Domport,Dom) ++ [<<"/",Path/binary>>,Ssl]);
  		[Dom] ->
  			list_to_tuple(Userpass(Domport,Dom) ++ [<<"/">>,Ssl])
  	end.
  
  httphead_body({Host,_Port,Us,Pw,Path,_Ssl},Headers1,Method,Body) ->
  	case Method of
  
negative.code: 							{NL++L,Rem}
  					end;
  				<<"integer>",ContentRem/binary>> ->
  					[Content,Next] = split_first(ContentRem,<<"</integer>">>),
  					{toint(Content),Next};
  				<<"string>",ContentRem/binary>> ->
  					[Content,Next] = split_first(ContentRem,<<"</string>">>),
  					{Content,Next};
  				<<"date>",ContentRem/binary>> ->
  					[Content,Next] = split_first(ContentRem,<<"</date>">>),
  					{Content,Next};
  				<<"data>",ContentRem/binary>> ->
  					[Content,Next] = split_first(ContentRem,<<"</data>">>),
  					{base64:decode(Content),Next};
  				<<"real>",ContentRem/binary>> ->
  					[Content,Next] = split_first(ContentRem,<<"</real>">>),
  					{tofloat(Content),Next};
  				<<"true/>",ContentRem/binary>> ->
  					{true,ContentRem};
  