Hi All:

I am having a problem with a particular script that is supposed to receive a string from a business partner, alter the string and return it to them, giving the 200 OK at each step.

They have told me that, "I guess what is happening is that since you've configured your script to return a 500 ERR response that our server continues to POST. Our server POSTs until you return a 200 OK".

I don't see how I have configured my script to return 500 ERR (or *ANYTHING* for that matter). The code in question is below.

Any/all help is greatly appreciated. 

#read the post from partner system and add 'cmd'
read (STDIN, $query, $ENV{'CONTENT_LENGTH'});
$query .= '&cmd=_notify-validate'; 

# post back to partner system to validate
use LWP::UserAgent; 
$ua = LWP::UserAgent->new; 

my $req = HTTP::Request->new(POST => 'http://www.foo.bar/test.pl');

$req->content_type('application/x-www-form-urlencoded'); 
$req->content($query); 
my $res = $ua->request($req); 

# split posted variables into pairs 
@pairs = split(/&/, $query); 
$count = 0; 
foreach $pair (@pairs) { 
    ($name, $value) = split(/=/, $pair); 
    $value =~ tr/+/ /; 
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; 
    $variable{$name} = $value; 
    print STDERR "$name => $value\n";
    $count++; 
}

[download]

In reply to HTTP POSTing problem by Shmengy

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.