X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=bin%2Fcdr-netsapiens.import;h=8aa4ac0b7544b18ab78f3257ce5da02408372a8a;hb=72deba42ac5847c2a6bdeea20157035b8f9df7ae;hp=80922556aaa57b415db9708bc35a3609a8b148e0;hpb=650c968bf1493c601dcf1b57d98ef0bdb1a2caa6;p=freeside.git diff --git a/bin/cdr-netsapiens.import b/bin/cdr-netsapiens.import index 80922556a..8aa4ac0b7 100755 --- a/bin/cdr-netsapiens.import +++ b/bin/cdr-netsapiens.import @@ -4,13 +4,14 @@ use strict; use vars qw( $DEBUG ); +use Date::Format; use REST::Client; -use FS::UID qw(adminsuidsetup); +use FS::UID qw(adminsuidsetup dbh); use FS::Record qw(qsearchs); use FS::part_export; use FS::cdr; -$DEBUG = 2; +$DEBUG = 1; my $user = shift or die &usage; adminsuidsetup $user; @@ -19,56 +20,85 @@ my $exportnum = shift or die &usage; my $part_export = qsearchs('part_export', { 'exportnum' => $exportnum } ) or die "unknown exportnum $exportnum\n"; -#find max time_release -#SELECT MAX( -#2009-02-19 20:17:37 -my $time_release = '2009-01-01 00:00:00'; +my $cdrbatch = 'NetSapiens import '. time2str('%Y-%m-%d %x', $^T); -#retreive CDRs >= this time -#XXX (in pages, this tops out at 20) _start=>0, _limit=>20 +my $cdrs = 0; -my $ns = $part_export->ns_command( 'GET', '/cdr/', - 'time_release' => '$time_release,', - '_sort' => '+time_release', - ); +do { -#loop over them, double check duplicates, insert the rest + #find max time_release + my $sth = dbh->prepare('SELECT MAX(enddate) FROM cdr') #XXX and imported from this netsapens switch + or die dbh->errstr; -my $content = $ns->responseContent; + $sth->execute or die $sth->errstr; + my $time_release = time2str('%Y-%m-%d %X', $sth->fetchrow_arrayref->[0]); + #retreive CDRs >= this time -#20090219201719000016@SkyNet360.Com -#