Kryptronic Software Support Forum

(CGIGET TYPE="ELEMENT" VALUE="ste_strhd_payinfo")<BR>

Please enter your payment information below and when you are ready to place your order click the 'Submit' button.  There is an image at the bottom of this page that will help you locate your card verification number.  Please note: Some cards do not have verification numbers.<BR><BR>

<FONT COLOR="(CGIVAR)html_notnull_font_color(/CGIVAR)"><B>(CGIVAR)html_notnull_character(/CGIVAR)</B></FONT> - Denotes a required field.<BR><BR>

<FORM METHOD="POST" ACTION="(CGIVAR)store_secure_site_url(/CGIVAR)">

<!-- ### -->
<INPUT TYPE="HIDDEN" NAME="x_login" VALUE="your_username">
<!-- ### -->

<INPUT TYPE="HIDDEN" NAME="pg" VALUE="ste_olp_authnetaim_proc">

<INPUT TYPE="HIDDEN" NAME="gateway_id" VALUE="ste_gw_authnetaimcc">

<INPUT TYPE="HIDDEN" NAME="gateway_url" VALUE="https://secure.authorize.net/gateway/transact.dll">

<INPUT TYPE="HIDDEN" NAME="gateway_returl" VALUE="(CGIVAR)common_url_form(/CGIVAR)">

<INPUT TYPE="HIDDEN" NAME="x_invoice_num" VALUE="(CGIVAR)tracking_id(/CGIVAR)">

<INPUT TYPE="HIDDEN" NAME="x_cust_id" VALUE="(CGIVAR)fd_usr(/CGIVAR)">

<INPUT TYPE="HIDDEN" NAME="x_amount" VALUE="(CGIVAR)tracking_total(/CGIVAR)">

<INPUT TYPE="HIDDEN" NAME="x_first_name" VALUE="(CGIVAR)tracking_firstname(/CGIVAR)">

<INPUT TYPE="HIDDEN" NAME="x_last_name" VALUE="(CGIVAR)tracking_lastname(/CGIVAR)">

<INPUT TYPE="HIDDEN" NAME="x_company" VALUE="(CGIVAR)tracking_company(/CGIVAR)">

<INPUT TYPE="HIDDEN" NAME="x_address" VALUE="(CGIVAR)tracking_addressone(/CGIVAR) (CGIVAR)tracking_addresstwo(/CGIVAR)">

<INPUT TYPE="HIDDEN" NAME="x_city" VALUE="(CGIVAR)tracking_city(/CGIVAR)">

<INPUT TYPE="HIDDEN" NAME="x_state" VALUE="(CGIVAR)tracking_stateprov(/CGIVAR)">

<INPUT TYPE="HIDDEN" NAME="x_country" VALUE="(CGIVAR)tracking_country(/CGIVAR)">

<INPUT TYPE="HIDDEN" NAME="x_zip" VALUE="(CGIVAR)tracking_zip(/CGIVAR)">

<INPUT TYPE="HIDDEN" NAME="x_phone" VALUE="(CGIVAR)tracking_phone(/CGIVAR)">

<INPUT TYPE="HIDDEN" NAME="x_fax" VALUE="(CGIVAR)tracking_fax(/CGIVAR)">

<INPUT TYPE="HIDDEN" NAME="x_email" VALUE="(CGIVAR)tracking_email(/CGIVAR)">

<INPUT TYPE="HIDDEN" NAME="x_version" VALUE="3.1">

<INPUT TYPE="HIDDEN" NAME="x_relay_response" VALUE="FALSE">

<INPUT TYPE="HIDDEN" NAME="x_delim_data" VALUE="TRUE">

<INPUT TYPE="HIDDEN" NAME="x_delim_char" VALUE="|">

<INPUT TYPE="HIDDEN" NAME="x_encap_char" VALUE="">

<INPUT TYPE="HIDDEN" NAME="x_adc_url" VALUE="FALSE">

<INPUT TYPE="HIDDEN" NAME="x_type" VALUE="AUTH_CAPTURE">

<INPUT TYPE="HIDDEN" NAME="x_method" VALUE="CC">

<INPUT TYPE="HIDDEN" NAME="x_email_customer" VALUE="FALSE">

(CGIGET TYPE="SUB" VALUE="ste_olp_recur" PARAMS="ste_gw_authnetaimcc")

<CENTER>

<TABLE WIDTH="(CGIVAR)html_content_table_size(/CGIVAR)" BORDER="0" COLS="2" CELLPADDING="10" CELLSPACING="3">

<TR BGCOLOR="(CGIVAR)html_pri_tablerow_color(/CGIVAR)">

<TD VALIGN="TOP"><FONT FACE="(CGIVAR)html_small_font_face(/CGIVAR)" SIZE="(CGIVAR)html_small_font_size(/CGIVAR)" COLOR="(CGIVAR)html_small_font_color(/CGIVAR)"><B>Card Type <FONT COLOR="(CGIVAR)html_notnull_font_color(/CGIVAR)"><B>(CGIVAR)html_notnull_character(/CGIVAR)</B></FONT></B><BR><BR></FONT>

(CGIGET TYPE="SUB" VALUE="ste_order_cctype" PARAMS="ste_gw_authnetaimcc|x_card_type")</TD>

<TD VALIGN="TOP"><FONT FACE="(CGIVAR)html_small_font_face(/CGIVAR)" SIZE="(CGIVAR)html_small_font_size(/CGIVAR)" COLOR="(CGIVAR)html_small_font_color(/CGIVAR)"><B>Card Number <FONT COLOR="(CGIVAR)html_notnull_font_color(/CGIVAR)"><B>(CGIVAR)html_notnull_character(/CGIVAR)</B></FONT></B><BR><BR></FONT>

<INPUT TYPE="TEXT" NAME="x_card_num" SIZE="20"></TD>

</TR>

<TR BGCOLOR="(CGIVAR)html_alt_tablerow_color(/CGIVAR)">

<TD VALIGN="TOP"><FONT FACE="(CGIVAR)html_small_font_face(/CGIVAR)" SIZE="(CGIVAR)html_small_font_size(/CGIVAR)" COLOR="(CGIVAR)html_small_font_color(/CGIVAR)"><B>Card Verification Number<BR><BR></FONT>

<INPUT TYPE="TEXT" NAME="x_card_code" SIZE="20"></TD>

<TD VALIGN="TOP"><FONT FACE="(CGIVAR)html_small_font_face(/CGIVAR)" SIZE="(CGIVAR)html_small_font_size(/CGIVAR)" COLOR="(CGIVAR)html_small_font_color(/CGIVAR)"><B>Expiration Date <FONT COLOR="(CGIVAR)html_notnull_font_color(/CGIVAR)"><B>(CGIVAR)html_notnull_character(/CGIVAR)</B></FONT></B><BR><BR></FONT>

(CGIGET TYPE="SUB" VALUE="ste_order_ccexpcomb" PARAMS="x_exp_date|/|MM|YY")</TD>

</TR>

</TABLE>

<BR>

<INPUT TYPE="IMAGE" SRC="(CGIVAR)images_path(/CGIVAR)/button/submit_submit.gif" WIDTH="(CGIVAR)site_button_image_width(/CGIVAR)" HEIGHT="(CGIVAR)site_button_image_height(/CGIVAR)" BORDER="0" VALUE="submit"> <A HREF="(CGIVAR)common_url(/CGIVAR)&pg=cancel"><IMG SRC="(CGIVAR)images_path(/CGIVAR)/button/submit_cancel.gif" WIDTH="(CGIVAR)site_button_image_width(/CGIVAR)" HEIGHT="(CGIVAR)site_button_image_height(/CGIVAR)" BORDER="0"></A>

<BR><BR>

<IMG SRC="(CGIVAR)images_path(/CGIVAR)/store/store_cvv2.gif" WIDTH="370" HEIGHT="140" BORDER="0">

</CENTER>

<BR>

</FORM>

#######################################################################
# Ste OLP AuthnetAIM Proc                                             #
#######################################################################

sub ste_olp_authnetaim_proc {

&initialize_sub_add('ste_olp_authnetaim_proc');

#########
######### This handles the Authorize.net AIM interface processing.
#########

$gateway_id = $q->param('gateway_id');
$gateway_url = $q->param('gateway_url');
$gateway_returl = $q->param('gateway_returl');

my @gateway = ();

#########
######### Retrieve gateway specific fields.
#########

$dbins_gateway_id = database_quote('gateway',$gateway_id);

$sql_statement = "

SELECT gateway_rcfield,gateway_trfield,gateway_keypwd
FROM gateway
WHERE gateway_id=$dbins_gateway_id

";

@gateway = database_call('gateway','SELECT',$sql_statement);

foreach $row(@gateway) {

($gateway_rcfield,$gateway_trfield,$gateway_keypwd) = @$row;

} ######### End of foreach statement.

$gateway_keypwd = crypt_decrypt($gateway_keypwd,$admin_register_ordernum);

#########
######### Load the correct Perl modules for the request.
#########

use HTTP::Request::Common qw(POST);
use LWP::UserAgent;

#########
######### Load the form data.
#########

my $x_login = $q->param('x_login');
my $x_invoice_num = $q->param('x_invoice_num');
my $x_cust_id = $q->param('x_cust_id');
my $x_amount = $q->param('x_amount');
my $x_first_name = $q->param('x_first_name');
my $x_last_name = $q->param('x_last_name');
my $x_address = $q->param('x_address');
my $x_city = $q->param('x_city');
my $x_state = $q->param('x_state');
my $x_country = $q->param('x_country');
my $x_zip = $q->param('x_zip');
my $x_phone = $q->param('x_phone');
my $x_fax = $q->param('x_fax');
my $x_email = $q->param('x_email');
my $x_version = $q->param('x_version');
my $x_relay_response = $q->param('x_relay_response');
my $x_delim_data = $q->param('x_delim_data');
my $x_delim_char = $q->param('x_delim_char');
my $x_encap_char = $q->param('x_encap_char');
my $x_adc_url = $q->param('x_adc_url');
my $x_type = $q->param('x_type');
my $x_method = $q->param('x_method');
my $x_email_customer = $q->param('x_email_customer');
my $x_card_type = $q->param('x_card_type');
my $x_card_num = $q->param('x_card_num');
my $x_card_code = $q->param('x_card_code');
my $x_exp_date = $q->param('x_exp_date');
my $x_bank_aba_code = $q->param('x_bank_aba_code');
my $x_bank_acct_num = $q->param('x_bank_acct_num');
my $x_bank_acct_type = $q->param('x_bank_acct_type');
my $x_bank_name = $q->param('x_bank_name');
my $x_bank_acct_name = $q->param('x_bank_acct_name');
my $x_echeck_type = $q->param('x_echeck_type');
my $x_customer_tax_id = $q->param('x_customer_tax_id');
my $x_tran_key = "$gateway_keypwd";
my $x_company = $q->param('x_company');
my $x_customer_ip = $ENV{'REMOTE_ADDR'};

#########
######### Load the field names.
#########

my $field_x_login = "x_login";
my $field_x_invoice_num = "x_invoice_num";
my $field_x_cust_id = "x_cust_id";
my $field_x_amount = "x_amount";
my $field_x_first_name = "x_first_name";
my $field_x_last_name = "x_last_name";
my $field_x_address = "x_address";
my $field_x_city = "x_city";
my $field_x_state = "x_state";
my $field_x_country = "x_country";
my $field_x_zip = "x_zip";
my $field_x_phone = "x_phone";
my $field_x_fax = "x_fax";
my $field_x_email = "x_email";
my $field_x_version = "x_version";
my $field_x_relay_response = "x_relay_response";
my $field_x_delim_data = "x_delim_data";
my $field_x_delim_char = "x_delim_char";
my $field_x_encap_char = "x_encap_char";
my $field_x_adc_url = "x_adc_url";
my $field_x_type = "x_type";
my $field_x_method = "x_method";
my $field_x_email_customer = "x_email_customer";
my $field_x_card_type = "x_card_type";
my $field_x_card_num = "x_card_num";
my $field_x_card_code = "x_card_code";
my $field_x_exp_date = "x_exp_date";
my $field_x_bank_aba_code = "x_bank_aba_code";
my $field_x_bank_acct_num = "x_bank_acct_num";
my $field_x_bank_acct_type = "x_bank_acct_type";
my $field_x_bank_name = "x_bank_name";
my $field_x_bank_acct_name = "x_bank_acct_name";
my $field_x_echeck_type = "x_echeck_type";
my $field_x_customer_tax_id = "x_customer_tax_id";
my $field_x_tran_key = "x_tran_key";
my $field_x_company = "x_company";
my $field_x_customer_ip = "x_customer_ip";

#########
######### Figure out whether we have a recurring charge.
#########

my $recurring           = $q->param('recurring');
my $tracking_recurtotal = "0.00";

if ($recurring eq "Y") {

$tracking_recurtotal = $q->param('tracking_recurtotal');

} ######### End of if statement.

#########
######### Load the request.  The request is different for
######### credit card vs. echeck transactions.
#########

$ua = LWP::UserAgent->new;

#########
######### Here is a credit card call.
#########

if ($x_method eq "CC") {

if ($x_amount > "0") {

$req = (POST $gateway_url,
       [$field_x_login => $x_login,
     $field_x_invoice_num => $x_invoice_num,
     $field_x_cust_id => $x_cust_id,
     $field_x_amount => $x_amount,
     $field_x_first_name => $x_first_name,
     $field_x_last_name => $x_last_name,
     $field_x_address => $x_address,
     $field_x_city => $x_city,
     $field_x_state => $x_state,
     $field_x_country => $x_country,
     $field_x_zip => $x_zip,
     $field_x_phone => $x_phone,
     $field_x_fax => $x_fax,
     $field_x_email => $x_email,
     $field_x_version => $x_version,
     $field_x_relay_response => $x_relay_response,
     $field_x_delim_data => $x_delim_data,
     $field_x_delim_char => $x_delim_char,
     $field_x_encap_char => $x_encap_char,
     $field_x_adc_url => $x_adc_url,
     $field_x_type => $x_type,
     $field_x_method => $x_method,
     $field_x_email_customer => $x_email_customer,
     $field_x_card_type => $x_card_type,
     $field_x_card_num => $x_card_num,
     $field_x_card_code => $x_card_code,
     $field_x_exp_date => $x_exp_date,
     $field_x_company => $x_company,
     $field_x_customer_ip => $x_customer_ip,
     $field_x_tran_key => $x_tran_key]);

$req->referer("$gateway_url");

$response = $ua->request($req);

} ######### End of if statement.

if ($recurring eq "Y" && $tracking_recurtotal > "0") {

my $x_invoice_num_new          = "$x_invoice_num";

$x_invoice_num_new            .= "R";
$x_amount                      = "$tracking_recurtotal";

$req = (POST $gateway_url,
       [$field_x_login => $x_login,
     $field_x_invoice_num => $x_invoice_num_new,
     $field_x_cust_id => $x_cust_id,
     $field_x_amount => $x_amount,
     $field_x_first_name => $x_first_name,
     $field_x_last_name => $x_last_name,
     $field_x_address => $x_address,
     $field_x_city => $x_city,
     $field_x_state => $x_state,
     $field_x_country => $x_country,
     $field_x_zip => $x_zip,
     $field_x_phone => $x_phone,
     $field_x_fax => $x_fax,
     $field_x_email => $x_email,
     $field_x_version => $x_version,
     $field_x_relay_response => $x_relay_response,
     $field_x_delim_data => $x_delim_data,
     $field_x_delim_char => $x_delim_char,
     $field_x_encap_char => $x_encap_char,
     $field_x_adc_url => $x_adc_url,
     $field_x_type => $x_type,
     $field_x_method => $x_method,
     $field_x_email_customer => $x_email_customer,
     $field_x_card_type => $x_card_type,
     $field_x_card_num => $x_card_num,
     $field_x_card_code => $x_card_code,
     $field_x_exp_date => $x_exp_date,
     $field_x_company => $x_company,
     $field_x_customer_ip => $x_customer_ip,
     $field_x_tran_key => $x_tran_key]);

$req->referer("$gateway_url");

$response = $ua->request($req);

} ######### End of if statement.

#########
######### And here is the check call.
#########

} else {

$req = (POST $gateway_url,
       [$field_x_login => $x_login,
     $field_x_invoice_num => $x_invoice_num,
     $field_x_cust_id => $x_cust_id,
     $field_x_amount => $x_amount,
     $field_x_first_name => $x_first_name,
     $field_x_last_name => $x_last_name,
     $field_x_address => $x_address,
     $field_x_city => $x_city,
     $field_x_state => $x_state,
     $field_x_country => $x_country,
     $field_x_zip => $x_zip,
     $field_x_phone => $x_phone,
     $field_x_fax => $x_fax,
     $field_x_email => $x_email,
     $field_x_version => $x_version,
     $field_x_relay_response => $x_relay_response,
     $field_x_delim_data => $x_delim_data,
     $field_x_delim_char => $x_delim_char,
     $field_x_encap_char => $x_encap_char,
     $field_x_adc_url => $x_adc_url,
     $field_x_type => $x_type,
     $field_x_method => $x_method,
     $field_x_email_customer => $x_email_customer,
     $field_x_bank_aba_code => $x_bank_aba_code,
     $field_x_bank_acct_num => $x_bank_acct_num,
     $field_x_bank_acct_type => $x_bank_acct_type,
     $field_x_bank_name => $x_bank_name,
     $field_x_bank_acct_name => $x_bank_acct_name,
     $field_x_echeck_type => $x_echeck_type,
     $field_x_customer_tax_id => $x_customer_tax_id,
     $field_x_company => $x_company,
     $field_x_customer_ip => $x_customer_ip,
     $field_x_tran_key => $x_tran_key]);

$req->referer("$gateway_url");

$response = $ua->request($req);

} ######### End of if statement.

#########
######### Process Response
#########

if ($response->is_success) {

my $reply = $response->content;

$reply =~ s/\"//gs;

($r_response_code,$r_response_subcode,$r_response_reason_code,$r_response_reason_text,$r_approval_code,$r_avs_code,$r_trans_id,$r_invoice_num,$r_description,$r_amount,$r_method,$r_type,$r_cust_id,$r_first_name,$r_last_name,$r_company,$r_address,$r_city,$r_state,$r_zip,$r_country,$r_phone,$r_fax,$r_email,$r_ship_to_first_name,$r_ship_to_last_name,$r_ship_to_company,$r_ship_to_address,$r_ship_to_city,$r_ship_to_state,$r_ship_to_zip,$r_ship_to_country,$r_tax,$r_duty,$r_freight,$r_tax_exempt,$r_po_num,$r_md5_hash,$r_cvv2_resp_code,$r_future) = split(/$x_delim_char/,$reply);

print "Content-type: text/html\n\n";

print <<ENDOFTEXT;

<HTML>
<META HTTP-EQUIV="refresh" CONTENT="0; URL=$gateway_returl?$gateway_rcfield=$r_response_code&$gateway_trfield=$x_invoice_num">
</HTML>

ENDOFTEXT

} else {

  print "Content-type: text/html\n\n";

  if ($site_print_debugging eq "Y") {

    print "<HTML><HEAD><TITLE>Script Execution Error</TITLE></HEAD><BODY>\n";
    print "<H1>Script Execution Error</H1>The following error was returned:<BR><BR>\n";
    print "$@";

  } else {

    print "<HTML><HEAD><TITLE>Katz Eye Optics - Error</TITLE></HEAD><BODY>\n";

    print "<H1>Error</H1>The Katz Eye Optics website had encountered an error. We apologize for the inconvenience.<BR><BR>\n";
    print "Please try again later or contact us to discuss your needs.<br><br>\n";
    print "Katz Eye Optics<br>70 Lime St.<br>Adams, MA 01220 USA<br>+1.413.743.2523<br>customerservice\@katzeyeoptics.com<br><br>\n";
    print "Thank you very much for your patronage\n";

  } ## endif

  print "</BODY></HTML>\n";

} ######### End of if statement.

&initialize_sub_remove('ste_olp_authnetaim_proc');

} ######### End of subroutine.