#!/bin/rc

rfork e
if(! ~ $#* 1){
	echo usage: patch/okay dir >[1=2]
	exit usage
}

i=$1
files=(files removed readme email)
for(f in $files)
	if(! test -e $i/$f ){
		echo  'missing file: '^$i/$f >[1=2]
		exit 'missing file: '^$i/$f
	}
if(grep -v '^/[_a-zA-Z0-9.\-+/:]+ [_a-zA-Z0-9.\-+:]+$' $i/files){
	echo $i: bad file list >[1=2]
	exit 'bad file list' 
}
if(grep -v '^/[_a-zA-Z0-9.\-+/:]+$' $i/removed){
	echo $i: bad removed list >[1=2]
	exit 'bad removed list' 
}
exit ''