#!/bin/rc
#go to /n/sources/contrib/<user>/replica/
#
#for i in */db
#cd root
#mkpaqfs -name $i  `cat $i`
#
#Then we have all paqfs. Those get moved
#to a web server and a list is created
#
#Then pkginstall is simply hget blah > $home/packages
#
#Then mount and bind it.
fn dep {
	if (test -f $1/dep) {
		for (dep in `{cat $1/dep}) {
			# if it has a /, go up 2, else go up 1
			# the naming is inconsistent because users figure it out, not programs. 
			# This will be fixed by this little hack. 
			# package from same contributor?
			tryme=$1/../$dep
			tryhim=$1/../../$dep
			tryany=$1/../../*/$dep
			if(test -f $tryme/dep) dep $tryme
			# package from other contributor, and the name is in the dep?
			if not if(test -f $tryhim/dep) dep $tryhim
			# ANY contributor?
			if not if(test -f $tryany/dep) dep $tryany
			# Then it is 'terminal', i.e. no further dependencies
			# Echo this last so leaf nodes get listed first. 
			# Packages get installed in the order in which they're found in the deps file
			echo $dep
		}
	}
}

pdir=`{pwd}
packpath=/n/sources/contrib/rminnich/package/packages
# by doing the for this way we verify the presence of the replica directory. 
# If no replica directory exists, then we won't even run for that user. 
# Lazy!
>/tmp/test
mkdir -p proto deps packages
rm -f packages/*
rm -f proto/*
rm -f deps/*
for (replica in /n/sources/contrib/*/replica) {
	echo $replica
	cd $replica
	cd ..
	contributor=`{pwd}
	echo $contributor
	root=`{pwd}^/root
	echo $root
	pwd
	for (db in replica/*/db) {
		echo "DB " $db
		package=`{echo $db | sed s,/db,, | sed s,replica/,,}
		echo "Package" $package
		pwd	
		# simple at first
		proto=/n/sources/contrib/rminnich/package/proto/$package
		# need to adjust things due to mk9660 limitations. 
		# the directory for a file must be RIGHT BEFORE that file
		# or the mkfs libraries get upset. So:
		# x/b
		# x/b.x
		# x/b/c
		# will fail. Has to be
		# x/b.c
		# x/b
		# x/b/c
		# so to force the right sort order, checi for a mode of 20000000
		# and turn x/b into x/b/ for sort order, Then stupid libraies
		# get upset so you have to change the x/b/ back into x/b
		# yuck. 
		sed 's/ - 20000000/\/&/' < $db | sort | sed 's/\/ - 20000000/ - 20000000/' > /tmp/db.tmp
		{echo root - sys sys ; awk  -v 'root='$root '{print "root/"$1 " - " $4 " " $5 }' /tmp/db.tmp }> $proto
		disk/mk9660 -9cj -p $proto  -s $contributor  /n/sources/contrib/rminnich/package/packages/$package.iso
		zipresult=`{cd /n/sources/contrib/rminnich/package/packages/; bzip2 $package.iso}
		#rm /n/sources/contrib/rminnich/package/packages/$package.iso
		dep $contributor/replica/$package > /n/sources/contrib/rminnich/package/deps/$package
		pwd
	}
}

cd $pdir
#for (packages in packages/*) {
#	sha1sum $package > $package.sha1
#}

cd proto
ls > ../list