28 lines
525 B
Diff
28 lines
525 B
Diff
|
#!/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
|