Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
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.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://998072]
help
Chatterbox?
[ambrus]: Corion: really? Does that mean the Prima watcher objects behave as handles that stop the watcher when they're destroyed, just like AnyEvent expects?
[ambrus]: "all the bugs" -- hehe, good luck
[ambrus]: Corion: what I don't understand is, if you make a one-shot AnyEvent timer with short timeout, does this code guarantee that the Prima timer can't queue two timeout events before invoking any of them?
[ambrus]: Because that could break AnyEvent code, which is why I added a guard.
[ambrus]: (It might be easier to use the callback scalar as a guard, as in $c and &$c(); $c = ();)
[Corion]: ambrus: Hurr - yes, that might happen, as Prima will queue lots of stuff (Well, Windows will)
[Corion]: But I'm really amazed that it just took this little code (plus the idle handler I have in mind and something else dk suggested)

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (7)
As of 2016-12-09 09:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:













    Results (150 votes). Check out past polls.