#!/usr/bin/perl # # */5 * * * /home/ivan/freeside/bin/cdr-netsapiens.import ivan exportnum use strict; use vars qw( $DEBUG ); use Date::Format; use REST::Client; use FS::UID qw(adminsuidsetup dbh); use FS::Record qw(qsearchs); use FS::part_export; use FS::cdr; $DEBUG = 2; my $user = shift or die &usage; adminsuidsetup $user; my $exportnum = shift or die &usage; my $part_export = qsearchs('part_export', { 'exportnum' => $exportnum } ) or die "unknown exportnum $exportnum\n"; my $cdrs = 0; do { #find max time_release my $sth = dbh->prepare('SELECT MAX(enddate) FROM cdr') #XXX and imported from this netsapens switch 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'; #retreive CDRs >= this time my $ns = $part_export->ns_command( 'GET', '/cdr/', 'time_release' => '$time_release,', '_sort' => '+time_release', ); #loop over them, double check duplicates, insert the rest my $content = $ns->responseContent; $cdrs = 0; #20090219201719000016@SkyNet360.Com #