X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=bin%2Fcdr-netsapiens.import;h=1cce461e28ae89017392b082f87d2643d0555b32;hb=e92c3b71a6182bdca0831ca4755ae0127e7e5180;hp=b3ad5b2e7ec374cd869cef5669110acf92a7db93;hpb=16860a8636119031f5b852a67c74e73c40718721;p=freeside.git diff --git a/bin/cdr-netsapiens.import b/bin/cdr-netsapiens.import index b3ad5b2e7..1cce461e2 100755 --- a/bin/cdr-netsapiens.import +++ b/bin/cdr-netsapiens.import @@ -11,7 +11,7 @@ use FS::Record qw(qsearchs); use FS::part_export; use FS::cdr; -$DEBUG = 2; +$DEBUG = 1; my $user = shift or die &usage; adminsuidsetup $user; @@ -31,13 +31,13 @@ do { or die dbh->errstr; $sth->execute or die $sth->errstr; - my $time_release = time2str('%Y-%m-%d %x', $sth->fetchrow_arrayref->[0]); - + my $time_release = time2str('%Y-%m-%d %X', $sth->fetchrow_arrayref->[0]); #retreive CDRs >= this time my $ns = $part_export->ns_command( 'GET', '/cdr/', 'time_release' => "$time_release,", '_sort' => '+time_release', + '_limit' => '500', ); #loop over them, double check duplicates, insert the rest @@ -49,11 +49,23 @@ do { #20090219201719000016@SkyNet360.Com #