| 123456789101112131415161718192021222324252627 |
- #!/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
|
