use strict;
-use DBI;
+use FS::DBI;
use Date::Format 'time2str';
use Date::Parse 'str2time';
use Getopt::Long;
}
$enddate ||= time2str("%Y-%m-%d %H:%M:%S",$now);
-my $cdbh = DBI->connect("dbi:Pg:database=$db;host=$host", $username, $password)
- or die $DBI::errstr;
+my $cdbh = FS::DBI->connect("dbi:Pg:database=$db;host=$host", $username, $password)
+ or die $FS::DBI::errstr;
# selecting by end_time rather than start_time
# so we don't lose records between batches
'cdrbatchnum' => $cdr_batch->cdrbatchnum,
'uniqueid' => $row->{'id'},
'src' => $row->{'src'},
- 'dst' => $row->{'dest'},
+ 'dst' => $row->{'routing_target'} || $row->{'dest'}, # dest_orig? dest_trans?
'startdate' => int(str2time($row->{'start_time'})),
'answerdate' => int(str2time($row->{'answer_time'})),
'enddate' => int(str2time($row->{'end_time'})),