ViciDial/agc_2-X
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added comments to FTPSSL perl scripts for optional additional FTPSSL variable: "OverridePASV"

Browse Source 
git-svn-id: svn://192.168.202.10@3644 3d104415-ff17-0410-8863-d5cf3c621b8a
This commit is contained in:
mattf
2022-10-02 20:05:11 +00:00
parent 63cfedc189
commit 7c24326b92
3 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
bin/AST_CRON_audio_3_ftp_FTPSSL.pl
+3 -1
View File
@@ -52,12 +52,13 @@
#
# This program assumes that recordings are saved by Asterisk as .wav
#
# Copyright (C) 2020 Matt Florell <vicidial@gmail.com> LICENSE: AGPLv2
# Copyright (C) 2022 Matt Florell <vicidial@gmail.com> LICENSE: AGPLv2
#
#
# 180518-0732 - First Build based upon AST_CRON_audio_3_ftp.pl script
# 180616-2248 - Added --localdatedir option
# 200205-1716 - Added comments for TLS Session Resumption settings
# 221002-1602 - Added comments for optional additional FTPSSL variable: "OverridePASV"
#
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
@@ -523,6 +524,7 @@ foreach(@FILES)
{
# Some versions of the FTPSSL perl module require you to hard code the encryption value: IMP_CRYPT or EXP_CRYPT
# $ftps = Net::FTPSSL->new("$VARFTP_host", Port => $VARFTP_port, Encryption => $VARFTP_encrypt, Debug => $FTPdb);
# optional additional variable (, OverridePASV => "$VARFTP_host") which will force the passive FTP hostname
if ( $VARFTP_encrypt eq "IMP_CRYPT" )
{
$ftps = Net::FTPSSL->new("$VARFTP_host", Port => $VARFTP_port, Encryption => IMP_CRYPT, Debug => $FTPdb);
bin/AST_CRON_audio_4_ftp2_FTPSSL.pl
+3 -1
View File
@@ -39,13 +39,14 @@
#
# This program assumes that recordings are saved by Asterisk as .wav
#
# Copyright (C) 2020 Matt Florell <vicidial@gmail.com> LICENSE: AGPLv2
# Copyright (C) 2022 Matt Florell <vicidial@gmail.com> LICENSE: AGPLv2
#
# CHANGES:
# 130730-1849 - First Build based upon AST_CRON_audio_4_ftp2.pl script
# 161212-1650 - Changed to use hard-coded encryption flag for module
# 180516-2011 - Added --noping option
# 200205-1717 - Added comments for TLS Session Resumption settings
# 221002-1601 - Added comments for optional additional FTPSSL variable: "OverridePASV"
#
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
@@ -417,6 +418,7 @@ foreach(@FILES)
{
# Some versions of the FTPSSL perl module require you to hard code the encryption value: IMP_CRYPT or EXP_CRYPT
# $ftps = Net::FTPSSL->new("$VARFTP_host", Port => $VARFTP_port, Encryption => $VARFTP_encrypt, Debug => $FTPdb);
# optional additional variable (, OverridePASV => "$VARFTP_host") which will force the passive FTP hostname
if ( $VARFTP_encrypt eq "IMP_CRYPT" )
{
$ftps = Net::FTPSSL->new("$VARFTP_host", Port => $VARFTP_port, Encryption => IMP_CRYPT, Debug => $FTPdb);
bin/AST_email_web_reportFTPSSL.pl
+3 -1
View File
@@ -20,10 +20,11 @@
#
# MAKE SURE YOU TEST THAT THIS IS WORKING MANUALLY!!!
#
# Copyright (C) 2020 Matt Florell <vicidial@gmail.com> LICENSE: AGPLv2
# Copyright (C) 2022 Matt Florell <vicidial@gmail.com> LICENSE: AGPLv2
#
# CHANGES
# 200601-1047 - First version, based upon AST_email_web_report.pl
# 221002-1603 - Added comments for optional additional FTPSSL variable: "OverridePASV"
#
$txt = '.txt';
@@ -752,6 +753,7 @@ if (length($VARREPORT_host) > 7)
# Some versions of the FTPSSL perl module require you to hard code the encryption value: IMP_CRYPT or EXP_CRYPT
# $ftps = Net::FTPSSL->new("$VARREPORT_host", Port => $VARREPORT_port, Encryption => $VARFTP_encrypt, Debug => $FTPdb);
# optional additional variable (, OverridePASV => "$VARFTP_host") which will force the passive FTP hostname
if ( $VARFTP_encrypt eq "IMP_CRYPT" )
{
$ftps = Net::FTPSSL->new("$VARREPORT_host", Port => $VARREPORT_port, Encryption => IMP_CRYPT, Debug => $FTPdb);