Hi,
Sorry, here is the full code:
#!/usr/bin/perl -w
# ==================================================================
# Test script for Stripe payments
use strict;
use lib '/srv/www/site.pro/www/cgi-bin/trust/admin';
use Links qw/$USER $IN $DB $CFG/;
use CGI::Carp qw(fatalsToBrowser);
use Links::SiteHTML;
use LWP::Simple;
use POSIX qw(ceil);
use JSON;
Links::init('/srv/www/site.pro/www/cgi-bin/trust/admin');
my $key = $CFG->{stripe_mode} eq "test" ? $CFG->{stripe_secret_test} :
+ $CFG->{stripe_secret_live};
print "KEY: $key ($CFG->{stripe_mode}) \n";
use Digest::MD5 qw(md5_hex);
use Net::Stripe;
my $stripe = Net::Stripe->new(
api_key => $CFG->{stripe_mode} eq "test" ? $CFG->{stripe_secre
+t_test} : $CFG->{stripe_secret_live},
debug => '1',
debug_network => '1'
);
print $IN->header;
use Data::Dumper;
print STDERR Dumper(customer => $USER->{stripe_customer_id}, limit
+ => 10);
my $cards = $stripe->get_cards(customer => 'cus_ALXYaoa9Lpo4Gs', l
+imit => 10);
print $IN->header;
use Data::Dumper;
print Dumper($cards);
Line 35 is:
my $cards = $stripe->get_cards(customer => 'cus_ALXYaoa9Lpo4Gs', limit => 10);
Thanks!
Andy | [reply] [Watch: Dir/Any] [d/l] [select] |