#! /usr/bin/perl

# As with normal MLJ scripts, we need to source in the parameters. The
# path must be hard-coded as this is a CGI script

require "./parms.cgi";

# Now, see where we get our arguments from. 

if (defined($ENV{"REQUEST_METHOD"})) {
				# HTML request
    if ($ENV{'REQUEST_METHOD'} eq "POST") {

				# Get the input
	read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

				# Split the name-value pairs
    } elsif ($ENV{'REQUEST_METHOD'} eq "GET") {
	$buffer = $ENV{"QUERY_STRING"};
    } else {
 	$buffer = "";
    }

    @pairs = split(/&/, $buffer);


    foreach $pair (@pairs)
    {
	($name, $value) = split(/=/, $pair);

				# Un-Webify plus signs and %-encoding
	$value =~ tr/+/ /;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

	$FORM{$name} = $value;
    }

}

&mlj_scj_page_headers("MLJ/SCJ Autoresponder Request Form",
		      "Autoresponder Request Form");
print qq!<FORM ACTION="sendreq.cgi" METHOD=post>\n!;
print "<P><TABLE>\n";
print "<TR><TD>Send requested information to:</TD>\n";
print qq!<TD><INPUT NAME="ADDRESS" SIZE=40 MAXLENGTH=80 TYPE=text><BR>\n!;
print "<FONT SIZE=-1>Internet Address: Name\@Site.Domain</FONT></TD>\n";
print "</TABLE>\n";

print <<"EOF;";
<P><TABLE WIDTH=100% ALIGN=center BORDER CELLPADDING=10>
<TR>
<TD ALIGN=center VALIGN=center WIDTH=20%>
<IMG SRC="http://www.scjfaq.org/faq.gif" ALT="[FAQ]" ALIGN=middle><BR>
<B>S.C.J Frequently Asked Questions</B>
</TD>
EOF;

				# the FAQ

print <<"EOF;";
<TD ALIGN=left VALIGN=top WIDTH=80%>
EOF;

print qq!<INPUT TYPE=CheckBox NAME="faq-index" VALUE=1 ALIGN=middle!;
print " CHECKED" if $FORM{"faq-index"} == 1;
print "> ";
print "Index to the parts of the S.C.J FAQ.\n";
print qq!<P><INPUT TYPE=CheckBox NAME="faq-all" VALUE=1 ALIGN=middle!;
print " CHECKED" if $FORM{"faq-all"} == 1;
print "> ";
print "Send all parts of the S.C.J FAQ.\n";

open(INDEXFILE, "<$SCJHOME/FAQ/00-index.txt");
faqindex:
while (<INDEXFILE>) {
    next faqindex if /^\#/;
    next faqindex if /^\s+$/;
    chop;
    if (/^(\S+)\s+(\S.*)/) {
	$file = $1;
	$descr = $2;
	print qq!<P><INPUT TYPE=CheckBox NAME="faq-!,$file,
		qq!" VALUE=1 ALIGN=middle!;
	$thiskey = "faq-".$file;
	print " CHECKED" if $FORM{$thiskey} == 1;
	print "> ";
	print &to_html($descr),"\n";
    } else {
	print &to_html($_),"\n";
    }
}
close(INDEXFILE);
print "</TD>\n";
print "<TR>\n";
print "<TD ALIGN=center VALIGN=center WIDTH=20%>\n";
print qq!<IMG SRC="http://www.scjfaq.org/rlists.gif" ALT="[RL]" ALIGN=center><BR>!;
print "<B>S.C.J Reading Lists</B>\n";
print "</TD>\n";

				# Now, the reading lists
print <<"EOF;";
<TD ALIGN=left VALIGN=top WIDTH=80%>
EOF;

print qq!<INPUT TYPE=CheckBox NAME="rl-index" VALUE=1 ALIGN=middle!;
print " CHECKED" if $FORM{"rl-index"} == 1;
print "> ";
print "Index to the parts of the S.C.J Reading Lists.\n";
print qq!<P><INPUT TYPE=CheckBox NAME="rl-all" VALUE=1 ALIGN=middle!;
print " CHECKED" if $FORM{"rl-all"} == 1;
print "> \n";
print "Send all parts of the S.C.J Reading Lists.\n";

open(INDEXFILE, "<$SCJHOME/RLISTS/00-index.txt");
rlindex:
while (<INDEXFILE>) {
    next rlindex if /^\#/;
    next rlindex if /^\s+$/;
    chop;
    if (/^(\S+)\s+(\S.*)/) {
	$file = $1;
	$descr = $2;
	print qq!<P><INPUT TYPE=CheckBox NAME="rl-!,$file,
		qq!" VALUE=1 ALIGN=middle!;
	$thiskey = "rl-".$file;
	print " CHECKED" if $FORM{$thiskey} == 1;
	print "> \n";
	print &to_html($descr),"\n";
    } else {
	print &to_html($_),"\n";
    }
}
close(INDEXFILE);
print "</TD>\n";
print "<TR>\n";
				# Other

print "<TD ALIGN=center VALIGN=center WIDTH=20%>\n";
print qq!<IMG SRC="http://www.scjfaq.org/scjp.gif" ALT="[SCJP]" ALIGN=center><BR>!;
print "<B>soc.culture.jewish.parenting</B>\n";
print "</TD>\n";
print "<TD ALIGN=left VALIGN=top WIDTH=80%>\n";

print qq!<INPUT TYPE=CheckBox NAME="scjp-faq" VALUE=1 ALIGN=middle!;
print " CHECKED" if $FORM{"scjp-faq"} == 1;
print "> \n";
print "Frequently Asked Questions for soc.culture.jewish.parenting.\n";
print qq!<P><INPUT TYPE=CheckBox NAME="randomizer" VALUE=1 ALIGN=middle!;
print " CHECKED" if $FORM{"randomizer"} == 1;
print "> \n";
print "Uuencode zip of the randomizer software used by s.c.j.p.\n";

print "</TD>\n";
print "<TR>\n";
print "<TD ALIGN=center VALIGN=center WIDTH=20%>\n";
print qq!<IMG SRC="http://www.mljewish.org/mlj-sml.gif" ALT="[FAQ]" ALIGN=center><BR>!;
print "<P><CENTER><B>Mail.Liberal-Judaism</B></CENTER>\n";
print "</TD>\n";
print "<TD ALIGN=left VALIGN=top WIDTH=80%>\n";
print qq!<INPUT TYPE=CheckBox NAME="subjects" VALUE=1 ALIGN=middle!;
print " CHECKED" if $FORM{"subjects"} == 1;
print "> \n";
print "Subjects Discussed in Mail.Liberal-Judaism.\n";
print qq!<P><A HREF="backissu.cgi">!;
print "Retrieve MLJ backissues by Email</A>\n";

print "</TD>\n";
print "</TABLE>\n";

print qq!<P><INPUT TYPE=submit VALUE="Submit Request" CLASS="Button"> <INPUT TYPE=reset VALUE="Reset Request" CLASS="Button">\n!;
print "</FORM>\n";

&mlj_scj_page_closing();

sub to_html {
    local($str) = @_;

    $str =~ s/\&/\&\#38;/g;
    $str =~ s/\"/\&quot;/g;
    $str =~ s/\'/\&\#39;/g;
    $str =~ s/\</\&\#60;/g;
    $str =~ s/\>/\&\#62;/g;
    $str =~ s/\\/\&\#92;/g;
    $str =~ s/\~/\&\#126;/g;

    return($str);
}