Thank you for your inputs. However, I have nearly 10+ fields to be sent and I don't think it makes any sense to send it via URL. Here is the code I'm working on....
#!/usr/bin/perl use strict; use HTTP::Request::Common; use CGI; use Facebook::Graph; use Data::Dumper; my $APP_ID = 'SOME_ID'; my $SECRET = 'SOME_SECRET_CODE'; my $POSTBACK_URL = "http://goto.this.domain/postback.pl"; my $fb = Facebook::Graph->new( app_id => $APP_ID, secret => $SECRET, postback => $POSTBACK_URL, ); my $q = new CGI; my $params = $q->Vars; my $code = $params->{'code'}; $fb->request_access_token($code); my $token = $fb->access_token; $fb->request_extended_access_token($token); my $user = $fb->fetch('me'); #register the facebook data into my site to create a new profile; my $login = $user->{'name'}; $login =~ s/\s//g; my $sarah_bownds = $fb->query->find($user->{'id'}) ->select_fields(qw(id name email)) ->request ->as_hashref; my $default_picture = $fb->picture($user->{'id'})->get_square->uri_as +_string; my %register = ( login => $login, firstname => $user->{'first_name'}, lastname => $user->{'last_name'}, email => $user->{'email'}, action => 'register', id => $user->{'id'}, ); print $q->redirect("http://goto.this.domain/cgi/register.cgi?login=$lo +gin&id=$user->{'id'}&email=$user->{'email'}&msg=201&args=$sarah_bownd +s");
In reply to Re^4: Post Email address as CGI Parameter
by doubledecker
in thread Post Email address as CGI Parameter
by doubledecker
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |