#!/tools/perl/current/bin/perl
#######################################################################
# Script Name: GO UserSurvey #
#######################################################################
use CGI qw/:standard :html/;
use CGI::Carp qw(fatalsToBrowser);
use strict;
my $query = new CGI;
my $prooftmp = "/tmp/mailtmp.abs.$$";
my $uses1 = $query->param('uses1');
my $uses2 = $query->param('uses2');
my $uses3 = $query->param('uses3');
my $uses4 = $query->param('uses4');
my $uses5 = $query->param('uses5');
my $uses = $uses1 . ", " . $uses2 . ", " . $uses3 . ", " . $uses4 . ", " . $uses5;
my $browse_search = $query->param('browse_search');
my $uses_other = $query->param('uses_other');
my $AmiGO = $query->param('AmiGO');
my $GOdb = $query->param('GOdb');
my $AmiGO_perl = $query->param('AmiGO_perl');
my $format = $query->param('format');
my $browser = $query->param('browser');
my $other_browser = $query->param('other_browser');
my $tools = $query->param('tools');
my $doc = $query->param('doc');
my $doc_why = $query->param('doc_why');
my $group_size = $query->param('group_size');
my $go_use_comment = $query->param('go_use_comment');
my $assoc_comment = $query->param('assoc_comment');
my $feedback = $query->param('feedback');
print "Content-type: text/html\n\n";
print "\n";
print "Thank You - GO User Survey\n";
print "\n";
print "| TAG | Value | \n";
print "| USES | $uses |
\n";
print "| BROWSE_SEARCH | $browse_search |
\n";
print "| USES_OTHER | $uses_other |
\n";
print "| AMIGO | $AmiGO |
\n";
print "| GODB | $GOdb |
\n";
print "| AMIGO_PERL | $AmiGO_perl |
\n";
print "| FORMAT | $format |
\n";
print "| BROWSER | $browser |
\n";
print "| OTHER_BROWSER | $other_browser |
\n";
print "| TOOLS | $tools |
\n";
print "| DOC | $doc |
\n";
print "| DOC_WHY | $doc_why |
\n";
print "| GROUP_SIZE | $group_size |
\n";
print "| GO_USE_COMMENT | $go_use_comment |
\n";
print "| ASSOC_COMMENT | $assoc_comment |
\n";
print "| FEEDBACK | $feedback |
\n";
print "
\n";
print "\n";
exit;