#!/bin/sh
#
# Browse the bindery
#
# Copyright 2000 Wilmer van der Gaast (lintux@dds.nl)
#

#   This program is free software; you can redistribute it and/or modify
#   it under the terms of the GNU General Public License as published by
#   the Free Software Foundation; either version 2 of the License, or
#   (at your option) any later version.
#
#   This program is distributed in the hope that it will be useful,
#   but WITHOUT ANY WARRANTY; without even the implied warranty of
#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#   GNU General Public License for more details.
#
#   You should have received a copy of the GNU General Public License
#   along with this program; if not, write to the Free Software
#   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

. $WEBSERVE_ROOT/cgi-bin/functions
. $WEBSERVE_ROOT/smart.conf

echo -ne "Content-Type: text/html\\n\\n"

checkrefer
checkbind

if [ "$*" ]; then
	if [ "$1" = "bind-flags" ]; then
		declare -i i
		i=`getconfig 17 | cut -d" " -f2`
		$GENFORM < $SMART_ROOT/forms/bind-flags "$i"
		exit;
	fi
	export `echo "$*" | cut -d\& -f1`
	export `echo "$*" | cut -d\& -f2`
	export `echo "$*" | cut -d\& -f3`
	echo \<HTML\>
	echo \<HEAD\>
	echo \<TITLE\>SMArT bindery browser\</TITLE\>
	echo \</HEAD\>
	echo \<BODY BGCOLOR=\#C0C0C0\>
	if [ "$PROPERTY" = "ALL" ]; then
		echo \<TABLE BORDER\>
		echo \<TR\>
		echo \<TH COLSPAN=2 BGCOLOR=$HEADER_BACK ALIGN=LEFT\>
		echo \<TABLE BORDER=0 FRAME=0 CELLSPACING=0 CELLPADDING=0\>
		echo \<TR\>
		echo \<TD\>\<IMG SRC=\"/smart_icon.jpg\"\>\</TD\>
		echo \<TD\>\<FONT COLOR=$HEADER_BACK\>-\</FONT\>\</TD\>
		echo \<TH\>\<FONT COLOR=$HEADER_FORE\>Bindery browser: /$TYPE/$NAME/\</FONT\>\</TH\>
		echo \</TR\>
		echo \</TABLE\>
		echo \<TR\>
		echo \<TH\>Property name
		echo \<TH\>Value
		nwboprops $SERVER_LOGIN -t $TYPE -o $NAME | sort |
		{	read LINE
			while [ "$LINE" ]; do
				echo \<TR\>
				echo \<TH\>\<A HREF=\"/cgi-bin/bindery?NAME=$NAME\&TYPE=$TYPE\&PROPERTY=$LINE\"\>$LINE\</A\>
				echo -n \<TD\>\<PRE\>
				nwbpvalues $SERVER_LOGIN -t $TYPE -o $NAME -p $LINE
				echo \</PRE\>
				read LINE;
			done;
		}
		echo \<TR\>
		echo \<TH COLSPAN=2\>\<A HREF=\"/cgi-bin/bindery\"\>Back\</A\>
		echo \</TABLE\>;
	else
		echo \<TABLE BORDER\>
		echo \<TR\>
		echo \<TH BGCOLOR=$HEADER_BACK ALIGN=LEFT\>
		echo \<TABLE BORDER=0 FRAME=0 CELLSPACING=0 CELLPADDING=0\>
		echo \<TR\>
		echo \<TD\>\<IMG SRC=\"/smart_icon.jpg\"\>\</TD\>
		echo \<TD\>\<FONT COLOR=$HEADER_BACK\>-\</FONT\>\</TD\>
		echo \<TH\>\<FONT COLOR=$HEADER_FORE\>Bindery browser: /$TYPE/$NAME/$PROPERTY/\</FONT\>\</TH\>
		echo \</TR\>
		echo \</TABLE\>
		echo \<TR\>
		echo \<TD\>
		echo \<PRE\>
		nwbpvalues $SERVER_LOGIN -t $TYPE -o $NAME -p $PROPERTY -c
		echo \</PRE\>
		echo \<TR\>
		echo \<TH\>\<A HREF=\"/cgi-bin/bindery?NAME=$NAME\&TYPE=$TYPE\&PROPERTY=ALL\"\>Back\</A\>
		echo \</TABLE\>;
	fi		
	echo \</HTML\>;
else
	echo \<HTML\>
	echo \<HEAD\>
	echo \<TITLE\>SMArT bindery browser\</TITLE\>
	echo \</HEAD\>
	echo \<BODY BGCOLOR=\#C0C0C0\>
	echo \<TABLE BORDER\>
	echo \<TR\>
	echo \<TH COLSPAN=3 BGCOLOR=$HEADER_BACK ALIGN=LEFT\>
	echo \<TABLE BORDER=0 FRAME=0 CELLSPACING=0 CELLPADDING=0\>
	echo \<TR\>
	echo \<TD\>\<IMG SRC=\"/smart_icon.jpg\"\>\</TD\>
	echo \<TD\>\<FONT COLOR=$HEADER_BACK\>-\</FONT\>\</TD\>
	echo \<TH\>\<FONT COLOR=$HEADER_FORE\>Bindery browser: /\</FONT\>\</TH\>
	echo \</TR\>
	echo \</TABLE\>
	echo \<TR\>
	echo \<TH\>Name
	echo \<TH\>Number
	echo \<TH\>Type
	nwbols $SERVER_LOGIN | sort | sort +2 |
{	read LINE
	while [ "$LINE" ]; do
		NAME="`echo $LINE | cut -d" " -f1`"
		TYPE="`echo $LINE | cut -d" " -f3`"
		echo \<TR\>
		echo \<TD\>\<TT\>\<A HREF=\"/cgi-bin/bindery?NAME=$NAME\&TYPE=$TYPE\&PROPERTY=ALL\"\>$NAME\</A\>
		echo \<TD\>\<TT\>`echo $LINE | cut -d" " -f2`
		echo \<TD\>\<TT\>$TYPE
		read LINE;
	done;
};
	echo \</TABLE\>
	echo \</HTML\>
fi