X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=bin%2Fcdr-netsapiens.import;h=1cce461e28ae89017392b082f87d2643d0555b32;hb=7c0748c7e439cdbc14ced38c21e782f4669f9b15;hp=649ade62b8d4efef7c23f40c9715b4fd9aa4eccc;hpb=4637ede67752c7fc635bfb0c78c40458af218a72;p=freeside.git diff --git a/bin/cdr-netsapiens.import b/bin/cdr-netsapiens.import index 649ade62b..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; @@ -20,6 +20,8 @@ my $exportnum = shift or die &usage; my $part_export = qsearchs('part_export', { 'exportnum' => $exportnum } ) or die "unknown exportnum $exportnum\n"; +my $cdrbatch = 'NetSapiens import '. time2str('%Y-%m-%d %x', $^T); + my $cdrs = 0; do { @@ -29,15 +31,13 @@ do { or die dbh->errstr; $sth->execute or die $sth->errstr; - my $time_relase = time2str('%Y-%m-%d %x', $sth->fetchrow_arrayref->[0]); - #2009-02-19 20:17:37 - #my $time_release = '2009-01-01 00:00:00'; - + 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,', + '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 #