comment on

1. Error on a first pass: "Can't call method "clone" on unblessed reference at /usr/share/perl5/HTTP/Message.pm line 32."

2. Shouldn't the %ENV variable names be mapped to the a-bit-different HTTP Header names?

3. And we are passing a hashref to the HTTP::Request constructor, but it expects an arrayref (solved via this node).

Changed code:

my %env_to_httpheader = (
        'HTTP_USER_AGENT'       => 'User-Agent',
        'HTTP_HOST'             => 'Host',
        'HTTP_TE'               => 'Accept-Encoding',
        'CONTENT_LENGTH'        => 'Content-Length',
        # from here on blurry from memory: (and probably more to inclu
+de as well..)
        'CONTENT_ENCODING'      => 'Content-Encoding',
        'CONTENT_TYPE'          => 'Content-Type',
);

my $headers;
foreach my $key (keys %env_to_httpheader) {
        if (exists $ENV{$key}) {
                # $headers->{ $env_to_httpheader{$key} } = $ENV{$key};
                # "The optional $header argument should be a reference
+ to an HTTP::Headers object or a plain array reference of key/value p
+airs."
                push(@{ $headers }, $env_to_httpheader{$key});
                push(@{ $headers }, $ENV{$key});
        }
}
[download]

Result: After changing this, it works!

Any leftovers, hints, tweaks for this piece of code before I move it to production code? For example, a module for the ENV to HTTP Header translation, or similar improvements?

2c: A lengthy hack, isn't it? Just to get a HTTP::Response out of CGI.pm/CGI::Fast. Once more, I dislike this CGI.pm-behemoth..

In reply to Re^4: Does CGI::Application expose a HTTP::Request object? by isync
in thread Does CGI::Application expose a HTTP::Request object? by isync

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


We don't bite newbies here... much
	PerlMonks