#!/var/spool/perl/perl
#
# Requires: lib nrc

# $spath_real: the path of the script on the server
$spath_real = '/var/spool/perl/W2/';

# Obtain the subroutines needed
require "${spath_real}lib";
require "${spath_real}nrc";

# $fromname: real name of email to requestor
# $frommail: "sender" of email to requestor
# $fromphone: phone number to call in case of problems
$fromname = "Weekeditie Administratie";
$frommail = "admin\@nrc.nl";
$fromphone = "010-4067000";

# $requestdir: directory in which request should be stored
$requestdir = "/var/spool/requests/";
$requestfile = "proefnummer.new";

# $topfile: file to be inserted at top of document
# $bottomfile: file to be inserted at bottom of document
$topfile = "${insertdir}proefnummer.begin";
$bottomfile = "${insertdir}proefnummer.eind";

# Print HTTP header
&HTTPHeader;

# Check if POST data available, return if not
# Check if all fields are entered, return if not
# Check if adapting request, return if so
# Check if final request, return if so
exit if &FirstTime;
exit if &Missing;
exit if &Editing;
exit if &NotFinal;

# Add data to requests file, return if failed
# Check if mail sent, return if not
exit unless &AddRequest;
exit unless &SendMail;

&Title( "Service: proefnummer weekeditie aanvraag in behandeling" );
&Top;

print <<EOD;
De aanvraag van uw gratis proefnummer op de weekeditie is
in behandeling genomen.  Hiervoor zijn de volgende gegevens
gebruikt:
<FONT SIZE=+1><PRE>
EOD

&ShowFields( "<B>","</B>" );

print <<EOD;

</PRE></FONT>
Tevens is een kopie van uw aanvraag naar uw email-adres
toegestuurd.
EOD

&Bottom;
&End;

#----------------------------------------------------------
sub FirstTime {
return undef if &ReadParse;

&Title( "Service: proefnummer weekeditie" );
&Top;

&Form;

print "<CENTER>";
&EndForm( "Stuur mijn verzoek op" );
print "</CENTER>";

&Bottom;
&End;
}

#----------------------------------------------------------
sub Missing {
local( $missing );
local( %musthave );

%musthave = ( 
	"name","Naam","address","Adres",
	"zip","Postcode","place","Plaats",
	"email","Email" );

$in{'email'} = '' unless $in{'email'} =~ m#\@#;

foreach( sort keys( %musthave ) ) {
	unless( $in{$_} ) {
		unless( $missing++ ) {
			&Title( "Een of meer velden niet (juist) ingevuld" );
			&Top;
			print "<CENTER>U heeft de volgende velden niet of niet juist ingevuld:<BR>\n";
			}
		print "<NOBR>| <B>$musthave{$_}</B> |</NOBR>\n";
		}
	}

return undef unless $missing;

print <<EOD;
<BR>Vul ook deze velden (juist) in!
</CENTER>
<HR>
EOD

&Form;
print "<CENTER>";
&EndForm( "Ja, ik heb de ontbrekende velden ingevuld" );
print "</CENTER>";

&Bottom;
&End;
}

#----------------------------------------------------------
sub Editing {
return undef if $in{"type"} ne "edit";

&Title( "Service: proefnummer weekeditie" );
&Top;

&Form;

print "<CENTER>";
&EndForm( "Stuur mijn verzoek op" );
print "</CENTER>";

&Bottom;
&End;
}

#----------------------------------------------------------
sub NotFinal {
return undef if $in{"type"};

&Title( "Service: proefnummer weekeditie bevestigen" );
&Top;

print <<EOD;
Er zal een proefnummer voor de weekeditie worden aangevraagd
met de volgende gegevens:
<FONT SIZE=+1><PRE>
EOD

&ShowFields( "<B>","</B>" );

print <<EOD;
</PRE></FONT><CENTER>
EOD

&StartForm;
$in{"type"} = "final";
&HideFields( "type","name","sex","address","zip","place",
	"state","country","email" );
&EndForm( "Ja, ik ben zeker" );

&StartForm;
$in{"type"} = "edit";
&HideFields( "type","name","sex","address","zip","place",
	"state","country","email" );
&EndForm( "Nee, ik wil nog veranderen" );

print "</CENTER>";
&Bottom;
&End;
}

#----------------------------------------------------------
sub AddRequest {
local( $filename ) = $requestdir.$requestfile;

&ErrorOpen( $filename ) unless open( REQUEST,"+>>$filename");

local( $date ) = `date`;
chop( $date );

local( $sex ) = "($in{'sex'})" if $in{'sex'};

print REQUEST <<EOD;
<Proefnummer aanvraag Weekeditie>
$date
$IP
$in{"name"} $sex
$in{"address"}
$in{"zip"}
$in{"place"}
$in{"state"}
$in{"country"}
$in{"email"}
EOD

close( REQUEST );
}

#----------------------------------------------------------
sub SendMail {
local( $mail ) = "|$sendmail -odb -t -f$frommail -F\"$fromname\"";

&ErrorOpen( $mail ) unless open( MAIL,$mail );
local( $OLD ) = select( MAIL );

print <<EOD;
From: $fromname <$frommail>
IP: $IP
To: $in{"name"} <$in{"email"}>
Bcc: liz\@xxlink.nl,adj\@nrc.nl
Subject: Bevestiging Proefnummer Weekeditie

Dit is een bevestiging van een aanvraag voor een proefnummer
van de weekeditie van NRC Handelsblad.
Waarvoor onze dank.  De volgende gegevens zijn gebruikt bij
de aanvraag van uw proefnummer:

EOD

&ShowFields;

print <<EOD;

Mocht u vragen of opmerkingen hebben, dan kunt u deze per
email stellen aan "$frommail", of telefonisch: $fromphone.
EOD

select( $OLD );
close( MAIL );
return 1;
}

#----------------------------------------------------------
sub ShowFields {
local( $a,$b ) = @_;

local( $sex ) = "($in{'sex'})" if $in{'sex'};

print <<EOD;
  Bestelling van: ${a}Proefnummer Weekeditie$b

            Naam: $a$in{"name"}$b $sex
           Adres: $a$in{"address"}$b
        Postcode: $a$in{"zip"}$b
          Plaats: $a$in{"place"}$b
 Provincie/Staat: $a$in{"state"}$b
            Land: $a$in{"country"}$b
           Email: $a$in{"email"}$b
EOD
}

#----------------------------------------------------------
sub Form {
local( $i,$checked );

&StartForm;

print <<EOD;
<B>Ja</B>, ik wil graag een gratis proefnummer van NRC Weekeditie.
U kunt het proefnummer sturen aan:
<PRE>
EOD

print "       Naam: <INPUT NAME=name SIZE=35 MAXLENGTH=40 VALUE=\"$in{'name'}\">";
print "<INPUT TYPE=radio NAME=sex VALUE=Man ".&Checked("sex","Man").">M ";
print "<INPUT TYPE=radio NAME=sex VALUE=Vrouw ".&Checked("sex","Vrouw").">V\n";

print <<EOD;
      Adres: <INPUT NAME=address SIZE=40 MAXLENGTH=200 VALUE="$in{"address"}">
   Postcode: <INPUT NAME=zip MAXLENGTH=40 SIZE=40 VALUE="$in{"zip"}">
     Plaats: <INPUT NAME=place SIZE=40 MAXLENGTH=40 VALUE="$in{"place"}">
Prov./Staat: <INPUT NAME=state SIZE=40 MAXLENGTH=40 VALUE="$in{"state"}">
       Land: <INPUT NAME=country SIZE=40 MAXLENGTH=40 VALUE="$in{"country"}">

      Email: <INPUT NAME=email SIZE=20 MAXLENGTH=40 VALUE="$in{"email"}"> (voor bevestiging)
</PRE>
EOD
}