#!/bin/rc -e

cd /
if(test -s /sys/lib/pkg/$1) {
	fs=(`{cat /sys/lib/pkg/$1 | awk '{print $1}'})
	ss=(`{cat /sys/lib/pkg/$1 | awk '{print $2}'})
	for(i in `{seq $#fs}) {
		s=`{sha1sum $fs($i) | awk '{print $1}' | tr a-z A-Z}
		if(test $s '=' $ss($i)) {
			echo D $fs($i)
			rm $fs($i)
		} 
		if not {
			echo M $fs($i) NOT DELETING
		}
	}
	rm /sys/lib/pkg/$1
}