InsaneJournal

Thank you, for using this survey.

Use the "Save" function in your browser to save this as an HTML
document. Then you can share the results as you desire, without having to
fill out the form again.

There were 263 questions

Here are your answers

The program that processed this form (chklist.cgi)

#!/usr/pkg/bin/perl

use CGI qw(:standard);

print header();
print start_html(-title=>"Partner Interest Checklist Results");

@bgcolor = ('White','Silver');

$top = param('counter');

$name = param('identify');
print <<EOH;
<h2>Thank you, <b>$name</b> for using this survey.</h2>

<p>Use the "Save" function in your browser to save this as an HTML
document.  Then you can share the results as you desire, without having to 
fill out the form again.
<br>There were $top questions
<br>Here are your answers<br>
<hr><table border=1>
<tr><th>#<th>Activity<th>Experience Before</th>
<th>Giver/Receiver</th><th>Willingness</th>
<th>Notes & Nuances</th></tr>
EOH

$counter=0;
while( ++$counter <= $top ) {
    $format="<tr bgcolor=%s><td>%d<td>%s<td>%s" .
           "<td>%s<td>%s<td>%s</tr>\n";
    printf($format,
	$bgcolor[($counter % 2) ],
	$counter,
	param("d$counter"),
	param("e$counter"),
	param("g$counter") | " ",
	param("w$counter"),
	param("n$counter")
      );
}

print "</table>\n<p><hr>";
$cginame = url(-relative=>1);
print "<h3>The program that processed this form ($cginame)</h3>\n<pre>\n";
open(CGI,$cginame) || die "I can't find myself at $cginame!\n";
while(<CGI>) { s/</</g ; print; };
print "\n</pre></hr>\n";