Re: [PHP] Changing perl to PHP

> $fp = fsockopen("www.paypal.com", 443, $errono, $errstr, 30); > if (!$fp) { > echo "$errstr ($errno)\n"; > } else { > fputs ($fp, "GET https://www.paypal.com/cgi-bin/webscr > HTTP/1.1\015\012"); > fputs ($fp, "HOST www.paypal.com\015\012"); > fputs ($fp, "Content-type: applicati

Re: [PHP] Changing perl to PHP

\n"; } else { fputs ($fp, "GET https://www.paypal.com/cgi-bin/webscr HTTP/1.1\015\012"); fputs ($fp, "HOST www.paypal.com\015\012"); fputs ($fp, "Content-type: application/x-www-form-urlencoded\015\012"); fputs ($fp, "Content-Length: ". strlen($query)."\015\012"); fputs ($fp, "

Re: [PHP] Changing perl to PHP

> # read the post from PayPal system and add 'cmd' > read (STDIN, $query, $ENV{'CONTENT_LENGTH'}); > $query .= '&cmd=_notify-validate'; > > # post back to PayPal system to validate > use LWP::UserAgent; > $ua = new LWP::UserAgent; > $req = new HTTP::Request 'POST','https://www.paypal.com/cgi-bin/w