view release on metacpan or  search on metacpan

lib/CGI/CurlLog.pm  view on Meta::CPAN

    if ($ENV{"CONTENT_TYPE"}) {
        $cmd .= "-H \"Content-Type: $ENV{CONTENT_TYPE}\" ";
    }
    if ($ENV{"HTTP_ACCEPT"}) {
        $cmd .= "-H \"Accept: $ENV{HTTP_ACCEPT}\" ";
    }
    if ($ENV{"HTTP_AUTHORIZATION"}) {
        $cmd .= "-H \"Authorization: $ENV{HTTP_AUTHORIZATION}\" ";
    }
    if ($ENV{"HTTP_COOKIE"}) {
        $cmd .= "-H \"Cookie: $ENV{HTTP_COOKIE}\" ";
    }
    # if ($ENV{"HTTP_USER_AGENT"}) {
    #     $cmd .= "-H \"UserAgent: $ENV{HTTP_USER_AGENT}\" ";
    # }
    if ($ENV{"CONTENT_LENGTH"}) {
        my $input = do {local $/; <STDIN>};
        close STDIN;
        open STDIN, "<", \$input;
        my $input2 = $input;
        $input2 =~ s{([\\\$"])}{\\$1}g;