Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re^2: set REMOTE_ADDR to sendmail?

by techdex (Initiate)
on Oct 09, 2012 at 20:50 UTC ( #998072=note: print w/ replies, xml ) Need Help??


in reply to Re: set REMOTE_ADDR to sendmail?
in thread set REMOTE_ADDR to sendmail?

Alright. I noticed my last post didn't show (probably because I had a URL in it), but I figured it out. Manual Opt-ins get two iframes on the same page, each opting them in to my list and the ppl program (four actually - I also load the two landing pages so the information is set in their browser, then load the iframes). For my automated friends, before their account is created I put LWP::UserAgen and HTTP::Request to some good use and fetched the URL contents first. Looks like this

use LWP::UserAgent; use HTTP::Request; my $ppd = 'script post url with all the variables'; my $aweber = 'script post url with all the variables'; &do_ppd; &do_aweber; &do_register; sub do_ppd { my $agent = LWP::UserAgent->new(env_proxy => 1,keep_alive => 1, timeou +t => 30); my $header = HTTP::Request->new(GET => $ppd); my $request = HTTP::Request->new('GET', $ppd, $header); my $response = $agent->request($request); # Check response if ($response->is_success){ print "url:$url\nHeaders:\n"; print $response->headers_as_string; print "\nContent:\n"; print $response->as_string; }elsif ($response->is_error){ print "Error:$url\n"; print $response->error_as_HTML; } } sub do_aweber { my $agent = LWP::UserAgent->new(env_proxy => 1,keep_alive => 1, timeou +t => 30); my $header = HTTP::Request->new(GET => $aweber); my $request = HTTP::Request->new('GET', $aweber, $header); my $response = $agent->request($request); # Check response if ($response->is_success){ print "url:$url\nHeaders:\n"; print $response->headers_as_string; print "\nContent:\n"; print $response->as_string; }elsif ($response->is_error){ print "Error:$url\n"; print $response->error_as_HTML; } } sub do_register { #see if user exists #see if email is valid and doesn't already exist #mysql insert }
Firing order :) Thank you for your input on shortening the process. I really wanted to make the process to do all three steps with only filling out one from. Most people who go hunting for free stuff like marketing seldom actually complete any process. This way I get paid whether they do or not.


Comment on Re^2: set REMOTE_ADDR to sendmail?
Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://998072]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (5)
As of 2014-10-25 22:21 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (149 votes), past polls