wm: infra

ref: adf681cd88d306c4afd995150bbb21d3286d0eba
dir: /doc/html/

View raw version 
#!/bin/rc -e

. /sys/lib/shithub/common.rc

cd $1
shift

rfork ne
nl='
'

gituser=$1
repo=$2
refname=$3
file=$4

repons $gituser $repo
if(! ref=`{resolveref $refname}){
	echo '<b>invalid ref '$refname'</b>'
	exit
}

if(! test -d $gitfs/$ref/tree){
	echo '	<p>No code pushed</p>
		</body>
		</html>
	'
	exit
}

cd $gitfs/$ref/tree

echo '	<p>'

echo '<p><div id="content">'

if(test -r $gitfs/$ref/tree/$file.wms)
	wm/wiki2ms $gitfs/$ref/tree/$file.wms | ms2html
if not
	ms2html < $gitfs/$ref/tree/$file.ms
	
echo '	</div>
	</p>
	</body>
	</html>'