Subversion Repositories planix.SVN

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