#! /bin/sh

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

request=server-request
port=4000

list="$QUERY_STRING"

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

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

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


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

	"$request" $port "SET-USER-TYPE $user_id $type"

fi
