#!/usr/bin/perl
##############################################################################
##############################################################################
# StellarStuff.com                                                           #
# All-Test                                                                   #
# Copyright 2000 StellarStuff.com                                            #
# Created 1/1/2000                                                           #
# with heavy modifications by Michael Wu 3/10/2002                           #
# Available at http://www.stellarstuff.com                                   #
##############################################################################
# COPYRIGHT NOTICE                                                           #
# Copyright 2000 StellarStuff.com   All Rights Reserved.                     #
#                                                                            #
# This script can be used\modified as long as you have paid for a registered #
# version.  To order, go to http://www.stellarstuff.com                      #
# By using this script you agree to indemnify StellarStuff.com from any      #
# liability that might arise from its use.                                   #
#                                                                            #
# Redistributing\selling the code for this program without prior written     #
# consent is expressly forbidden.                                            #
##############################################################################

require "alltest.cfg";

##############################################################################
print "Content-type: text/html\n\n";

########### Put the posted data into variables ###############################
if ($ENV{"REQUEST_METHOD"} eq 'GET') { $buffer = $ENV{'QUERY_STRING'}; }
else { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); }
@pairs = split(/&/, $buffer);
foreach $pair (@pairs) {
        ($name, $value) = split(/=/, $pair);
        $value =~ tr/+/ /;
        $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
        $FORM{$name} = $value;
}


####### Decide what to do based on the $FORM{'action'} variable  #############
if ($FORM{'action'} eq "askquestions") { &askquestions; }
elsif ($FORM{'action'} eq "checkanswers") { &checkanswers; }
else {
        #### FIRST TIME IN ####
        &askquestions;
}

#############################################################################
#############################################################################
sub header {
        open (FILE, "header.txt");
        @header = <FILE>;
        close(FILE);

        foreach $header(@header) {
                print "$header";
                }
}

#############################################################################
#############################################################################
sub footer {
        open (FILE, "footer.txt");
        @footer = <FILE>;
        close(FILE);

        foreach $footer(@footer) {
                print "$footer";
                }
}


#############################################################################
#############################################################################
sub askquestions {

        if ($usessi == 0) { &header; }

        print "Read the related article, <a href=/NMagazine/articles.php?id=820>The Joy of Thanks</a>.\n";
        print "<p>\n";
        print "To study anything effectively, you need to be able to measure it.  So for the past two years, I have been working with Southern Methodist University's Michael E. McCullough and Jo-Ann Tsang to devleop an accurate measure of gratitude and to find out how people's gratitude scores relate to their own health and well-being.  This research, which was published in Janurary 2002, in the <i>Journal of Personality and Social Psychology</i>, was conducted in part via an extensive questionnaire on SpiritualityHealth.com, as well as with groups of university students.\n";
        print "<p>\n";
        print "After analyzing the date, we were able to refine a measure of gratitude to six key factors.  To understand the role gratitude plays in your own life, take a moment to complete the test below.\n";
        print "<p>\n";
        print "Choose how much you agree with each statement.  Please read the choices carefully.  <b>Note that E and F are in reverse order.</b>\n";
        print "<p> \n";



        print " \n";

        print "<form method=\"POST\" action=\"$cgipath/alltest.cgi\"> \n";
        print "<input type=\"hidden\" name=\"action\" value=\"checkanswers\"> \n";
        print "  <table border=\"0\" width=\"100%\" cellspacing=\"2\" cellpadding=\"2\"> \n";


        open (FILE, "questions.txt");
        @questions = <FILE>;
        close(FILE);


$incidx = 0;
        foreach $questions(@questions) {
                ($idx,$ques,$a,$b,$c,$d,$e,$f,$g,$h,$i,$j,$k,$l,$m,$n,$o,$p,$q,$r,$s,$t,$val,$mul,$blk) = split(/\|/, $questions);

                if ($mul eq "1") { $itype = "Checkbox"; }
                else { $itype = "Radio"; }


                ## Question Row ##
                print "    <tr><td width=\"100%\" colspan=\"2\" >$myfont<font color=\"$celltextcolor\"><b>$ques</b></font></font></td></tr> \n";


                if ($mul eq "1") {
                        $incidx = $incidx + 100;
                        $newidx = $incidx + 1;

                        ## Up to Ten Possible Answers ##
                        if ($a) { print "    <tr><td width=\"50%\">$myfont<input type=\"$itype\" name=\"$newidx\" value=\"$b\">$a</font></td> \n";
                                if ($c) { $newidx++;
                                        print "      <td width=\"50%\">$myfont<input type=\"$itype\" name=\"$newidx\" value=\"$d\">$c</font></td></tr> \n"; }
                                else { print "      <td width=\"50%\">&nbsp;</td></tr> \n"; }
                                }
                        $newidx++;
                        if ($e) { print "    <tr><td width=\"50%\">$myfont<input type=\"$itype\" name=\"$newidx\" value=\"$f\">$e</font></td> \n";
                                if ($g) { $newidx++;
                                        print "      <td width=\"50%\">$myfont<input type=\"$itype\" name=\"$newidx\" value=\"$h\">$g</font></td></tr> \n"; }
                                else { print "      <td width=\"50%\">&nbsp;</td></tr> \n"; }
                                }
                        $newidx++;
                        if ($i) { print "    <tr><td width=\"50%\">$myfont<input type=\"$itype\" name=\"$newidx\" value=\"$j\">$i</font></td> \n";
                                if ($k) { $newidx++;
                                        print "      <td width=\"50%\">$myfont<input type=\"$itype\" name=\"$newidx\" value=\"$l\">$k</font></td></tr> \n"; }
                                else { print "      <td width=\"50%\">&nbsp;</td></tr> \n"; }
                                }
                        $newidx++;
                        if ($m) { print "    <tr><td width=\"50%\">$myfont<input type=\"$itype\" name=\"$newidx\" value=\"$n\">$m</font></td> \n";
                                if ($o) { $newidx++;
                                        print "      <td width=\"50%\">$myfont<input type=\"$itype\" name=\"$newidx\" value=\"$p\">$o</font></td></tr> \n"; }
                                else { print "      <td width=\"50%\">&nbsp;</td></tr> \n"; }
                                }
                        $newidx++;
                        if ($q) { print "    <tr><td width=\"50%\">$myfont<input type=\"$itype\" name=\"$newidx\" value=\"$r\">$q</font></td> \n";
                                if ($s) { $newidx++;
                                        print "      <td width=\"50%\">$myfont<input type=\"$itype\" name=\"$newidx\" value=\"$t\">$s</font></td></tr> \n"; }
                                else { print "      <td width=\"50%\">&nbsp;</td></tr> \n"; }
                                }
                        }
                else {
                                                ## Up to Ten Possible Answers ##
                        if ($a) { print "    <tr><td>$myfont<input type=\"$itype\" name=\"$idx\" value=\"$b\">$a<br> \n";
                                if ($c) { print "      $myfont<input type=\"$itype\" name=\"$idx\" value=\"$d\">$c<br> \n"; }
                                else { print "      &nbsp; \n"; }
                                }
                        if ($e) { print "    $myfont<input type=\"$itype\" name=\"$idx\" value=\"$f\">$e<br> \n";
                                if ($g) { print "      $myfont<input type=\"$itype\" name=\"$idx\" value=\"$h\">$g<br> \n"; }
                                else { print "      &nbsp; \n"; }
                                }
                        if ($i) { print "    $myfont<input type=\"$itype\" name=\"$idx\" value=\"$j\">$i<br> \n";
                                if ($k) { print "      $myfont<input type=\"$itype\" name=\"$idx\" value=\"$l\">$k<br> \n"; }
                                else { print "      &nbsp; \n"; }
                                }
                        if ($m) { print "    $myfont<input type=\"$itype\" name=\"$idx\" value=\"$n\">$m<br> \n";
                                if ($o) { print "      $myfont<input type=\"$itype\" name=\"$idx\" value=\"$p\">$o<br> \n"; }
                                else { print "      &nbsp; \n"; }
                                }
                        if ($q) { print "    $myfont<input type=\"$itype\" name=\"$idx\" value=\"$r\">$q<br> \n";
                                if ($s) { print "      $myfont<input type=\"$itype\" name=\"$idx\" value=\"$t\">$s<br> \n"; }
                                else { print "      &nbsp;</td></tr> \n"; }
                                }
                        }

                ## Spacer Row ##
                ## print "    <tr><td width=\"100%\" colspan=\"2\">&nbsp;<br>&nbsp;</td></tr> \n"; ##
                }

        print "    <tr><td width=\"100%\" colspan=\"2\"><center><input type=\"submit\" value=\"Submit Answers\">&nbsp; &nbsp; <input type=\"reset\" value=\"Reset\"></center></td></tr> \n";
        print "  </table> \n";
        print "</form> \n";


        if ($usessi == 0) { &footer; }
}

#############################################################################
#############################################################################
sub checkanswers {

        if ($usessi == 0) { &header; }

        print " \n";

        print "  <table border=\"0\" width=\"100%\" cellspacing=\"0\" cellpadding=\"2\"> \n";

        open (FILE, "questions.txt");
        @questions = <FILE>;
        close(FILE);

        ## Get Total Scores Here ##
        $totalpossible = 0;
        $totaluserscore = 0;

        $incidx = 0;
        foreach $questions(@questions) {
                ($idx,$ques,$a,$b,$c,$d,$e,$f,$g,$h,$i,$j,$k,$l,$m,$n,$o,$p,$q,$r,$s,$t,$val,$mul,$blk) = split(/\|/, $questions);
                $totalpossible = $totalpossible + $val;
                if ($mul ne "1") {
                        $totaluserscore = $totaluserscore + $FORM{$idx};
                        }
                else {
                        $incidx = $incidx + 100;
                        $newidx = $incidx + 1;

                        for ($x = 1; $x <= 10; $x++) {
                                $totaluserscore = $totaluserscore + $FORM{$newidx};
                                $newidx++;
                                }
                        }
                }
        ## OPEN RANK FILE HERE ##
        open (FILE, "ranks.txt");
        @ranks = <FILE>;
        close(FILE);

        ## Statistics Display ##
        foreach $ranks(@ranks) {
                ($rnka,$rnkb,$txt,$desc,$blk) = split(/\|/, $ranks);
                if ($totaluserscore >= $rnka) {
                        if ($totaluserscore <= $rnkb) {
                                $usertext = $txt;
                                $userdesc = $desc;
                                }
                        }
                }

        $userpercent = sprintf("%.2f",100 * ($totaluserscore / $totalpossible));
        $score = $totaluserscore;

        ## Display Total Scores Now ##
        if ($usepercent eq "1") {
                print "    <tr><td colspan=\"2\" width=\"50%\">&nbsp;<br>$myfont<font color=aa0000><B>Your Total Score : <big>$totaluserscore</big> ($userpercent %)</B><br><b>$usertext</b><BR><br></font></td></tr> \n";
                }
        else {
                print "    <tr><td colspan=\"2\" width=\"50%\">&nbsp;<br>$myfont<font color=aa0000><B>Your Total Score : <big>$totaluserscore</big> </B><br><b>$usertext</b></font><BR><br></td></tr> \n";
                }

print "<table border=0 width=100% cellspacing=0 cellpadding=2> \n";
print "<tr><td width=100% colspan=2><font face=arial size=2> Your score compared to the benchmarks from the 1,224 adults who recently took the GQ on this site:<br><br></font></td></tr> \n";
print "<tr><td width=20% valign=top><font face=arial size=2> 42</font></td> \n";
print "<td width=80% valign=top><font face=arial size=2> You scored among the top 13% of our sample.</font></td></tr> \n";
print "<tr><td colspan=2 valign=top><font face=arial size=2> <br>&nbsp; </font></td></tr> \n";
print "<tr><td width=20% valign=top><font face=arial size=2> 41</font></td> \n";
print "<td width=80% valign=top><font face=arial size=2> You scored among the top 25% of our sample.</font></td></tr> \n";
print "<tr><td colspan=2 valign=top><font face=arial size=2> <br>&nbsp; </font></td></tr> \n";
print "<tr><td width=20% valign=top><font face=arial size=2> 38-40</font></td> \n";
print "<td width=80% valign=top><font face=arial size=2> You scored among the top 50% of our sample.</font></td></tr> \n";
print "<tr><td colspan=2 valign=top><font face=arial size=2> <br>&nbsp; </font></td></tr> \n";
print "<tr><td width=20% valign=top><font face=arial size=2> 34-37</font></td> \n";
print "<td width=80% valign=top><font face=arial size=2> You scored among the top 75%  of our sample.</font></td></tr> \n";
print "<tr><td colspan=2 valign=top><font face=arial size=2> <br>&nbsp; </font></td></tr>  \n";
print "<tr><td width=20% valign=top><font face=arial size=2> 1-34</font></td>  \n";
print "<td width=80% valign=top><font face=arial size=2> You scored in the bottom 25%  of our sample.</font></td></tr> \n";
print "<tr><td colspan=2 valign=top><font face=arial size=2> <br>&nbsp; </font></td></tr> \n";
print "</table> \n";
print "In our research we correlated people's gratitude scores with their scores on standard measures of psychological health.  We found that compared to their less grateful counterparts, grateful people are higher in positive emotions and life satisfaction, and lower in negative emotions such as depression, anxiety, and envy.  They also appear to be more socially oriented - they are more empathic, forgiving, helpful, and supportive than are their less grateful counterparts.  In addition, grateful people are less focused on material goals.  Finally, people with stronger dispositions toward gratitude tend to be more spiritually and religiously minded.  They score higher not only on measures of traditional religiousness, but also on nonsectarian measures of spirituality that assess spiritual experiences (such as a sense of contact with a divine power) and sentiments (such as the belief that all living things are connected).\n";
print "<p> \n";
print "If you scored low - or simply would like to score higher - on the gratitude scale, feel grateful.  Why? Our research suggests that this beneficial emotional state can be learned and nurtured.  A low score means that some simple practices will likely make you happier and healthier.\n";

print "<p> \n";
print "<b>Read more about gratitude:</b> \n";
print "<br> \n";
print "<li><a href=/NMagazine/articles.php?id=818>Giving Thanks for All the Little (and Big) Things in Life \n";
print "<li><a href=/NMagazine/articles.php?id=820> The Joy of Thanks</a> <p>\n";




        if ($usessi == 0) { &footer; }
}