#!/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}; $consultant = $in{consultant}; $paxname = $in{paxname}; $address = $in{address}; $email = $in{email}; $voucher = $in{voucher}; $price = $in{price}; $pass = $in{pass}; print "Content-type: text/html\n\n"; require "sysconfig.cgi"; if ($do eq "order") { if ($agency eq "" || $paxname eq "" || $address eq "" || $email eq "" || $voucher eq "" || $price eq "" || $pass eq "" || $consultant eq "") { $message = "Please complete all fields.

"; &display_order_form; } else { &submit_order; } } else { &display_order_form } #################################################################################################### # Order form #################################################################################################### sub display_order_form { $sqlstmt = "select pass_id, pass_name from passes where pass_status='A' and (pass_group=1 or pass_group=2) order by pass_rank"; $sth = $dbh->prepare($sqlstmt); $sth->execute || &display_error("Cannot find the selected page",$sqlstmt); while ($row=$sth->fetchrow_hashref) { $pass_id = $row->{pass_id}; $pass_name = $row->{pass_name}; $passlist=< $pass_name
endhtml } $rc=$sth->finish; print qq~ Agent Booking Please complete the following booking form:

$message
Agency Name
Consultant Name
Agency address
Email address
Voucher number
Passenger name
Price Paid
Booked Passes $passlist

~; exit; } #################################################################################################### # submit Order #################################################################################################### sub submit_order { foreach(split(/\0/,$pass)) { $sqlstmt = "select pass_id, pass_name from passes where pass_id='$_'"; $sth = $dbh->prepare($sqlstmt); $sth->execute || &display_error("Cannot find the selected page",$sqlstmt); while ($row=$sth->fetchrow_hashref) { $pass_name = $row->{pass_name}; $passlist=< endhtml } $rc=$sth->finish; } open( MAIL, "|$sendmail -t " ) || &display_error("can't open sendmail: $sendmail: $!\n"); print MAIL "To: Feejee Experience Agent Bookings \n"; print MAIL "From: $agency <$email>\n"; print MAIL "Subject: Feejee Experience Agent Booking\n"; print MAIL "Mime-Version: 1.0\n"; print MAIL "$contenttype"; print MAIL < FJX Brochure Order

The following agent bookings has been placed

Agency Name $agency
Consultant Name $consultant
Agency address $address
Email address $email
Voucher number $voucher
Passenger name $paxname
Price Paid $price
Booked Passes $passlist

 

ENDHTML close (MAIL); open( MAIL, "|$sendmail -t " ) || &display_error("can't open sendmail: $sendmail: $!\n"); print MAIL "To: $agency <$email>\n"; print MAIL "From: Feejee Experience \n"; print MAIL "Subject: Your Feejee Experience Booking\n"; print MAIL "Mime-Version: 1.0\n"; print MAIL "$contenttype"; print MAIL < Feejee Experience Booking Details

Thank you for booking with Feejee Experience

Your booking has been submitted and is on Free Sell. A Feejee Experience representative will confirm back in 24 hours with a PNR.

Agency Name $agency
Consultant Name $consultant
Agency address $address
Email address $email
Voucher number $voucher
Passenger name $paxname
Price Paid $price
Booked Passes $passlist

PH: +679 672 3311
ADDRESS: PO Box 9612, Aerotown Mall, Nadi Airport, Fiji
WEB: www.touristtransportfiji.com - www.coralsunfiji.com - www.feejeeexperience.com

 

ENDHTML close (MAIL); print qq~ Brochure Order Thank you. Your booking has been submitted and is on Free Sell. A Feejee Experience representative will confirm back in 24 hours with a PNR.

A copy of your booking has been emailed to $email ~; exit; }