hlfw.ca

hlfw

ref: feeb1987608bfc47465d226b78151f2056289429
dir: /log/

View raw version 
#!/bin/rc -e

. /sys/lib/hlfw/common.rc

cd $1
shift

rfork ne
nl='
'

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

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

if(test -f $gitfs/$ref/hash)
	hash=`{cat $gitfs/$ref/hash}
if not
	hash=$ref

user_prelude $gituser $repo $hash

if(! test -d $gitfs/$ref/tree){
	echo '	<p>No commits yet.</p>
		</body>
		</html>
	'
	exit
}
cd $gitfs/$ref/tree
echo '	<p>
	<a href="/git/'$gituser/$repo'/HEAD/feed.rss">RSS feed</a>
	</p>
	<p>'
shortlog $gituser $repo $ref 100
echo '	</p>'
echo '	</body>
	</html>'