diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2017-08-02 11:55:49 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2017-08-02 11:55:49 -0700 |
| commit | 57290f5ec7acdfd413cbd6c24026ce153efd9f14 (patch) | |
| tree | e199a006fb1a4dc1d285d50a7797d54015a980d5 | |
| parent | 47ceec17a0b069a16686c93eca4bd227fc045625 (diff) | |
VoIP innovations CDR import using SSL, RT#76784
| -rw-r--r-- | FS/bin/freeside-voipinnovations-cdrimport | 8 | ||||
| -rw-r--r-- | debian/control | 5 |
2 files changed, 9 insertions, 4 deletions
diff --git a/FS/bin/freeside-voipinnovations-cdrimport b/FS/bin/freeside-voipinnovations-cdrimport index 23ea6bbdc..10c4bcacb 100644 --- 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 diff --git a/debian/control b/debian/control index 4c9d771a7..c4144e1fb 100644 --- a/debian/control +++ b/debian/control @@ -88,8 +88,9 @@ Depends: aspell-en,gnupg,ghostscript,gsfonts,gzip,latex-xcolor, libparams-classify-perl (>= 0.013-5.1), libarchive-zip-perl, libtry-tiny-perl, libnumber-phone-perl, libxml-libxml-simple-perl, libxml-writer-perl, libio-socket-ssl-perl, - libmap-splat-perl, - libdatetime-format-ical-perl + libmap-splat-perl, libdatetime-format-ical-perl, librest-client-perl, + libbusiness-onlinepayment-perl, + libnet-vitelity-perl (>= 0.05), libnet-sslglue-perl Suggests: libbusiness-onlinepayment-perl Description: Libraries for Freeside billing and trouble ticketing Freeside is a web-based billing and trouble ticketing application. |