19a747e4fSDavid du Colombier#!/bin/rc 29a747e4fSDavid du Colombier 39a747e4fSDavid du Colombierrfork n 49a747e4fSDavid du Colombiercd $1 59a747e4fSDavid du Colombier*=(`{ls -drp [0-9]*}) 69a747e4fSDavid du Colombier 79a747e4fSDavid du Colombierwhile(! ~ $#* 0 1){ 8a22b0629SDavid du Colombier diff -n $2/index.txt $1/index.txt | awk -F'[\/ :]' ' 9a22b0629SDavid du Colombier $1 ~/^[0-9]+$/ { 10*7292f185SDavid du Colombier getA = "cat "$5"/current | sed -n -e ''1d; /^A/s/^A//p; /^#/q''" 11a22b0629SDavid du Colombier getA | getline A; close getA 12a22b0629SDavid du Colombier $1 = t2d($1) 13a22b0629SDavid du Colombier $5 = t2d($5) 14a22b0629SDavid du Colombier print "\n" A ":\n" $1":"$3" "$4" "$5":"$7 15a22b0629SDavid du Colombier next 16a22b0629SDavid du Colombier } 17a22b0629SDavid du Colombier { print } 18a22b0629SDavid du Colombier 19a22b0629SDavid du Colombier function t2d(t) { 20a22b0629SDavid du Colombier c = "date "t; c|getline l; close c 21a22b0629SDavid du Colombier split(l, a, "[ :]+") 22a22b0629SDavid du Colombier return a[1]" "a[2]" "a[3]" "a[4]":"a[5]" "a[8]"("t")" 23a22b0629SDavid du Colombier }' 249a747e4fSDavid du Colombier shift 259a747e4fSDavid du Colombier} 26a22b0629SDavid du Colombier 279a747e4fSDavid du Colombierecho clean >/dev/ctl >[2]/dev/null 28