MV_HTTP_CHARSET —
Interchange 5.9.0:
Source: lib/Vend/Server.pm
Line 663 (context shows lines 653-667 in respond():655)
} sub respond { # $body is now a reference my ($s, $body) = @_; #show_times("begin response send") if $Global::ShowTimes; # Safe kludge: duplicate Vend::CharSet::default_charset method here # so that $Document->send() will work from within Safe my $c = $Global::Selector{$CGI::script_name}; my $response_charset = $c->{Variable}{MV_HTTP_CHARSET} || $Global::Variable->{MV_HTTP_CHARSET}; my $status; return if $Vend::Sent; if($Vend::StatusLine) {
Source: lib/Vend/CharSet.pm
Line 100 (context shows lines 90-104 in default_charset():98)
# this can/will come in handy. sub mime_name { my $encoding_name = shift; $encoding_name =~ s/-strict//i; return lc $encoding_name; } sub default_charset { my $c = $Global::Selector{$CGI::script_name}; return $c->{Variable}{MV_HTTP_CHARSET} || $Global::Variable->{MV_HTTP_CHARSET}; } # this sub taken from the perluniintro man page, for diagnostic purposes sub display_chars {