1berry/webmin
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Allow port for FTP upload

Browse Source
This commit is contained in:
Jamie Cameron 2008-01-16 00:04:21 +00:00
parent d1a64b5dff
commit 36f87f8bf4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
web-lib-funcs.pl
View File

@ -1701,7 +1701,7 @@ if (!$connected) {
return 1; 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 # Upload data from a local file to an FTP site
sub ftp_upload sub ftp_upload
{ {
@ -1718,7 +1718,7 @@ local $SIG{ALRM} = "download_timeout";
alarm(60); alarm(60);
# connect to host and login # connect to host and login
&open_socket($_[0], 21, "SOCK", $_[3]) || return 0; &open_socket($_[0], $_[7] || 21, "SOCK", $_[3]) || return 0;
alarm(0); alarm(0);
if ($download_timed_out) { if ($download_timed_out) {
if ($_[3]) { ${$_[3]} = $download_timed_out; return 0; } if ($_[3]) { ${$_[3]} = $download_timed_out; return 0; }