SERVER_NAME — (partly documented)
Interchange 5.9.0:
Source: lib/Vend/Util.pm
Line 2219 (context shows lines 2209-2223 in send_mail():2112)
or last SEND; print MVMAIL Vend::Interpolate::do_tag('mime boundary') . '--' if $use_mime; print MVMAIL "\r\n\cZ" if $Global::Windows; close MVMAIL or last SEND; $ok = ($? == 0); } SMTP: { my $mhost = $::Variable->{MV_SMTPHOST} || $Global::Variable->{MV_SMTPHOST}; my $helo = $Global::Variable->{MV_HELO} || $::Variable->{SERVER_NAME}; last SMTP unless $none and $mhost; eval { require Net::SMTP; };
Source: lib/Vend/Email.pm
Line 668 (context shows lines 658-672 in send_mail_legacy():561)
or last SEND; print MVMAIL Vend::Interpolate::do_tag('mime boundary') . '--' if $use_mime; print MVMAIL "\r\n\cZ" if $Global::Windows; close MVMAIL or last SEND; $ok = ($? == 0); } SMTP: { my $mhost = $::Variable->{MV_SMTPHOST} || $Global::Variable->{MV_SMTPHOST}; my $helo = $Global::Variable->{MV_HELO} || $::Variable->{SERVER_NAME}; last SMTP unless $none and $mhost; eval { require Net::SMTP; };
Source: lib/Vend/Payment/iTransact.pm
Line 296 (context shows lines 286-300 in itransact():217)
phone => $actual{phone_day}, email => $actual{email}, ccnum => $actual{mv_credit_card_number}, ccmo => $exp_month, ccyr => $exp_year, ret_mode => "redirect", ); my $hp = $opt->{home_page} || charge_param('home_page') || $::Variable->{SERVER_NAME}; $hp = "http://$hp" unless $hp =~ /^\w+:/; $values{home_page} = $hp; $opt->{submit_url} ||= 'https://secure.itransact.com/cgi-bin/rc/ord.cgi';