#!/bin/sh -
#
# greppeople - search for users in the IUCS Web People Directory; CGI
# Steve Kinzler, kinzler@cs.indiana.edu, May 97
# Rob Henderson, robh, Oct 01 - Converted to new web structure
#
###############################################################################
PATH=/bin:/usr/bin; export PATH

wwwpicons=/picons/db/users/edu/indiana
piconsdir=/l/$wwwpicons
head=/l/www/People/headonly.html
tail=/l/www/People/tailonly.html

cd /l/www/People/auto

###############################################################################

tmpA=/tmp/gpA$$
tmpB=/tmp/gpB$$
tmpT=/tmp/gpT$$
#trap "rm -f $tmpA $tmpB $tmpT; exit" 0 1 2 13 15

cat *T.html | sed -n 's/^<tt>//p'     > $tmpA || exit $?
sed -n '/^__END__/,$p' < bin/mkpeople > $tmpT || exit $?

cat <<EOF
Content-type: text/html

EOF
cat $head
cat <<EOF

<base href="http://www.cs.indiana.edu/People/auto/index.html">
<script language="JavaScript">
<!--
function loadIcon(img, icon) { img.src = icon }
// -->
</script>

EOF

sed '1,/^__TITLE__/d; /^__/,$d' < $tmpT || exit $?
echo '<h2>Search Results</h2>'
sed '1,/^__INTRO__/d; /^__/,$d' < $tmpT || exit $?

cat <<EOF

<center><p>
[ <a href="">Main Index</a>
]
</p></center>
EOF

sed '1,/^__SEARCH__/d; /^__/,$d' < $tmpT || exit $?

if test -n "$QUERY_STRING"; then
	set x `echo "$QUERY_STRING" |
	       perl -pe 's/.*isindex=//; s/&.*//; s/\+/ /g;
			 s/%([\da-f]{2})/pack('C', hex $1)/gie;
			 s/[*?\[\]]//g'`; shift
fi

echo '
<h2>Matches for <code>'
echo "$@" | sed 's/&/\&amp;/g; s/</\&lt;/g; s/>/\&gt;/g'
echo '</code></h2>
<blockquote>'

nil=t
for word
do
	case "$word" in
	'')	continue;;
	*)	nil=;;
	esac
	grep -i "$word" < $tmpA > $tmpB
	mv $tmpB $tmpA || exit $?
done

if test -n "$nil"; then
	cat <<EOF
<font color="#CC0000"><strong>No search words.
Enter a name or a fragment of a name.</strong></font>
EOF

elif test -s $tmpA; then
	sort < $tmpA | sed 's/ \*<br>/<br>/' |
	while read line
	do
		OIFS="$IFS"; IFS="/.$IFS"
		set $line
		IFS="$OIFS"
		user="$3"
		if test -s "$piconsdir/$user/face.gif"; then
			cat <<EOF
<a href="javascript:loadIcon(document.$user, '$wwwpicons/$user/face.gif')">
<img src="/People/auto/bin/preicon.gif" alt="" name="$user"
 border=0 width=48 height=48 align=center></a>
EOF
		elif test -s "$piconsdir/$user/face.xbm"; then
			cat <<EOF
<a href="javascript:loadIcon(document.$user, '$wwwpicons/$user/face.xbm')">
<img src="bin/preicon.gif" alt="" name="$user"
 border=0 width=48 height=48 align=center></a>
EOF
		else
			cat <<EOF
<img src="bin/noicon.gif" alt="" border=0 width=48 height=1 align=center>
EOF
		fi
		echo "<tt>$line"
	done

else
	cat <<EOF
<font color="#CC0000"><strong>No matches.
Try a less specific name search.</strong></font>
EOF
fi

echo '</blockquote>

<hr>'

sed '1,/^__TAIL__/d; /^__/,$d' < $tmpT
cat $tail