#!/bin/rc

rfork n
cd $1
*=(`{ls -drp [0-9]*})

while(! ~ $#* 0 1){
	diff -n $2/index.txt $1/index.txt | awk  -F'[\/ :]' '
	$1 ~/^[0-9]+$/ {  
		getA = "cat "$1"/current | sed -n -e ''1d; /^A/s/^A//p; /^#/q''"
		getA | getline A; close getA
		$1 = t2d($1)
		$5 = t2d($5)
		print "\n" A ":\n" $1":"$3" "$4" "$5":"$7
		next
	} 
	{ print }

	function t2d(t) {
		c = "date "t; c|getline l; close c
		split(l, a, "[ :]+")
		return  a[1]" "a[2]" "a[3]" "a[4]":"a[5]" "a[8]"("t")"
	}'
	shift
}  

echo clean >/dev/ctl >[2]/dev/null