upcase protocol name

1 files changed, 3 insertions, 3 deletions

diff --git a/ftp_wizard/Proftpd.pm b/ftp_wizard/Proftpd.pm
index 5c6825f1..5ca4753d 100755
--- a/ftp_wizard/Proftpd.pm
+++ b/ftp_wizard/Proftpd.pm
@@ -85,7 +85,7 @@ $o->{pages} = {
 			  next => 'options'
 	      },
 	       options => {
-			   name => N("FTP Proftpd server options") . "\n\n" . N("Permit root login: allow root to log on ftp server.") . "\n" . N("Admin Email: email address of FTP administrator.") . "\n" . N("Chroot Home user: the users will only see their home directory.") . "\n\n" . N("Allow FTP resume: allow resume upload or download on ftp server.") . "\n" . N("Allow FXP: allow file transfert via other ftp."),
+			   name => N("FTP Proftpd server options") . "\n\n" . N("Permit root login: allow root to log on FTP server.") . "\n" . N("Admin Email: email address of FTP administrator.") . "\n" . N("Chroot Home user: the users will only see their home directory.") . "\n\n" . N("Allow FTP resume: allow resume upload or download on FTP server.") . "\n" . N("Allow FXP: allow file transfert via other FTP."),
 			   pre => sub {
 			     $o->{var}{wiz_root_login} ||= 0;
 			     $o->{var}{wiz_default_root} ||= 1;
@@ -182,7 +182,7 @@ sub check_dir {
 
 sub get_dir {
     my $file = "/etc/proftpd.conf";
-    die "no ftp configuration file found ! warning." if !-f $file;
+    die "no FTP configuration file found ! warning." if !-f $file;
     local *NEW;
     open(NEW, "< $file") or die "error while opening $file: $!";
 
@@ -248,7 +248,7 @@ sub do_it {
     my $wiz_ftp_internal = $o->{var}{wiz_ftp_external} ? 1 : true $o->{var}{wiz_ftp_internal};
     my $wiz_ftp_external = true $o->{var}{wiz_ftp_external};
     my $file = "/etc/proftpd.conf";
-    die "no ftp configuration file found ! warning." if !-f $file;
+    die "no FTP configuration file found ! warning." if !-f $file;
     MDK::Common::cp_af($file, $file . ".orig");
     my $allow;
     if ($wiz_ftp_internal && !$wiz_ftp_external) {