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: sqltypecheck({float,_Def},V) ->
  	tofloat(V);
  sqltypecheck({date,_Dev},V) ->
  	[Year,M,D] = split(tobin(V),<<"-">>),
  	{toint(Year),toint(M),toint(D)};
  sqltypecheck({time,_Dev},V) ->
  	[H,M,S] = split(tobin(V),<<":">>),
  	{toint(H),toint(M),toint(S)};
  sqltypecheck({datetime,_Dev},V) ->
  	[Date,Time] = split(tobin(V),<<" ">>),
  	{sqltypecheck(date,Date),sqltypecheck(time,Time)};
  sqltypecheck({Name,_Max},V) when Name == url ->
  	url(V),
  