timestamping log files

[Giorgos Keramidas]

Hello world,

H8ela na krathso log apo kati pou etrexe polu ora, kai na jero posh
ora ekane sto kathe shmeio...  H aplh lush pou skefthka htan kati san
to ejhs mikro Perl scrift:

	$ cat ~/bin/tslog
	#!/usr/bin/perl

	use POSIX qw(strftime);

	$| = 1;
	while (defined($line = <STDIN>)) {
		print(strftime("%Y.%m.%d.%H.%M.%S| ", localtime()) . $line);
	}

To opoio to ekana fusika ektelesimo, kai ustera thn epomenh fora pou
ekana buildworld sto FreeBSD, etreksa kati san:

	$ cd /usr/src
	$ cvs up
	$ ( make buildworld 2>&1 ) | tslog | tee log.buildworld

To apotelesma moiazei me to parakato.   Skefthka oti mporei kapoios na
thelei kati antistoixo kai to stelno gia na uparxei (p.x. sta list
archives):

%%%
2002.09.15.17.00.16|
2002.09.15.17.00.16| --------------------------------------------------------------
2002.09.15.17.00.16| >>> Rebuilding the temporary build tree
2002.09.15.17.00.16| --------------------------------------------------------------
2002.09.15.17.00.16| rm -rf /usr/obj/usr/src/i386
2002.09.15.17.00.16| mkdir -p /usr/obj/usr/src/i386/usr/bin
2002.09.15.17.00.16| mkdir -p /usr/obj/usr/src/i386/usr/lib/compat/aout
2002.09.15.17.00.16| mkdir -p /usr/obj/usr/src/i386/usr/games
2002.09.15.17.00.16| mkdir -p /usr/obj/usr/src/i386/usr/libdata/ldscripts
2002.09.15.17.00.16| mkdir -p /usr/obj/usr/src/i386/usr/libexec/elf
...
2002.09.15.20.19.52| rm -f /etc/mail/hades.hell.gr.cf
2002.09.15.20.19.52| (cd /usr/src/etc/sendmail && \
		     m4 -D_CF_DIR_=/usr/src/etc/sendmail/../../contrib/sendmail/cf/ \
		     /usr/src/etc/sendmail/../../contrib/sendmail/cf/m4/cf.m4 \
		     /etc/mail/hades.hell.gr.mc) > /etc/mail/hades.hell.gr.cf
2002.09.15.20.19.53| chmod 444 /etc/mail/hades.hell.gr.cf
%%%