#!/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);
[download]