$_ = shift;
s:^\s+::;
s:\s+$::;
s:\s*\n\s*:\r\n:g;
return "$_\r\n";
}

sub get_cache_headers {
my @headers;

my $cc = $::Pragma->{cache_control};
push @headers, "Cache-Control: $cc" if $cc;

push @headers, "Pragma: no-cache" if delete $::Scratch->{mv_no_cache};

# We ensure that POSTs are never suppressed (i.e., cacheable), and
# we also allow this option to be configured per catalog, as not
# every catalog may be be setup to properly handle these
# assumptions and affects.

$Vend::suppress_cookies =
  $CGI::request_method !~ /POST/i &&
  $Vend::Cfg->{SuppressCachedCookies} &&
  (
    (defined $::Pragma->{cache_control} && ($::Pragma->{cache_control} !~ /no-cache/i)) ||
    ($Vend::StatusLine =~ /^Cache-Control:\s+(?!no-cache)\s*$/im)
  )
;