=pod
-cdr-vitelity.import [ -v ] [ -k ] [ -r ]
- [ -s date ] [ -e date ]
+cdr-vitelity.import [ -v ] [ -k ]
+ -s date -e date
username
[ exportnum ]
-k: Keep the .csv file for debugging purposes, instead of deleting it.
--r: Reset the CDR counter before fetching. This will download previously
-imported CDRs.
+-s date: Import only records on or after 'date' Now required as the Vitelity
+API has changed.
--s date: Import only records on or after 'date'. If not specified, the
-script will import the entire history (if -r is specified) or everything
-since the last import (if not). Note that the API request doesn't have any
-limits, so the entire data file will be downloaded regardless, but parsing
-and importing the records is considerably slower than downloading them.
-
--e date: Import only records before 'date'. See above.
+-e date: Import only records before 'date'. Now required as the Vitelity API
+has changed.
username: a Freeside user
use Date::Parse 'str2time';
my %opt;
-getopts('vrkas:e:', \%opt);
+getopts('vks:e:', \%opt);
my $user = shift or die &usage;
my $exportnum = shift;
my $dbh = adminsuidsetup $user;
+
+my $start = $opt{'s'} ? str2time($opt{'s'}) : die &usage('-s is now required');
+my $end = $opt{'e'} ? str2time($opt{'e'}) : die &usage('-e is now required');
+
local $FS::UID::AutoCommit = 0;
my @part_exports;
$export->isa('FS::part_export::vitelity')
or die "exportnum $exportnum is not a Vitelity export\n";
- if ( $opt{'r'} ) {
- my $result = $export->vitelity_command('resetcdrlist');
- if ( $result ne 'ok' ) {
- $dbh->rollback;
- die "Failed to reset CDR list: $result\n";
- }
- }
-
my $dir = $FS::UID::cache_dir . "/cache.". $FS::UID::datasrc;
my $temp = new File::Temp ( TEMPLATE => 'download.XXXXXXXX',
SUFFIX => '.csv',
print "Downloading to ".$temp->filename."\n" if $opt{'v'};
print "Sending API request..." if $opt{'v'};
- my @records = eval { $export->vitelity_command('cdrlist') };
+
+ my $s = time2str('%m-%d-%Y', $start);
+ my $e = time2str('%m-%d-%Y', $end);
+
+ my @records = eval { $export->vitelity_command('getcdr',
+ 'startdate' => $s,
+ 'enddate' => $e,
+ );
+ };
if ( $@ ) {
print "download error: $@\n";
exit(-1);
}
+
print "received ".scalar(@records)." records\n" if $opt{'v'};
if ( !@records ) {
print "No records to process.\n" if $opt{'v'};
print $temp "Date,Source,Destination,Seconds,CallerID,Disposition,Cost\n";
- my $regex = qr/^(\d{4})-(\d{2})-(\d{2})/;
- my $start = $opt{'s'} ? str2time($opt{'s'}) : '';
- my $s = time2str('%Y-%m-%d', $start) if $start;
- my $end = $opt{'e'} ? str2time($opt{'e'}) : '';
- my $e = time2str('%Y-%m-%d', $end) if $end;
- my $count = 0;
while (my $rec = shift @records) {
- my $date = substr($rec, 0, 10);
- next if ($start and $s gt $date);
- next if ($end and $e le $date);
print $temp $rec, "\n";
- $count++;
}
close $temp;
- print "Selected $count records in date range." if $opt{'v'} and ($s or $e);
my $format = 'vitelity';
my $batchname = "vitelity-$exportnum-".time2str('%Y/%m/%d-%T',time);
exit(0);
sub usage {
-"Usage:
-cdr-vitelity.import [ -v ] [ -k ] [ -r ]
- [ -s date ] [ -e date ]
+ my $err = @_ ? shift."\n\n" : '';
+$err."Usage:
+cdr-vitelity.import [ -v ] [ -k ]
+ -s date -e date
username
[ exportnum ]
-"
+";
}