[9fans] TeX replica script for fossil

[9fans] TeX replica script for fossil

[jas]

Below is a modified script to install TeX on a fresh fossilize
machine.  I ended up just putting it on my filesystem as
/dist/replica/tex

#!/bin/rc

s=/n/dist
serverroot=/n/dist
serverlog=$s/tex.log
serverproto=$s/tex.proto
fn servermount {
	if ( ! test -e $home/tmp/tex.iso.bz2) {
		srv tcp!sources.cs.bell-labs.com sources /n/sources
		cp /n/sources/extra/tex.iso.bz2 $home/tmp
	}
	if ( ! test -e $home/tmp/tex.iso ) {
		cwd=`{pwd}
		cd $home/tmp; bunzip2 tex.iso.bz2
		cd $cwd
	}
	mount /srv/9660 /n/cdrom $home/tmp/tex.iso
	bind /n/cdrom /n/dist
}
fn serverupdate { status='' }

if ( ! test -e /srv/boot && ! test -e /srv/kfs ) {
	echo 'error: neither /srv/boot nor /srv/kfs present; make sure you are running on the file server'
	exit '/srv/boot or /srv/kfs not present'
}

if (test -e /srv/fscons) {
	if ( ! test -w /srv/fscons ) { 
		echo 'error: no write access to /srv/fscons, make sure you are the host owner' 
		exit 'no write access to /srv/fscons'
	}

	fn clientmount { echo 'srv -AWP replica'>>/srv/fscons;  mount -c /srv/replica /n/boot }
	c=/n/boot/dist/replica
	clientroot=/n/boot

	if ( ! test -e $c/client/tex.db) {
		>>$c/client/tex.db
		>>$c/client/tex.log
	}
} 
if not {
	fn clientmount { 9fs kfs }
	c=/n/kfs/dist/replica
	clientroot=/n/kfs
}

clientdb=$c/client/tex.db
clientexclude=(dist/replica/client)
clientlog=$c/client/tex.log
clientproto=$c/tex.proto

applyopt=(-u -T$c/client/tex.time)