projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Net::SSLglue never worked, need deb9 Net::FTP for this to work
[freeside.git]
/
FS
/
bin
/
freeside-voipinnovations-cdrimport
diff --git
a/FS/bin/freeside-voipinnovations-cdrimport
b/FS/bin/freeside-voipinnovations-cdrimport
index
10c4bca
..
5eb2aef
100644
(file)
--- a/
FS/bin/freeside-voipinnovations-cdrimport
+++ b/
FS/bin/freeside-voipinnovations-cdrimport
@@
-4,8
+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::
SSLGlue::FTP; #at least until the Deb 9 transition is done, then
- # regular Net::FTP has SSL support
+use Net::
FTP 2.80; #3.08; 2.79 in deb 8 doesn't work, 3.08 in deb 9 does
+use IO::Socket::SSL 2.007;
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;
@@
-40,7
+40,7
@@
my $tempdir = tempdir( CLEANUP => !$opt_v );
my $format = 'voip_innovations';
my $hostname = 'customercdr.voipinnovations.com';
my $format = 'voip_innovations';
my $hostname = 'customercdr.voipinnovations.com';
-my $ftp = Net::FTP->new($hostname, Debug => $opt_d)
+my $ftp = Net::FTP->new($hostname,
Passive => 1,
Debug => $opt_d)
or die "Can't connect to $hostname: $@\n";
$ftp->starttls()
or die "Can't connect to $hostname: $@\n";
$ftp->starttls()
@@
-55,7
+55,7
@@
$ftp->login($login, $password)
warn "Retrieving directory listing\n" if $opt_v;
warn "Retrieving directory listing\n" if $opt_v;
-$ftp->cwd('/');
+
#
$ftp->cwd('/');
my @dirs = $ftp->ls();
warn scalar(@dirs)." directories found.\n" if $opt_v;
# apply date range
my @dirs = $ftp->ls();
warn scalar(@dirs)." directories found.\n" if $opt_v;
# apply date range