CYBER_HOST —
Interchange 4.6.0:
Source: lib/Vend/Order.pm (rev. 1.20 from Tue Mar 6 17:24:20 2001)
Line 649 (context shows lines 639-653 in charge():579)
return undef;
}
%result = $sub->(@args);
$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} || '',
);
Source: lib/Vend/Order.pm (rev. 1.20 from Tue Mar 6 17:24:20 2001)
Line 689 (context shows lines 679-693 in charge():579)
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;
}
unless($::Variable->{CYBER_HOST}) {
$::Variable->{CYBER_HOST} = $Config{CCPS_HOST};
}
if($Vend::CC3server) {
# Cybercash 3.x server and libraries to be used.
Source: lib/Vend/Order.pm (rev. 1.20 from Tue Mar 6 17:24:20 2001)
Line 699 (context shows lines 689-703 in charge():579)
unless($::Variable->{CYBER_HOST}) {
$::Variable->{CYBER_HOST} = $Config{CCPS_HOST};
}
if($Vend::CC3server) {
# Cybercash 3.x server and libraries to be used.
if ($status != 0) {
$Vend::Session->{cybercash_error} = MCKGetErrorMessage($status);
return undef;
}
$sendurl = $::Variable->{CYBER_HOST} . 'directcardpayment.cgi';
my %paymentNVList;
$paymentNVList{'mo.cybercash-id'} = $Config{CYBERCASH_ID};
$paymentNVList{'mo.version'} = $MCKversion;