From 059166a18d20b9b891028e259d45200c11000531 Mon Sep 17 00:00:00 2001 From: mattf Date: Sun, 2 Oct 2022 20:05:11 +0000 Subject: [PATCH] Added comments to FTPSSL perl scripts for optional additional FTPSSL variable: "OverridePASV" git-svn-id: svn://192.168.202.10@3644 3d104415-ff17-0410-8863-d5cf3c621b8a --- agc_2-X/trunk/bin/AST_CRON_audio_3_ftp_FTPSSL.pl | 4 +++- agc_2-X/trunk/bin/AST_CRON_audio_4_ftp2_FTPSSL.pl | 4 +++- agc_2-X/trunk/bin/AST_email_web_reportFTPSSL.pl | 4 +++- 3 files changed, 9 insertions(+), 3 deletions(-) diff --git a/agc_2-X/trunk/bin/AST_CRON_audio_3_ftp_FTPSSL.pl b/agc_2-X/trunk/bin/AST_CRON_audio_3_ftp_FTPSSL.pl index bd1032e5..562d5fc9 100644 --- a/agc_2-X/trunk/bin/AST_CRON_audio_3_ftp_FTPSSL.pl +++ b/agc_2-X/trunk/bin/AST_CRON_audio_3_ftp_FTPSSL.pl @@ -52,12 +52,13 @@ # # This program assumes that recordings are saved by Asterisk as .wav # -# Copyright (C) 2020 Matt Florell LICENSE: AGPLv2 +# Copyright (C) 2022 Matt Florell 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); diff --git a/agc_2-X/trunk/bin/AST_CRON_audio_4_ftp2_FTPSSL.pl b/agc_2-X/trunk/bin/AST_CRON_audio_4_ftp2_FTPSSL.pl index e9553e4c..58d4027a 100644 --- a/agc_2-X/trunk/bin/AST_CRON_audio_4_ftp2_FTPSSL.pl +++ b/agc_2-X/trunk/bin/AST_CRON_audio_4_ftp2_FTPSSL.pl @@ -39,13 +39,14 @@ # # This program assumes that recordings are saved by Asterisk as .wav # -# Copyright (C) 2020 Matt Florell LICENSE: AGPLv2 +# Copyright (C) 2022 Matt Florell 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); diff --git a/agc_2-X/trunk/bin/AST_email_web_reportFTPSSL.pl b/agc_2-X/trunk/bin/AST_email_web_reportFTPSSL.pl index c2ac4b45..3573d2a6 100644 --- a/agc_2-X/trunk/bin/AST_email_web_reportFTPSSL.pl +++ b/agc_2-X/trunk/bin/AST_email_web_reportFTPSSL.pl @@ -20,10 +20,11 @@ # # MAKE SURE YOU TEST THAT THIS IS WORKING MANUALLY!!! # -# Copyright (C) 2020 Matt Florell LICENSE: AGPLv2 +# Copyright (C) 2022 Matt Florell 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);