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