CYBER_CONFIGFILE —
Interchange 4.6.0:
Source: lib/Vend/Order.pm (rev. 1.20 from Tue Mar 6 17:24:20 2001)
Line 652 (context shows lines 642-656 in charge():579)
$Vend::Session->{payment_result} =
$Vend::Session->{cybercash_result} = \%result;
}
elsif ($actual{cyber_mode} =~ /^minivend_test(?:_(.*))?/) {
my $status = $1 || 'success';
# Interchange test mode
my %payment = (
'host' => $::Variable->{CYBER_HOST} || 'localhost',
'port' => $::Variable->{CYBER_PORT} || 8000,
'secret' => $::Variable->{CYBER_SECRET} || '',
'config' => $::Variable->{CYBER_CONFIGFILE} || '',
);
&testSetServer ( %payment );
%result = testsendmserver(
$actual{cyber_mode},
Source: lib/Vend/Order.pm (rev. 1.20 from Tue Mar 6 17:24:20 2001)
Line 678 (context shows lines 668-682 in charge():579)
$result{MStatus} = $status;
$Vend::Session->{payment_result} =
$Vend::Session->{cybercash_result} = \%result;
}
elsif ($Vend::CC3) {
# Live interface operations follow
$Vend::CC3server = 1;
# Cybercash 3.x libraries to be used.
# Initialize the merchant configuration file
my $status = InitConfig($::Variable->{CYBER_CONFIGFILE});
if ($status != 0) {
$Vend::Session->{cybercash_error} = MCKGetErrorMessage($status);
::logError(
"Failed to initialize CyberCash from file %s: %s",
Source: lib/Vend/Order.pm (rev. 1.20 from Tue Mar 6 17:24:20 2001)
Line 683 (context shows lines 673-687 in charge():579)
# Live interface operations follow
$Vend::CC3server = 1;
# Cybercash 3.x libraries to be used.
# Initialize the merchant configuration file
my $status = InitConfig($::Variable->{CYBER_CONFIGFILE});
if ($status != 0) {
$Vend::Session->{cybercash_error} = MCKGetErrorMessage($status);
::logError(
"Failed to initialize CyberCash from file %s: %s",
$Variable->{CYBER_CONFIGFILE},
$Vend::Session->{cybercash_error},
);
return undef;
}