@ISA = qw(Business::OnlinePayment::HTTPS);
-$VERSION = '2.06_01';
+$VERSION = '2.07';
$VERSION = eval $VERSION; # modperlstyle: convert the string into a number
$DEBUG = 0;
sub set_defaults {
my $self = shift;
- $self->server('orbitalvar1.paymentech.net') unless $self->server; # this is the test server.
+ $self->server('orbitalvar1.chasepaymentech.com') unless $self->server; # this is the test server.
$self->port('443') unless $self->port;
$self->path('/authorize') unless $self->path;
my $post_data = XMLout({ Request => $request }, KeepRoot => 1, NoAttr => 1, NoSort => 1);
if (!$self->test_transaction()) {
- $self->server('orbital1.paymentech.net');
+ $self->server('orbital1.chasepaymentech.com');
}
warn $post_data if $DEBUG;