#!/usr/local/bin/perl

# Survey input files
# 
# Title
# Description/Opening text
# Questions/answers/type
# Results file
#
# Question types
# PICK: single choice (radio buttons if <5, selection if >=5)
# MANY-min-max: multiple choices (checkboxes if <5, selection if >5)
# RANK-topn: rank the top-n choices
# SHORT: short text answer
# LONG: long text answer

require 'parseform.pl';

if($ENV{'REQUEST_METHOD'} eq "GET"){
	%form = &parseform($ENV{'QUERY_STRING'}) if $ENV{'QUERY_STRING'};
}