1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
#!/usr/bin/perl
use strict;
use Date::Format 'time2str';
use Date::Parse 'str2time';
use Getopt::Long;
use Cpanel::JSON::XS;
use Net::HTTPS::Any qw(https_post https_get);
use Time::Local;
use FS::Record qw(qsearchs dbh);
use FS::UID qw(adminsuidsetup);
use FS::cdr;
use FS::cdr_batch;
my $host = "cdr.teleapi.net";
my @now = localtime();
my $now = timelocal($now[0],$now[1],$now[2],$now[3],$now[4],$now[5]); #most recent midnight
sub usage {
"Usage:
freeside-cdr-telapi-import -t type -p token -s startdate [-e enddate] freesideuser
Downloads any existing CDR voip files or CDR SMS files (type) from the start date untill the enddate and
imports those records.";
}
my ($type,$token,$startdate,$enddate);
GetOptions(
"type=s" => \$type,
"token=s" => \$token,
"startdate=s" => \$startdate,
"enddate=s" => \$enddate,
);
$startdate = str2time($startdate) or die "can't parse start date $startdate\n";
$startdate = time2str('%m-%d-%Y', $startdate);
$enddate = str2time($enddate) or die "can't parse start date $enddate\n";
$enddate = time2str('%m-%d-%Y', $enddate);
my $fsuser = $ARGV[-1];
die usage() unless $fsuser;
adminsuidsetup($fsuser);
my ( $page, $response, %reply_headers )= https_get(
'host' => $host,
'port' => '443',
'path' => '/'.$type.'/'.$startdate.'/'.$enddate.'?token='.$token,
);
die "Bad response from telapi server: $response"
unless $response =~ /^200/;
my $cdrbatch = "Telapi-import-" . $type . "-" . time2str('%Y/%m/%d-%T',$now);
my $dir = $FS::UID::cache_dir. "/cache.". $FS::UID::datasrc;
my $cfh = new File::Temp( TEMPLATE => 'telapi.XXXXXXXX',
SUFFIX => '.csv',
DIR => $dir,
)
or die "can't open temporary file to save data: $!\n";
#print returned data to file handle for temp file.
print $cfh $page;
seek($cfh,0,0);
warn "Importing batch $cdrbatch\n";
my $error = FS::cdr::batch_import({
'batch_namevalue' => $cdrbatch,
'file' => $cfh->filename,
'format' => 'telapi_'.$type
});
warn "Error importing CDR's\n".$error if $error;
exit;
|
