1#!/bin/rc 2 3rfork n 4cd $1 5*=(`{ls -drp [0-9]*}) 6 7while(! ~ $#* 0 1){ 8 diff -n $2/index.txt $1/index.txt | awk -F'[\/ :]' ' 9 $1 ~/^[0-9]+$/ { 10 getA = "cat "$5"/current | sed -n -e ''1d; /^A/s/^A//p; /^#/q''" 11 getA | getline A; close getA 12 $1 = t2d($1) 13 $5 = t2d($5) 14 print "\n" A ":\n" $1":"$3" "$4" "$5":"$7 15 next 16 } 17 { print } 18 19 function t2d(t) { 20 c = "date "t; c|getline l; close c 21 split(l, a, "[ :]+") 22 return a[1]" "a[2]" "a[3]" "a[4]":"a[5]" "a[8]"("t")" 23 }' 24 shift 25} 26 27echo clean >/dev/ctl >[2]/dev/null 28