#! /bin/sh

printf "Content-Type: text/plain\r\n\r\n"

request=server-request
port=4000

user_id=-1

list="$QUERY_STRING"

while [ "$list" != "" ]
do
	item=${list%%&*}
	list=${list#*&}

	if [ "$item" = "$list" ]; then list=""; fi

	case "$item" in
		id=* ) user_id="${item#*=}" ;;
	esac
done

if [ "$user_id" != "" ]
then

	permissions=$("$request" $port "GET-USER-PERMISSIONS $user_id")

	printf "$permissions"
fi
