Show TLS FTP errors

diff --git a/status/ftp-monitor.pl b/status/ftp-monitor.pl
index e7733f1..f1a78ca 100644 (file)
--- a/status/ftp-monitor.pl
+++ b/status/ftp-monitor.pl
@@ -36,7 +36,7 @@ eval {
                                     "root\@".&get_system_hostname());
                        }
                if (!$ok) {
-                       $error = $text{'ftp_elogin'};
+                       $error = &text('ftp_elogin', $ftps->last_message);
                        return 0;
                        }
 
@@ -44,7 +44,7 @@ eval {
                if ($_[0]->{'file'}) {
                        $ok = $ftps->get($_[0]->{'file'}, $temp);
                        if (!$ok) {
-                               $error = $text{'ftp_efile'};
+                               $error = &text('ftp_efile',$ftps->last_message);
                                return 0;
                                }
                        }

diff --git a/status/lang/en b/status/lang/en
index 30ab512..d60d26f 100644 (file)
--- a/status/lang/en
+++ b/status/lang/en
@@ -386,8 +386,8 @@ ftp_tls=Use TLS encryption?
 ftp_etls=TLS cannot be enabled unless the $1 Perl module is installed
 ftp_econn=TLS FTP connection failed
 ftp_econn2=TLS FTP connection failed : $1
-ftp_elogin=TLS FTP login failed
-ftp_efile=TLS FTP download failed
+ftp_elogin=TLS FTP login failed : $1
+ftp_efile=TLS FTP download failed : $1
 
 query_driver=SQL database type
 query_db=Database name