S
SergioQ
Hello all,
Am having some very serious problems reading the POST data that is
being sent to my Perl script. The full code (minus my email address
is below). And essentially what I am getting back via email reports
is that that there is data being sent via POST, and tht it has a
length of 1431. Yet all my attempts to read it are failing
miserably. If anyone can help me out, I would soooo appreciate it.
Thank you so much.
Here is the FULL CODE:
#!/usr/bin/perl
use strict;
use MainMod;
use HTTP::Request;
use LWP::UserAgent;
use CGI qwstandard);
my $out_msg = "";
my %variable;
my $serg_bffr;
read STDIN, $serg_bffr, $ENV{'CONTENT_LENGTH'};
my $sendmail = "/usr/sbin/sendmail -t";
open(SENDMAIL, "|$sendmail") or die "Cannot open $sendmail: $!";
print SENDMAIL ---my email address goes here---
print SENDMAIL ---my email address goes here---
print SENDMAIL "Subject: IPN Stuff\n";
print SENDMAIL "\n";
print SENDMAIL "$ENV{REQUEST_METHOD}\n";
print SENDMAIL "$ENV{'CONTENT_LENGTH'}\n";
print SENDMAIL length($serg_bffr) . "\n";
print SENDMAIL "$serg_bffr\n";
close(SENDMAIL);
PrintItOut("done");
exit (0);
Am having some very serious problems reading the POST data that is
being sent to my Perl script. The full code (minus my email address
is below). And essentially what I am getting back via email reports
is that that there is data being sent via POST, and tht it has a
length of 1431. Yet all my attempts to read it are failing
miserably. If anyone can help me out, I would soooo appreciate it.
Thank you so much.
Here is the FULL CODE:
#!/usr/bin/perl
use strict;
use MainMod;
use HTTP::Request;
use LWP::UserAgent;
use CGI qwstandard);
my $out_msg = "";
my %variable;
my $serg_bffr;
read STDIN, $serg_bffr, $ENV{'CONTENT_LENGTH'};
my $sendmail = "/usr/sbin/sendmail -t";
open(SENDMAIL, "|$sendmail") or die "Cannot open $sendmail: $!";
print SENDMAIL ---my email address goes here---
print SENDMAIL ---my email address goes here---
print SENDMAIL "Subject: IPN Stuff\n";
print SENDMAIL "\n";
print SENDMAIL "$ENV{REQUEST_METHOD}\n";
print SENDMAIL "$ENV{'CONTENT_LENGTH'}\n";
print SENDMAIL length($serg_bffr) . "\n";
print SENDMAIL "$serg_bffr\n";
close(SENDMAIL);
PrintItOut("done");
exit (0);