#!/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=$login&id=$user->{'id'}&email=$user->{'email'}&msg=201&args=$sarah_bownds");