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;
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
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.