projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
VoIP innovations CDR import using SSL, RT#76784
[freeside.git]
/
FS
/
bin
/
freeside-voipinnovations-cdrimport
diff --git
a/FS/bin/freeside-voipinnovations-cdrimport
b/FS/bin/freeside-voipinnovations-cdrimport
index
23ea6bb
..
10c4bca
100755
(executable)
--- a/
FS/bin/freeside-voipinnovations-cdrimport
+++ b/
FS/bin/freeside-voipinnovations-cdrimport
@@
-4,7
+4,8
@@
use strict;
use Getopt::Std;
use Date::Format;
use File::Temp 'tempdir';
use Getopt::Std;
use Date::Format;
use File::Temp 'tempdir';
-use Net::FTP;
+use Net::SSLGlue::FTP; #at least until the Deb 9 transition is done, then
+ # regular Net::FTP has SSL support
use FS::UID qw(adminsuidsetup datasrc dbh);
use FS::cdr;
use FS::cdr_batch;
use FS::UID qw(adminsuidsetup datasrc dbh);
use FS::cdr;
use FS::cdr_batch;
@@
-42,8
+43,11
@@
my $hostname = 'customercdr.voipinnovations.com';
my $ftp = Net::FTP->new($hostname, Debug => $opt_d)
or die "Can't connect to $hostname: $@\n";
my $ftp = Net::FTP->new($hostname, Debug => $opt_d)
or die "Can't connect to $hostname: $@\n";
+$ftp->starttls()
+ or die "TLS initialization failed: ". $ftp->message. "\n";
+
$ftp->login($login, $password)
$ftp->login($login, $password)
- or die "Login failed: ".
$ftp->message.
"\n";
+ or die "Login failed: ".
$ftp->message.
"\n";
###
# get the file list
###
# get the file list