projects
/
Business-OnlinePayment-vSecureProcessing.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
- Update for production URL
[Business-OnlinePayment-vSecureProcessing.git]
/
t
/
lib
/
test_account.pl
1
2
sub test_account {
3
# fill all these fields in to test out transactions
4
my %opts = (
5
login => '', #userid
6
password => '', #gid
7
platform => '',
8
appid => ''
9
#tid => '',
10
);
11
12
return %opts;
13
}
14
15
sub expiration_date {
16
my($month, $year) = (localtime)[4,5];
17
$month += 1;
18
$year++; # So we expire next year.
19
$year %= 100;
20
21
return sprintf("%02d/%02d", $month, $year);
22
}
23
24
25
1;
26