#!/bin/rc rfork ncd $1*=(`{ls -drp [0-9]*}) while(! ~ $#* 0 1){ diff -n $2/index.txt $1/index.txt | awk -F'[\/ :]' ' $1 ~/^[0-9]+$/ { getA = "cat "$5"/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
#!/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 "$5"/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