#!/usr/bin/perl
####################################################################################################
## NetZone 10.0
## index.cgi
##
## Author: Brian Walker, Webdirectionz Limited.
## Date: 30 October 2007
####################################################################################################
use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser carpout);
use DBI;
use Time::Local;
use Image::Size;
####################################################################################################
# SPLIT QUERY STRING INTO VARIABLS AND VALUES
####################################################################################################
require "cgi-lib.pl";
&ReadParse(\%in,\%cgi_cfn);
####################################################################################################
# Query string variables
####################################################################################################
$do = $in{do};
$agency = $in{agency};
$delivery = $in{delivery};
$email = $in{email};
$qty = $in{qty};
print "Content-type: text/html\n\n";
require "sysconfig.cgi";
if ($do eq "order") {
if ($agency eq "" || $delivery eq "" || $email eq "" || $qty eq "") {
$message = "Please complete all fields.
";
&display_order_form;
}
else {
&submit_order;
}
}
else { &display_order_form }
####################################################################################################
# Order form
####################################################################################################
sub display_order_form {
print qq~
Brochure Order
Please complete the following order form:
~;
exit;
}
####################################################################################################
# submit Order
####################################################################################################
sub submit_order {
open( MAIL, "|$sendmail -t " ) || &display_error("can't open sendmail: $sendmail: $!\n");
print MAIL "To: Feejee Experience Brochure Orders \n";
print MAIL "From: $agency <$email>\n";
print MAIL "Subject: Feejee Experience Brochure Order\n";
print MAIL "Mime-Version: 1.0\n";
print MAIL "$contenttype";
print MAIL <FJX Brochure Order
The following brochure order has been placed
Agency Name
$agency
Delivery address
$delivery
Email address
$email
Quantity of brochures required
$qty
ENDHTML
close (MAIL);
print qq~
Brochure Order
Thank you. Your brochure order has been submitted and we will let you know as soon as they've been despatched.
~;
exit;
}