Added ftp-port CLI option to AST_CRON 3 and 4 scripts

Added generic Contact Center images to extras

git-svn-id: svn://192.168.202.10@1916 3d104415-ff17-0410-8863-d5cf3c621b8a

bin/AST_CRON_audio_3_ftp.pl

@@ -32,7 +32,7 @@
 # 
 # This program assumes that recordings are saved by Asterisk as .wav
 # 
-# Copyright (C) 2011  Matt Florell <vicidial@gmail.com>    LICENSE: AGPLv2
+# Copyright (C) 2013  Matt Florell <vicidial@gmail.com>    LICENSE: AGPLv2
 #
 # 
 # 80302-1958 - First Build
@@ -47,6 +47,7 @@
 # 110524-1049 - Added run-check concurrency check option
 # 111128-1615 - Added Ftp persistence option
 # 111130-1751 - Added Ftp validate option
+# 130116-1536 - Added ftp port CLI flag
 #
 
 ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
@@ -102,6 +103,7 @@ if (length($ARGV[0])>1)
 		print "  [--nodatedir] = do not put into dated directories\n";
 		print "  [--run-check] = concurrency check, die if another instance is running\n";
 		print "  [--ftp-server=XXX] = FTP server\n";
+		print "  [--ftp-port=XXX] = FTP server port\n";
 		print "  [--ftp-login=XXX] = FTP server login account\n";
 		print "  [--ftp-pass=XXX] = FTP server password\n";
 		print "  [--ftp-dir=XXX] = FTP server directory\n";
@@ -197,6 +199,15 @@ if (length($ARGV[0])>1)
 			if ($DB > 0) 
 				{print "\n----- FTP SERVER: $VARFTP_host -----\n\n";}
 			}
+		if ($args =~ /--ftp-port=/i)
+			{
+			my @data_in = split(/--ftp-port=/,$args);
+			$VARFTP_port = $data_in[1];
+			$VARFTP_port =~ s/ .*//gi;
+			$CLIFTP_port=1;
+			if ($DB > 0)
+				{print "\n----- FTP PORT: $VARFTP_port -----\n\n";}
+			}
 		if ($args =~ /--ftp-login=/i) 
 			{
 			my @data_in = split(/--ftp-login=/,$args);

bin/AST_CRON_audio_4_ftp2.pl

@@ -26,13 +26,14 @@
 # 
 # This program assumes that recordings are saved by Asterisk as .wav
 # 
-# Copyright (C) 2011  Matt Florell <vicidial@gmail.com>    LICENSE: AGPLv2
+# Copyright (C) 2013  Matt Florell <vicidial@gmail.com>    LICENSE: AGPLv2
 #
 # 
 # 91123-0005 - First Build
 # 110524-1052 - Added run-check concurrency check option
 # 111128-1617 - Added Ftp persistence option
 # 111130-1801 - Added Ftp validate option
+# 130116-1536 - Added ftp port CLI flag
 #
 
 ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
@@ -83,6 +84,7 @@ if (length($ARGV[0])>1)
 		print "  [--debugX] = super debug\n";
 		print "  [--nodatedir] = do not put into dated directories\n\n";
 		print "  [--ftp-server=XXX] = FTP server\n";
+		print "  [--ftp-port=XXX] = FTP server port\n";
 		print "  [--ftp-login=XXX] = FTP server login account\n";
 		print "  [--ftp-pass=XXX] = FTP server password\n";
 		print "  [--ftp-dir=XXX] = FTP server directory\n";
@@ -141,6 +143,15 @@ if (length($ARGV[0])>1)
 			if ($DB > 0) 
 				{print "\n----- FTP SERVER: $VARFTP_host -----\n\n";}
 			}
+		if ($args =~ /--ftp-port=/i)
+			{
+			my @data_in = split(/--ftp-port=/,$args);
+			$VARFTP_port = $data_in[1];
+			$VARFTP_port =~ s/ .*//gi;
+			$CLIFTP_port=1;
+			if ($DB > 0)
+				{print "\n----- FTP PORT: $VARFTP_port -----\n\n";}
+			}
 		if ($args =~ /--ftp-login=/i) 
 			{
 			my @data_in = split(/--ftp-login=/,$args);