Chris@21: /**
Chris@21:  * Some logging facilities
Chris@21:  * Copyright Yves Raimond (c) 2006
Chris@21:  */
Chris@21: :- module(log,[log/1,log/2]).
Chris@21: 
Chris@21: 
Chris@21: log_file('cmn-uri.log').
Chris@21: 
Chris@21: log(MessageFormat,Vars) :-
Chris@21: 	sformat(String,MessageFormat,Vars),
Chris@21: 	log(String).
Chris@21: 
Chris@21: log(Message) :-
Chris@21: 	get_time(A),
Chris@21: 	convert_time(A,Y,M,D,H,Min,S,_),
Chris@21: 	sformat(Stamp,'<~d/~d/~d-~d:~d:~d> ',[Y,M,D,H,Min,S]),
Chris@21: 	log_file(File),
Chris@21: 	open(File,append,Stream,[]),
Chris@21: 	write(Stream,Stamp),
Chris@21: 	write(Stream,Message),
Chris@21: 	write(Stream,'\n'),
Chris@21: 	close(Stream).
Chris@21: 
Chris@21: