# Perl Support File
# WebStore Order Form Variables
# Variables used by all scripts:  /Web_store/ws_global.setup
# File Permissions:  644  -rw-r--r--

# NOTE:  If you change the filename of this file, change the value of
#        $form_files{XX}[0] in outlet.setup to reflect the file's new name.
#        XX equals the array index in %form_files for this order form.

############################################################################
#                 Demo.OrderForm.Surepay.CreditCard.setup                  #
#==========================================================================#
# Copyright (c) 1996 - 2002, RDC Software                                  #
# WebStore@ratite.com   http://www.ratite.com/Perl/WebStore.shtml          #
# Version:  4.15.00     Date:  01/01/2002                                  #
#                                                                          #
# Full copyright notice can be found in the following files for the        #
# listed license type:                                                     #
#                                                                          #
#    Single User License:   /Docs/Copyright_SingleUser.html                #
#    Server License:        /Docs/Copyright_Server.html                    #
#                                                                          #
# This copyright notification can not be altered or removed from this file.#
#==========================================================================#
#        Backslash all @ signs -->   \@   <-- Perl 5 compatibility.        #
# Variables containing @ signs must be enclosed in " (double quotes).      #
#                                                                          #
# All other variables are enclosed in ' (single quotes).                   #
#                                                                          #
# If the value you store in a variable enclosed in single quotes requires  #
# the use of a single quote, backslash the imbedded single quote.          #
############################################################################



#--------------------------------------------------------------------------#
#          Demonstration Order Form:  Surepay Credit Card Payment
#--------------------------------------------------------------------------#


# $merchant_file is the merchant configuration file for the real-time payment
# processor you are using, defined in the store setup file, outlet.setup.

$merchant_file = 'merchant.surepay.cfg' if !defined($merchant_file) || $merchant_file !~ /surepay/i;



# Set color attributes to match Surepay's current color scheme.

$header_bkg_clr = '#5D0E7C';  # Maroon
$header_fnt_clr = '#FFFFFF';  # White
$dsc_hr_bkg_clr = '#DCDCDC';  # Lightgray
$dsc_hr_fnt_clr = '#5D0E7C';  # Maroon
$data_bkg_clr   = '';
$data_fnt_clr   = '';
$modify_bkg_clr = '';
$modify_fnt_clr = '';
$border_bkg_clr = '';


$border_bkg_clr = qq! BGCOLOR="$border_bkg_clr"! if $border_bkg_clr ne '';
$data_bkg_clr   = qq! BGCOLOR="$data_bkg_clr"!   if $data_bkg_clr   ne '';
$dsc_hr_bkg_clr = qq! BGCOLOR="$dsc_hr_bkg_clr"! if $dsc_hr_bkg_clr ne '';
$header_bkg_clr = qq! BGCOLOR="$header_bkg_clr"! if $header_bkg_clr ne '';
$modify_bkg_clr = qq! BGCOLOR="$modify_bkg_clr"! if $modify_bkg_clr ne '';
$data_fnt_clr   = qq! COLOR="$data_fnt_clr"!     if $data_fnt_clr   ne '';
$dsc_hr_fnt_clr = qq! COLOR="$dsc_hr_fnt_clr"!   if $dsc_hr_fnt_clr ne '';
$header_fnt_clr = qq! COLOR="$header_fnt_clr"!   if $header_fnt_clr ne '';
$modify_fnt_clr = qq! COLOR="$modify_fnt_clr"!   if $modify_fnt_clr ne '';
$dh_fnt_tag     = "<FONT $data_font$dsc_hr_fnt_clr$data_face>";
$dt_fnt_tag     = "<FONT $data_font$data_fnt_clr$data_face>";
$hr_fnt_tag     = "<FONT $header_font$header_fnt_clr$header_face>";
$hrd_fnt_tag    = "<FONT SIZE=2$header_fnt_clr$header_face>";
$md_fnt_tag     = "<FONT $data_font$modify_fnt_clr$data_face>";
$nc_fnt_tag     = "<FONT $data_font$data_face>";
$smdt_fnt_tag   = "<FONT SIZE=1$data_fnt_clr$data_face>";
$error_bkg_clr  = ' BGCOLOR="#000000"';
$error_fnt_clr  = ' COLOR="#FFFF00"';
$error_fnt_tag  = "<FONT $data_font$error_fnt_clr$data_face>";



# Determine the use of frames to set table widths in $OrderForm{0}.

# $frameset_file is defined in outlet.setup.

# $use_ssl is defined in ws_global.setup.
# When $use_ssl = '3', WebStore TARGETS _top and and exits frames.

# Using frames
if ($frameset_file && $use_ssl ne '3') {
	# 95% for vertical frames, 575 for horizontal frames
	$Form0_4 = '95%';  # Table width:  Page header
	$Form0_5 = '500';  # Table width:  Section headers
}
# Not using frames
else {
	$Form0_4 = '575';  # Table width:  Page header
	$Form0_5 = '500';  # Table width:  Section headers
}



# Develop drop down select of order forms defined in %form_files of the
# store's setup file.

# Print $Form0_3 in $OrderForm{0}[3] (below).

# $Form0_3 = '' when only one order form is defined in %form_files.
# No additional HTML is added to $OrderForm{0}[3].

$Form0_3 = &form_links($in{'formfile'});
$Form0_3 = "\n\t<TR><TD>$SPACE</TD></TR>".
	       "\n\t<TR><TD>$nc_fnt_tag<B>This form is for <FONT COLOR=$link_color><I>Credit Card Payment</I></FONT> of your order.</B></FONT></TD></TR>".
	       "\n\t<TR><TD>${nc_fnt_tag}Alternative Payment Methods:</FONT></TD></TR>".
	       "\n\t<TR><TD>$nc_fnt_tag$Form0_3</FONT></TD></TR>"
if $Form0_3;



# %OrderForm is a hash of arrays listing all form input fields for
# WebStore's order form.

# Refer to /Docs/OrderForm.html for %OrderForm configuration details.

%OrderForm = (

	         # Field 0: Form Page Header
#	'0'   => ['', '',
	'0'   => ['center', 'RDC Software - Credit Card Order Form',        # Same as above
	         # Comments below page header
	          'center',
	          qq!
	<table border=0 cellspacing=3>
	<tr><td>${nc_fnt_tag}Orders are processed within one business day of receipt.</font></td></tr>
	<tr><td>${nc_fnt_tag}Fields marked <b>Required</b> must be completed before
	<a href="#91">submitting</a> your order.</font></td></tr>
	$Form0_3
	</table>
	          !,
	          $Form0_4,  # Table width:  Page header
	          $Form0_5,  # Table width:  Section headers
	          '425'],    # Table width:  Form fields (decimal only)


	         # Field 10H: Section Header
	'10H' => ['center',   'Billing Address'],
	'11'  => ['name',     'Name',            'text',   'SIZE="35" MAXLENGTH="100"', 'R'],
	'12'  => ['company',  'Company',         'text',   'SIZE="35" MAXLENGTH="100"'],
	'13'  => ['addr1',    'Address 1',       'text',   'SIZE="35" MAXLENGTH="100"', 'R'],
	'14'  => ['addr2',    'Address 2',       'text',   'SIZE="35" MAXLENGTH="100"'],
#	'15'  => ['addr3',    'Address 3',       'text',   'SIZE="35" MAXLENGTH="100"'],
	'16'  => ['city',     'City',            'text',   'SIZE="35" MAXLENGTH="100"', 'R'],
	'17'  => ['province', 'Province',        'select', '', 'Canada only'],
	'18'  => ['state',    'State',           'select', '', 'US citizens only'],
	'19'  => ['country',  'Country',         'select', 'SELECTED~319', 'R'],
	'20'  => ['zip',      'Zip/Postal Code', 'text',   'SIZE="25" MAXLENGTH="30"',  'R'],
	'21'  => ['phone',    'Phone Number',    'text',   'SIZE="25" MAXLENGTH="30"',  'R'],
	'22'  => ['fax',      'Fax Number',      'text',   'SIZE="25" MAXLENGTH="30"'],
	'23'  => ['email',    'E-mail Address',  'text',   'SIZE="35" MAXLENGTH="100"', 'R',
	          '<FONT SIZE=1>Receipt is mailed to this address</FONT>'],
	'24'  => ['joinlist', 'Mailing List', 'checkbox', 'Add me to your mailing list'],
	'25C' => [],


	'40H' => ['center',   'Credit Card Details',
	          'center',
	          qq!
	          <TABLE BORDER=0 CELLPADDING=0 CELLSPACING=10>
	          <TR>
	          <TD><IMG SRC="$graphics_url/card.AmericanExpress.60x38.gif" alt="American Express" WIDTH=60 HEIGHT=38 BORDER=0></TD>
	          <TD><IMG SRC="$graphics_url/card.MasterCard.60x38.gif"      alt="Mastercard"       WIDTH=60 HEIGHT=38 BORDER=0></TD>
	          <TD><IMG SRC="$graphics_url/card.Visa.60x38.gif"            alt="Visa"             WIDTH=60 HEIGHT=38 BORDER=0></TD>
	          </TR>
	          </TABLE>
	        !],
	'41'  => ['ccType',     'Type of Card',     'select',
	          'American Express:SELECTED~Mastercard:Visa', 'R'],
	'42'  => ['ccName',     'Name on Card',     'text', 'SIZE="35" MAXLENGTH="100" VALUE="Jane Doe"', 'R'],
	'43'  => ['ccNumber',   'Card Number',      'text', 'SIZE="25" MAXLENGTH="30" VALUE="4012 0000 3333 0026"',  'R'],
	'44'  => ['ccMonth',    'Expiration Month', 'select',
	          'January:February:March:April:May:June:July:August:September:October:November:SELECTED~December', 'R'],
	'45'  => ['ccYear',     'Expiration Year',  'select', '', 'R'],
#	'46'  => ['ccPhone',    'Cardholder Phone', 'text',   'SIZE="25" MAXLENGTH="30"', ''],
	'46C' => [],
	'47C' => ['left',
	          qq!
	<FONT SIZE=1>
	<i>WebStore</i> performs checks on fields containing data at the time of
	submission. To test the <i>Surepay</i> processing server in this demo, use
	<font color="#DC143C">Mastercard</font>/<font color="#DC143C">Visa</font>
	card number <NOBR><b><font color="#DC143C">4012 0000 3333 0026</font></b></NOBR>
	and Expiration Month/Year of December, 2005</FONT>
	        !],


	'50H' => ['center',  'Shipping Address',
	          'left',
	          '
	           <P>Please enter your shipping address if different
	              than the address you entered in the <a href="#10H">Billing Address</a> section.
	           <P>If you enter information in any field between <B>Name</B> and
	           <B>Phone</B>, all fields must be completed.
	           <P><B>Address 2</B> and <B>Shipping Instructions</B> fields are always optional.
	        '],
	'51'  => ['shpName',     'Name',            'text',   'SIZE="35" MAXLENGTH="100"'],
	'52'  => ['shpAddr1',    'Address 1',       'text',   'SIZE="35" MAXLENGTH="100"'],
	'53'  => ['shpAddr2',    'Address 2',       'text',   'SIZE="35" MAXLENGTH="100"', 'Optional'],
#	'54'  => ['shpAddr3',    'Address 3',       'text',   'SIZE="35" MAXLENGTH="100"', 'Optional'],
	'55'  => ['shpCity',     'City',            'text',   'SIZE="35" MAXLENGTH="100"'],
	'56'  => ['shpProvince', 'Province',        'select', '', 'Canada only'],
	'57'  => ['shpState',    'State',           'select', '', 'US citizens only'],
	'58'  => ['shpCountry',  'Country',         'select', ''],
	'59'  => ['shpZip',      'Zip/Postal Code', 'text',   'SIZE="25" MAXLENGTH="30"'],
	'60'  => ['shpPhone',    'Phone',           'text',   'SIZE="25" MAXLENGTH="30"'],
	'61'  => ['shpIns', 'Shipping Instructions', 'textarea', 'ROWS="6" COLS="50" WRAP=PHYSICAL', 'Optional'],



#	'90H' => ['center', 'Submit Your Order'],
	'90C' => [],

	'91'  => ['test_total', 'Test Amount',   'select', 'SELECTED~11.00:21.00:41.00'],
	'91C' => ['left',
	          qq!
	<FONT SIZE=1>
	<i>Surepay</i> test server responses in this demo
	are based on the following order totals:
	</FONT>
	<BLOCKQUOTE>
	<TABLE BORDER=0 CELLSPACING=3>
	<TR><TH ALIGN=left>${smdt_fnt_tag}Total Amount</FONT></TH><TD WIDTH=30>$SPACE</TD><TH ALIGN=left>${smdt_fnt_tag}Response</FONT></TH></TR>
	<TR><TD COLSPAN=3></TD></TR>
	<TR><TD>${smdt_fnt_tag}\$11.00</FONT></TD><TD></TD><TD>${smdt_fnt_tag}Authorized</FONT></TD></TR>
	<TR><TD>${smdt_fnt_tag}\$21.00</FONT></TD><TD></TD><TD>${smdt_fnt_tag}Referred</FONT></TD></TR>
	<TR><TD>${smdt_fnt_tag}\$41.00</FONT></TD><TD></TD><TD>${smdt_fnt_tag}Declined</FONT></TD></TR>
	</TABLE>
	</BLOCKQUOTE>
	        !],

	'93'  => ['debug', 'Diagnostic Mode', 'checkbox', 'Turn on diagnostic mode'],
	'93C' => ['left',
	          q~
	<FONT SIZE=1>
	Turning on <i>Diagnostic Mode</i> will print additional information at the bottom of this
	form and at the bottom of the <i>Confirmation of Order</i> page.
	</FONT>
	          ~],



	'94C' => [],
	'95S' => ['center',
	          '<INPUT TYPE="submit" NAME="chkForm" VALUE="Submit Credit Card Order">
	           <INPUT TYPE="reset" VALUE="Reset">'
	         ],

); # DO NOT REMOVE - terminates %OrderForm



$in{'ccYear'} = '2005' if !defined($in{'ccYear'}) || !$in{'ccYear'};
$in{'ccMonth'} = 'December' if !defined($in{'ccMonth'}) || !$in{'ccMonth'};



# @opt_shipping is a list of the KEYS in %OrderForm which correspond to the
# optionally required shipping fields.  If any field listed in @opt_shipping
# is completed by the client, all fields listed in @opt_shipping must be
# completed.

@opt_shipping = ('51', '52', '55', '56', '57', '58', '59', '60');



# @credit_card is a list of the KEYS in %OrderForm which correspond to all
# required credit card fields.  @credit_card is used for switching credit card
# fields from "Required" to "Optional" for fax orders.

@credit_card  = ('41', '42', '43', '44', '45', '46');



# Section header rows (xxH) are printed using one of the following color
# combinations for the row's background color and font color.

# Setting $header_colors = '0' uses $header_bkg_clr for the row's
# background color and $header_fnt_clr for the row's font color.

# Setting $header_colors = '1' uses $dsc_hr_bkg_clr for the row's
# background color and $dsc_hr_fnt_clr for the row's font color.

# Setting $header_colors = '2' uses $data_bkg_clr for the row's
# background color and $data_fnt_clr for the row's font color.

# Setting $header_colors = '3' uses $modify_bkg_clr for the row's
# background color and $modify_fnt_clr for the row's font color.

# Setting $header_colors = '' disables header background color and
# header font color.  Colors default to <BODY BGCOLOR or BACKGROUND> and
# <BODY TEXT> attributes.

# $header_colors defaults to '' for values other than 0, 1, 2, or 3.

# $header_bkg_clr, $header_fnt_clr, $dsc_hr_bkg_clr, $dsc_hr_fnt_clr,
# $data_bkg_clr, $data_fnt_clr, $modify_bkg_clr, and $modify_fnt_clr
# are defined in outlet.setup.

$header_colors = '0';



#--------------------------------------------------------------------------#
#                Subroutines:  Display Additional HTML
#--------------------------------------------------------------------------#


# If $pre_form = 1, preface the order form with the contents of
# sub pre_form_html.  Design the HTML code, copy and paste it below the
# PRINTED FROM: hidden comment line in sub pre_form_html.

# Setting $pre_form = '' disables access to
# sub pre_form_html.  Nothing is printed at the top of the order form.

$pre_form = '1';   # 1 = Access sub pre_form_html


sub pre_form_html {

	# Images must be placed in the /Graphics sub-directory and must be
	# referenced using $graphics_url:

	#   <IMG SRC="$graphics_url/image.gif" BORDER=0 WIDTH=325 HEIGHT=40>

	# WebStore sets the value of $graphics_url based on the use of SSL.


	my $a = '';
	if ($in{'debug'}) {
		$a = '
	<a href="#91"><i>Diagnostic Mode</i></a> is enabled, printing additional information at
	the bottom of this form and the <i>Confirmation of Order</i> page.'
	}
	else {
		$a = '
	Enable <a href="#91"><i>Diagnostic Mode</i></a> to print additional information at
	the bottom of this form and the <i>Confirmation of Order</i> page.'
	}


	print qq!

<\!-- PRINTED FROM:  sub pre_form_html in $form_file -->
<center>
<table border=0 width="95%" cellpadding=0 cellspacing=0>
<tr><td colspan=5 height=5></td></tr>
<tr><td valign=top><a href="http://www.surepay.com" target="_blank"><img src="$graphics_url/logo.surepay.221x80.gif" width=221 height=80 border=0><a></td>
<td width=8>&nbsp;&nbsp;</td>

<td valign=top>
<table width=225 border=0 cellpadding=2 cellspacing=0>
<tr><td align=center>
<TABLE BORDER=0 cellpadding=1 CELLSPACING=0>
<TR$header_bkg_clr><TH ALIGN=left><font size=2$header_fnt_clr$data_face>&nbsp;Order Totals</FONT></TH>
	<TD WIDTH=30>&nbsp;</TD>
	<TH ALIGN=left><font size=2$header_fnt_clr$data_face>Response&nbsp;</FONT></TH></TR>
<TR><TD COLSPAN=3></TD></TR>
<TR><TD><font size=2$dsc_hr_fnt_clr$data_face>&nbsp;\$11.00</FONT></TD><TD></TD><TD><font$dsc_hr_fnt_clr size=2$data_face>Authorized</FONT></TD></TR>
<TR><TD><font size=2$dsc_hr_fnt_clr$data_face>&nbsp;\$21.00</FONT></TD><TD></TD><TD><font$dsc_hr_fnt_clr size=2$data_face>Referred</FONT></TD></TR>
<TR><TD><font size=2$dsc_hr_fnt_clr$data_face>&nbsp;\$41.00</FONT></TD><TD></TD><TD><font$dsc_hr_fnt_clr size=2$data_face>Declined</FONT></TD></TR>
</TABLE></td></tr>
</table></td>

<td width=8>&nbsp;&nbsp;</td>
<td valign=bottom align=right><a href="http://www.firstdata.com" target="_blank"><img src="$graphics_url/logo.firstdata.73x27.gif" width=73 height=27 border=0></a></td></tr>
</table>

<table border=0 cellspacing=3>
<tr><td><font size=1$dsc_hr_fnt_clr$data_face>
	<i>Surepay</i> test server responses for credit card
	orders in this demo are based on the order totals listed above.</font></td></tr>

<tr><td><font size=1$dsc_hr_fnt_clr$data_face>
	Submit a test order with a <a href="#91">test amount</a> corresponding to the
	response you want the <i>Surepay</i> system to return.</font></td></tr>

<tr><td height=5></td></tr>

<tr><td><font size=1$dsc_hr_fnt_clr$data_face>$a</font></td></tr>
</table>
</center>

!; # DO NOT REMOVE - terminates "print qq!" command above


	# Access sub pre_view_modify_html in outlet.setup
	&pre_view_modify_html if $pre_view_modify eq '2';


	if (!$in{'c_file'} && !$in{'chkForm'} && !$in{'faxOrder'} && !$in{'chgShip'}) {
		my $file = $libr_directory.'/'.'Demo.form_input.cfg';

		if (-e $file) {
			&read_open($file);
			while (<FILE>) {
				s/^\s+//;
				next if /^$|^#/;
				s/#.*//; s/\s+$//;
				my ($a,$b) = split(/\s+/,$_,2);
				next if defined($in{$a}) && defined($in{'name_vals'}) && $in{'name_vals'} =~ /\|*$a\|*/;
				$b =~ s/\s+/ /g;
				$in{$a} = $b if $a && (!defined($in{$a}) || $in{$a} !~ /\S+/);
			}
			close(FILE);
		}
	}


} # DO NOT REMOVE - End of sub pre_form_html



              #-----------------------------------------------#



# If $form_trailer = 1, append the order form with the contents of
# sub form_trailer_html.  Design the HTML code, copy and paste it below the
# PRINTED FROM: hidden comment line in sub form_trailer_html.

# Setting $form_trailer = '' disables access to
# sub form_trailer_html.  Nothing is printed at the bottom of the order form.

$form_trailer = '1';   # 1 = Access sub form_trailer_html


sub form_trailer_html {

	# Images must be placed in the /Graphics sub-directory and must be
	# referenced using $graphics_url:

	#   <IMG SRC="$graphics_url/image.gif" BORDER=0 WIDTH=325 HEIGHT=40>

	# WebStore sets the value of $graphics_url based on the use of SSL.

	print qq!

<\!-- PRINTED FROM:  sub form_trailer_html in $form_file -->

!; # DO NOT REMOVE - terminates "print qq!" command above

} # DO NOT REMOVE - End of sub form_trailer_html



# Undefine variables used only in this file.

# The WebStore script and it's program libraries never use uppercase and
# _ (underscore) in a variable name.

foreach ($Form0_3, $Form0_4, $Form0_5) { undef $_ if defined($_) }



1; # DO NOT REMOVE

# End of file