From 36f87f8bf4d4aa1ba2e5d6c69c235d31d9f90be5 Mon Sep 17 00:00:00 2001
From: Jamie Cameron <jcameron@webmin.com>
Date: Wed, 16 Jan 2008 00:04:21 +0000
Subject: [PATCH] Allow port for FTP upload

---
 web-lib-funcs.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/web-lib-funcs.pl b/web-lib-funcs.pl
index ddf3e7411..2952019b2 100755
--- a/web-lib-funcs.pl
+++ b/web-lib-funcs.pl
@@ -1701,7 +1701,7 @@ if (!$connected) {
 return 1;
 }
 
-# ftp_upload(host, file, srcfile, [&error], [&callback], [user, pass])
+# ftp_upload(host, file, srcfile, [&error], [&callback], [user, pass], [port])
 # Upload data from a local file to an FTP site
 sub ftp_upload
 {
@@ -1718,7 +1718,7 @@ local $SIG{ALRM} = "download_timeout";
 alarm(60);
 
 # connect to host and login
-&open_socket($_[0], 21, "SOCK", $_[3]) || return 0;
+&open_socket($_[0], $_[7] || 21, "SOCK", $_[3]) || return 0;
 alarm(0);
 if ($download_timed_out) {
 	if ($_[3]) { ${$_[3]} = $download_timed_out; return 0; }