NAME
Payvment::API - Payvment Facebook API
VERSION
Version 0.01
SYNOPSIS
This module presents an easy to use Payvment API for Creating a webstore on Facebook.
Pl. have a look at scripts in the folder for more details
use Payvment::Facebook::API; use Data::Dumper; use DBI; use DBD::mysql;
my $xml = "product"; my $operation = "generatexml";
my $infile={product=>'productout.xml', product_status => 'productoutstatus.xml' };
my $pfapi = Payvment::Facebook::API->new( 'payvment_id' => '', # Enter values here 'payvment_api_key' => '' # Enter values here );
if ( $operation eq 'generatexml' ) { open FILE, ">".$infile->{$xml};
$pfapi->generate_xml(
'method' => $xml,
'type' => 'header',
'filehandle' => *FILE
);
my $images = [];
# push @$images, $image_url; #repeat this
$pfapi->generate_xml(
'method' => 'product',
'type' => 'body',
'filehandle' => *FILE,
name => $row->{name},
description => $row->{description},
price => $row->{price},
currency => $row->{currency},
qty => $row->{qty},
enable_additional_qty => $row->{enable_additional_qty},
weight => $row->{weight},
weight_unit => $row->{weight_unit},
sku => $row->{sku},
images => $images,
new_state => $row->{new_state},
tags => $row->{tags},
is_taxable => $row->{is_taxable},
categories => $row->{ppcategories},
client_category_name => $row->{client_category_name}
);
}
$pfapi->generate_xml(
'method' => 'product',
'type' => 'footer',
'filehandle' => *FILE
);
close FILE;
print "done create xml";
} elsif ( $operation eq 'submit' ) {
open FILE, "<".$infile->{$xml} or die"cannt open file";
my $cont = $pfapi->submitxml(
'method' => $xml,
'filehandle' => *FILE
);
my $user = "dbuser";
my $pass = 'password';
my $dsn = 'dbi:mysql:db:localhost:3306';
my $dbh = DBI->connect( $dsn, $user, $pass )
or die "Can't connect to the DB: $DBI::errstr\n";
my $query =
"insert into payvment_requests(pr_responsecont,pr_dated,pr_type) values(?, now(),?)";
my $sth = $dbh->prepare($query);
$sth->bind_param( 1, $cont->{cont} );
$sth->bind_param( 2, $xml );
$sth->execute;
close FILE or die"";
print "done submit xml";
}
FUNCTIONS
new
AUTHOR
"abhishek jain", <"goyali at cpan.org">
BUGS
Please report any bugs or feature requests directly to the author at <"goyali at cpan.org">
SUPPORT
You can find documentation for this module with the perldoc command.
perldoc Payvment::Facebook::API
You can also email the author and rest assured of the reply
COPYRIGHT & LICENSE
Copyright 2011 "abhishek jain".
Licence This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
DESCRIPTION
This API lets one to list products and sell on facebook using the Payvment Facebook App.
At the moment these methods are implemented:
NOTE:
This module is provided as is, and is still underdevelopment, not suitable for Production use.
Virus free , Spam Free , Spyware Free Software and hopefully Money free software .
For more details on payvment visit http://www.payvment.com
AUTHOR
<Abhishek jain> goyali at cpan.org
SEE ALSO
http://www.ejain.com
http://www.payvment.com