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: 							{NL++L,Rem}
  					end;
  				<<"integer>",ContentRem/binary>> ->
  					[Content,Next] = binary:split(ContentRem,<<"</integer>">>),
  					{toint(Content),Next};
  				<<"string>",ContentRem/binary>> ->
  					[Content,Next] = binary:split(ContentRem,<<"</string>">>),
  					{Content,Next};
  				<<"date>",ContentRem/binary>> ->
  					[Content,Next] = binary:split(ContentRem,<<"</date>">>),
  					{Content,Next};
  				<<"data>",ContentRem/binary>> ->
  					[Content,Next] = binary:split(ContentRem,<<"</data>">>),
  					{base64:decode(Content),Next};
  				<<"real>",ContentRem/binary>> ->
  					[Content,Next] = binary:split(ContentRem,<<"</real>">>),
  					{tofloat(Content),Next};
  				<<"true/>",ContentRem/binary>> ->
  					{true,ContentRem};
  
negative.code: 							[{<<"plist">>,Val}|L]
  					end;
  				<<"?",Rem/binary>> ->
  					[_,Next] = split_first(Rem,<<"?>">>),
  					plistxml(Next,Term,L);
  				<<"!",Rem/binary>> ->
  					[_,Next] = split_first(Rem,<<">">>),
  					plistxml(Next,Term,L)
  			end;
  		% <<X,R/binary>> when X == $\r; X == $\n; X == $\s; X == $\t ->
  