diff options
| author | Christopher Burger <burgerc@freeside.biz> | 2017-08-02 14:59:59 -0400 |
|---|---|---|
| committer | Christopher Burger <burgerc@freeside.biz> | 2017-08-02 14:59:59 -0400 |
| commit | 2c1dc1b870d4a01b3797797ac27640f0579c86c4 (patch) | |
| tree | 6f6214a914076c6a93c06c94a8ed54e9952a621e /FS | |
| parent | ab056fd6d2b7f86940b18713dc8428715058da5e (diff) | |
| parent | 95ad3a9ababb36a79c4425c54192659075819ca5 (diff) | |
Merge branch 'FREESIDE_4_BRANCH' of freeside.biz:/home/git/freeside into FREESIDE_4_BRANCH
Diffstat (limited to 'FS')
| -rwxr-xr-x | FS/bin/freeside-voipinnovations-cdrimport | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/FS/bin/freeside-voipinnovations-cdrimport b/FS/bin/freeside-voipinnovations-cdrimport index 23ea6bbdc..10c4bcacb 100755 --- 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 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; @@ -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"; +$ftp->starttls() + or die "TLS initialization failed: ". $ftp->message. "\n"; + $ftp->login($login, $password) - or die "Login failed: ".$ftp->message."\n"; + or die "Login failed: ". $ftp->message. "\n"; ### # get the file list |