#!c:/perl/bin/perl.exe #!/usr/local/bin/perl ###################################################################################### # i-Check ########### script v1.0 # Copyright (c) 1999 Interactive Technologies, Inc. # # CGI Script written by: # Cory Johnson # coryj@i-Check.net # # The contents of this file is proprietary information of # Interactice Technologies, Inc. and may not be disclosed without # prior written consent. # ###################################################################################### # # The Director # &parseforms;&gettime;&defaltvalues; if($ENV{'HTTPS'}){$imagelocation = "http://www.rcklockbox.com/images3";} else {$imagelocation = "http://images.paybycheck.com";} if ($ENV{'CONTENT_LENGTH'} eq "" && $ENV{'QUERY_STRING'} eq "" && $ENV{'PATH_INFO'} eq ""){&index;exit;} &letter; exit; ################################################################################# # # Start Subs # ################################################################################# # # Set Defalt Values # sub defaltvalues { $HTTP{'header'} .= "PICS-Label: (PICS-1.0 \"http://www.rsac.org/ratingsv01.html\" l on \"1998.09.22T10:52-0700\" exp \"1999.09.22T12:00-0700\" r (v 0 s 0 n 0 l 0))\n"; } # # Parse form contents # sub parseforms { if ($ENV{'REQUEST_METHOD'} eq 'GET') {@pairs = split(/&/, $ENV{'QUERY_STRING'});} elsif ($ENV{'REQUEST_METHOD'} eq 'POST') {read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer);} foreach $pair (@pairs) {local($name, $value) = split(/=/, $pair); $name =~ tr/+/ /; $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ tr/+/ /;$value =~ s///g; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $FORM{$name} = $value;} foreach (split(/; /,$ENV{'HTTP_COOKIE'})) { ($cookie,$cookievalue) = split(/=/); $COOKIE{$cookie} = $cookievalue;} } # # get the date and time # sub gettime { ($TIME{'sec'},$TIME{'min'},$TIME{'hour'},$TIME{'mday'},$TIME{'mon'},$TIME{'year'},$TIME{'wday'},$TIME{'yday'},$TIME{'isdst'}) = localtime(time); $TIME{'month'} = ($TIME{'mon'} + 1);if ($TIME{'month'} < 10) {$TIME{'month'} = "0$TIME{'month'}";} if ($TIME{'sec'} < 10) {$TIME{'sec'} = "0$TIME{'sec'}";}if ($TIME{'min'} < 10) {$TIME{'min'} = "0$TIME{'min'}";} if ($TIME{'hour'} < 10) {$TIME{'hour'} = "0$TIME{'hour'}";}if ($TIME{'mon'} < 10) {$TIME{'mon'} = "0$TIME{'mon'}";} if ($TIME{'mday'} < 10) {$TIME{'mday'} = "0$TIME{'mday'}";} @months = ("January","February","March","April","May","June","July","August","September","October","November","December"); @wdays = ("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday"); if($TIME{'year'} < 30){$TIME{'year'} += 2000;} else {$TIME{'year'} += 1900;} chop($TIME{'date'}) if ($TIME{'date'} =~ /\n$/); if($TIME{'mday'} == 1 or $TIME{'mday'} == 21 or $TIME{'mday'} == 31){$TIME{'postmday'} = "st"} elsif($TIME{'mday'} == 2 or $TIME{'mday'} == 22){$TIME{'postmday'} = "nd"} elsif($TIME{'mday'} == 3 or $TIME{'mday'} == 23){$TIME{'postmday'} = "rd"} else {$TIME{'postmday'} = "th"} $TIME{'ampm'} = "AM";if($TIME{'hour'} > 11){$TIME{'ampm'} = "PM";} if($TIME{'hour'} > 12){$TIME{'ampmhour'} = ($TIME{'hour'} - 12);} else {$TIME{'ampmhour'} = $TIME{'hour'};} if($TIME{'hour'} == 0){$TIME{'ampmhour'} = 12;} ######################################################### # twelvehour = 3:53 PM $TIME{'twelvehour'} = "$TIME{'ampmhour'}:$TIME{'min'} $TIME{'ampm'}"; # date = 1998/11/07 $TIME{'date'} = "$TIME{'year'}/$TIME{'month'}/$TIME{'mday'}"; # fulldate = Saturday November 7th, 1998 $TIME{'fulldate'} = "$wdays[$TIME{'wday'}] $months[$TIME{'mon'}] $TIME{'mday'}$TIME{'postmday'}, $TIME{'year'}"; # time = 15:53:56 $TIME{'time'} = "$TIME{'hour'}:$TIME{'min'}:$TIME{'sec'}"; # datetime = 1998/11/07 15:53:56 $TIME{'datetime'} = "$TIME{'date'} $TIME{'time'}"; ######################################################### } # # Print HTTP Headers # sub http { if($httpdone ne "1"){ print "$HTTP{'header'}"; if ($HTTP{'location'}) {print "Location: $HTTP{'location'}\n\n";} else {print "Content-type: text/html\n\n";} $httpdone = 1; }} # # Send an email # sub sendmail { open(MAIL,"|sendmail -t") || die "Can't open mailprog!\n"; print MAIL "To: $MAIL{'to'}\n"; print MAIL "From: $MAIL{'from'}\n"; print MAIL "Subject: $MAIL{'subject'}\n\n"; print MAIL "$MAIL{'body'}"; close(MAIL); } ################################################################################# # # HTML Pages # ################################################################################# # # Print index page # sub index { &http; print < RCK LockBox - NSF Check Representment

 

Please fill out the following information:

Name on bank account:

Street address on bank account:
City/State/Zip:

Phone Number:

Bank Account Number:

 

Bank Name:

Bank Address:

Bank Phone Number:

Bank Fax Number:


Legal Notice Copyright © 2000 ITInternet Services Inc. - All rights reserved.
RCK LockBox, ITInternet and the ITInternet Services logo are
trademarks or registered trademarks of ITInternet Services Inc.
 

END ; } # end sub # # Print the letter # sub letter { &http; print < Print this page

Print this page, and sign the bottom. Fax this form along with a voided check and your RCK Lockbox ID to RCK Lockbox at (253) 284-0324. Submit the original to your bank's account representative. Use one letter of authorization for each operating account.

Letter of Authorization

TO:

$FORM{'bname'}
$FORM{'baddress'}
$FORM{'bcity'}, $FORM{'bstate'} $FORM{'bzip'}

Voice: $FORM{'bvoice'}
Fax: $FORM{'bfax'}

RE:

$FORM{'name'}
$FORM{'address'}
$FORM{'city'}, $FORM{'state'} $FORM{'zip'}

Voice: $FORM{'voice'}
Account: $FORM{'account'}

This letter authorizes the above-named bank to fax or mail all returned checks on the above account to:

ITI Internet Services, Inc.
1130 Broadway Plaza, Suite #205
Tacoma, WA 98402
Fax: 253.284.0324

You are directed not to re-deposit any returned items to my account. You are authorized and directed to fax or mail all returned items to the above address.

If in the event the above-named bank has any previous check processing agreements with the above account, this combined document will also serve as a Letter of Notification for Cancellation of any previous return check processor agreement.

The bank is hereby released from any further liability of guaranteeing delivery of the aforementioned checks to the above named merchant.

RCK LockBox is hereby authorized to process said returned items for payment in accordance with the Rules and Regulations set forth by the U.S. Federal Reserve and the National Automated Clearing House Association (NACHA)

This Letter of Authorization will remain in effect until cancelled in writing.

Name:

Signature:

Date:

END ; } # end sub ################################################################################# # # THE END # #################################################################################