:- [absl].
:- ['~/kraft/prolog/util/print_xml'].

url(sender,'http://quail.csd.abdn.ac.uk:12344/me').
url(receiver,"http://quail.csd.abdn.ac.uk:12342/you").

go_send :-
	write('***send'),
	nl,
	Content=env('mytag',[],hello),
	url(sender,Sender),
	url(receiver,Receiver),
	compose_message(Sender,Receiver,Content,Message),
	print_xml(Message),
	nl,
	send_message(Message).

go_receive :-
	write('***receive'),
	nl,
	url(sender,Sender),
	url(receiver,Receiver),
	create_aktbus_receiver(Receiver,Abr),
	receive_message(Abr,Message),
	print_xml(Message),
	nl,
	destroy_aktbus_receiver(Abr).
