# Perl Support File
# Client Access 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
#        $password_file in outlet.setup to reflect the file's new name.

############################################################################
#                       Access.Restrict.Phone.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.          #
############################################################################



#--------------------------------------------------------------------------#
#                              Client Forms
#--------------------------------------------------------------------------#


# Determine the use of frames to set table widths in $ClientAccess{0},
# $ClientRetrieve{0}, and $ClientForm{0}.

# $frameset_file is defined in outlet.setup.
# $cart_id is the client's cart reference number.

# Using frames in WebStore environment
# Not calling form defined in $client_file or $password_file in outlet.setup
if ($frameset_file && $cart_id  && !$in{'client_form'}) {
	# 95% for vertical frames, 575 for horizontal frames
	$Form0_4 = '95%';  # Table width:  Page header
	$Form0_5 = '520';  # Table width:  Section headers
}
# Not using frames or prior to entering WebStore environment
else {
	$Form0_4 = '575';  # Table width:  Page header
	$Form0_5 = '520';  # Table width:  Section headers
}



# The form defined in %ClientAccess is used to obtain client e-mail address
# and phone number corrections prior to entering WebStore when the client's
# form file could not be located using the client supplied values for these
# fields.

# For restricted access, the client must have a form file resident in the
# /Databases/Clients/Restricted sub-directory or access to WebStore is denied.

%ClientAccess = (

	         # Field 0: Form Page Header
	'0'   => ['', '',
	         # Comments below page header
	          '', '',
	          $Form0_4,  # Table width:  Page header
	          $Form0_5,  # Table width:  Section headers
	          '317'],    # Table width:  Form fields (decimal only)

	'11'  => ['email', 'E-mail Address', 'text', 'SIZE="20" MAXLENGTH="100"', 'R'],
	'12'  => ['phone', 'Phone Number',   'text', 'SIZE="20" MAXLENGTH="30"',  'R'],


	'90H' => ['center', '<FONT SIZE=2>Enter Store, Create or Modify Client Account</FONT>'],
	'91C' => ['center',
	          qq!
	           <TABLE BORDER=0 CELLSPACING=3>
	           <TR><TD>${nc_fnt_tag}<B>E-mail Address</B> and <B>Phone Number</B> are <B>required</B>
	               to <I>Modify</I> an existing client record.</FONT></TD></TR>
	           </TABLE>
	          !],

	'91S' => ['center',
	          '<INPUT TYPE="submit" NAME="RetrieveRecord" VALUE="Enter Store">
	           <INPUT TYPE="submit" NAME="chkClientAccess" VALUE="Create/Modify Account">'
	         ],

); # DO NOT REMOVE - terminates %ClientAccess



# The form defined in %ClientRetrieve is used to obtain the client's e-mail
# address and phone number after entering WebStore without name=value pairs
# for these fields:
#
#    uid=USERID     E-mail Address
#    pwd=PASSWORD   Phone Number

# For restricted access, this form will only be used if the client has clicked
# an invalid query string containing spaces and the name=value pairs for uid=
# and pwd= have been lost.

# The client accesses this form by clicking an href anchor which contains a
# name=value pair for  &client_form=Y  in the query string.
#
# Query String Examples:
#
#    ?client_form=Y&cart_id=
#    ?client_form=Y&category=Page.html&cart_id=
#    ?client_form=Y&category=DbaseCategory&cart_id=
#    ?client_form=Y&frames=Y&category=Page.html&cart_id=
#
#    When running WebStore in frames, calls to the client form file must
#    TARGET _top  or  TARGET _parent  and exit frames, allowing WebStore to
#    substitute name=value pairs for c_file=, uid=, and pwd= into all query
#    strings present in all frame documents. Use the following query string:
#
#    ?client_form=Y&frames=frameset&category=Frameset.html&cart_id=
#
# When name=value pairs for uid= and pwd= are present, the client is taken
# directly to the "Modify Client Account" form defined in %ClientForm (below).

%ClientRetrieve = (

	         # Field 0: Form Page Header
	'0'   => ['', '',
	         # Comments below page header
	          '', '',
	          $Form0_4,  # Table width:  Page header
	          $Form0_5,  # Table width:  Section headers
	          '317'],    # Table width:  Form fields (decimal only)

	'11'  => ['email', 'E-mail Address', 'text', 'SIZE="20" MAXLENGTH="100"', 'R'],
	'12'  => ['phone', 'Phone Number',   'text', 'SIZE="20" MAXLENGTH="30"',  'R'],


	'90H' => ['center', '<FONT SIZE=2>Enter Store, Create or Modify Client Account</FONT>'],
	'91C' => ['center',
	          qq!
	           <TABLE BORDER=0 CELLSPACING=3>
	           <TR><TD>${nc_fnt_tag}<B>E-mail Address</B> and <B>Phone Number</B> are <B>required</B>
	               to <I>Modify</I> an existing client record.</FONT></TD></TR>
	           </TABLE>
	          !],

	'91S' => ['center',
	          '<INPUT TYPE="submit" NAME="RetrieveRecord" VALUE="Enter Store">
	           <INPUT TYPE="submit" NAME="chkClientAccess" VALUE="Modify Account">'
	         ],

); # DO NOT REMOVE - terminates %ClientRetrieve



# The form defined in %ClientForm is used to create a new client form file or to
# modify an existing client form file.

# For restricted access, the client must have a form file resident in the
# /Databases/Clients/Restricted sub-directory or access to WebStore is denied.

%ClientForm = (

	         # Field 0: Form Page Header
	'0'   => ['center', $global_page_title.' - <FONT SIZE=2>Create or Modify Client Account</FONT>',
	         # Comments below page header
	          'center',
	          qq!
	           <TABLE BORDER=0 CELLSPACING=3>
	           <TR><TD>${nc_fnt_tag}Fields marked <B>Required</B> must be completed before
	           <A HREF="#91S">submitting</A> this form.</FONT></TD></TR>
	           </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', '', '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>Copy of this form is mailed to this address</FONT>'],


	'50H' => ['center',  'Shipping Address',
	          'left',
	          '
	           <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'],


	'90C' => [],
	'91S' => ['center',
	          '<INPUT TYPE="submit" NAME="chkClientForm" VALUE="Create/Modify Account">
	           <INPUT TYPE="reset" VALUE="Reset">'
	         ],

); # DO NOT REMOVE - terminates %ClientForm



# @opt_shipping is a list of the KEYS in %ClientForm 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');



# 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 form with the contents of
# sub pre_client_form_html.  Design the HTML code, copy and paste it below
# the PRINTED FROM: hidden comment line in sub pre_client_form_html.

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

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


sub pre_client_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.

	print qq!

<\!-- PRINTED FROM:  sub pre_client_form_html in $form -->

!; # 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';


} # DO NOT REMOVE - End of sub pre_client_form_html



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



# If $form_trailer = 1, append the form with the contents of
# sub client_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 form.

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


sub client_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 client_form_trailer_html in $form -->

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

} # DO NOT REMOVE - End of sub client_form_trailer_html



# $email_subject used as SUBJECT of e-mail to client and administrator.
# The client's identification number is appended to the SUBJECT:
#     RDC Software - Client: [980712040921989]

# When the client is updating an existing database record, " Update" is
# appended to $email_subject:
#     RDC Software - Client Update: [980712040921989]

# When the client is creating a database record, " Addition" is
# appended to $email_subject:
#     RDC Software - Client Addition: [980712040921989]

# $global_page_title = 'RDC Software', defined in the General Settings
# section of outlet.setup.

$email_subject = $global_page_title.' - Client';



# $pre_client_msg is printed at the beginning of the e-mail sent to the client.

# You may personalize the text in $pre_client_msg by using the client's
# name and e-mail address.

# Occurrences of  ~~FIRST~~  ~~FULL~~  ~~EMAIL~~  and  ~~STORE~~  found in
# $pre_client_msg will be replaced with:
#
#                    ~~FIRST~~    Client's first name
#                    ~~FULL~~     Client's full name
#                    ~~EMAIL~~    Client's e-mail address
#                    ~~STORE~~    WebStore URL

# Occurrences of ~~FIRST~~ are replaced with the full name instead of the first
# name if the full name ends in Co, Company, Corp, Corporation, Inc, or
# Incorporated (case insensitive, optional trailing period).

# Occurrences of ~~STORE~~ are replaced with $main_script_url, defined in
# ws_global.setup.  The client's username and password are included when
# name=value pairs for the client's username and password exist:
#
#     http://www.YourDomain.xxx/Web_store/ws400CS.cgi?uid=USERID&pwd=PASSWORD
#
# The client's username and password name=value pairs are provided by WebStore
# when using client form files, a filename is defined in $client_file (above).
#
# A name=value pair for store= is included when the required store setup file
# is not equal to $default_setup_file, defined in the WebStore script.
#
# A name=value pair for demo= is included when WebStore is operating in
# demonstration mode and $demo = '' in ws_global.setup.

# Space the contents of $pre_client_msg as you would like it to appear in
# the e-mail message.

# Paragraph line lengths should be equal to or less than the value of
# $message_columns.  Placing entire paragraphs on one line allows WebStore to
# split line lengths according to the value of $message_columns.

# Paragraphs containing ~~FIRST~~, ~~FULL~~, ~~EMAIL~~, and ~~STORE~~ should be
# on one line as the number of characters replacing these values can not be
# pre-determined.

# WebStore removes all leading and trailing whitespace from $pre_client_msg
# before line length formatting occurs.  One blank line is added to the end of
# $pre_client_msg.

# Setting $pre_client_msg = qq!!; disables printing $pre_client_msg to the
# client's e-mail.

# join("\n",@company)."\n". prints the contents of @company, defined in the
# Confirmation of Order HTML Page section of outlet.setup.

# if ($email_link_url) prints the contents of $email_link_url, defined in the
# General Settings section of outlet.setup.

if ($email_link_url) { $E_mail = "\n".'E-mail:  mailto:'.$email_link_url }
else { $E_mail = '' }

$pre_client_msg  = join("\n",@company)."\n".
	qq!

~~FULL~~:

Your order form field record on file with $company[0] has been updated to the values below.

Please retain this e-mail for your records.\n$E_mail
Store:   ~~STORE~~
!; # DO NOT REMOVE - terminates $pre_client_msg



# $app_client_msg is printed at the end of the e-mail sent to the client.

# You may personalize the text in $app_client_msg by using the client's
# name and e-mail address.

# Occurrences of  ~~FIRST~~  ~~FULL~~  ~~EMAIL~~  and  ~~STORE~~  found in
# $app_client_msg will be replaced with:
#
#                    ~~FIRST~~    Client's first name
#                    ~~FULL~~     Client's full name
#                    ~~EMAIL~~    Client's e-mail address
#                    ~~STORE~~    WebStore URL

# Occurrences of ~~FIRST~~ are replaced with the full name instead of the first
# name if the full name ends in Co, Company, Corp, Corporation, Inc, or
# Incorporated (case insensitive, optional trailing period).

# Occurrences of ~~STORE~~ are replaced with $main_script_url, defined in
# ws_global.setup.  The client's username and password are included when
# name=value pairs for the client's username and password exist:
#
#     http://www.YourDomain.xxx/Web_store/ws400CS.cgi?uid=USERID&pwd=PASSWORD
#
# The client's username and password name=value pairs are provided by WebStore
# when using client form files, a filename is defined in $client_file (above).
#
# A name=value pair for store= is included when the required store setup file
# is not equal to $default_setup_file, defined in the WebStore script.
#
# A name=value pair for demo= is included when WebStore is operating in
# demonstration mode and $demo = '' in ws_global.setup.

# Space the contents of $app_client_msg as you would like it to appear in
# the e-mail message.

# Paragraph line lengths should be equal to or less than the value of
# $message_columns.  Placing entire paragraphs on one line allows WebStore to
# split line lengths according to the value of $message_columns.

# Paragraphs containing ~~FIRST~~, ~~FULL~~, ~~EMAIL~~, and ~~STORE~~ should be
# on one line as the number of characters replacing these values can not be
# pre-determined.

# WebStore removes all leading and trailing whitespace from $app_client_msg
# before line length formatting occurs.

# Setting $app_client_msg = qq!!; disables printing $app_client_msg to the
# client's e-mail.

$app_client_msg  = qq!$E_mail
Store:   ~~STORE~~
!; # DO NOT REMOVE - terminates $app_client_msg



# 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 ($E_mail, $Form0_4, $Form0_5) { undef $_ if defined($_) }



1; # DO NOT REMOVE

# End of file