From fe3fc2cf4ab6e4d39aaaef604b43891f6347fad5 Mon Sep 17 00:00:00 2001 From: Kyle M Hall Date: Fri, 27 Sep 2024 16:15:21 -0400 Subject: [PATCH] Bug 36766: (QA follow-up) Add single dash paramter options Signed-off-by: Kyle M Hall Signed-off-by: Katrin Fischer --- misc/cronjobs/sftp_file.pl | 38 +++++++++++++++++++------------------- 1 file changed, 19 insertions(+), 19 deletions(-) diff --git a/misc/cronjobs/sftp_file.pl b/misc/cronjobs/sftp_file.pl index 85208a8db9..f01cba8789 100755 --- a/misc/cronjobs/sftp_file.pl +++ b/misc/cronjobs/sftp_file.pl @@ -32,19 +32,19 @@ sftp_file.pl - SFTP a file to a remote server =head1 SYNOPSIS -sftp_file.pl [ -h | -m ] [ -v ] host user pass upload_dir port file email +sftp_file.pl [ --help | --man ] [ -v ] -h host -u user -p pass -d upload_dir --port port -f file -e email Options: - -h --help brief help message + --help brief help message -m --man full documentation, same as --help --verbose -v --verbose verbose output - --host SFTP host to upload to - --user SFTP user - --pass SFTP password - --upload_dir Directory on SFTP host to upload to - --port SFTP upload port to use - falls back to port 22 - --file File to SFTP to host - --email Email address to receive confirmation of SFTP upload success or failure + -h --host SFTP host to upload to + -u --user SFTP user + -p --pass SFTP password + -u --upload_dir Directory on SFTP host to upload to + -P --port SFTP upload port to use - falls back to port 22 + -f --file File to SFTP to host + -e --email Email address to receive confirmation of SFTP upload success or failure =head1 OPTIONS @@ -129,16 +129,16 @@ my $sftp_status = undef; my $command_line_options = join( " ", @ARGV ); GetOptions( - 'help|?' => \$help, - 'man' => \$man, - 'verbose' => \$verbose, - 'host=s' => \$host, - 'user=s' => \$user, - 'pass=s' => \$pass, - 'upload_dir=s' => \$upload_dir, - 'port=s' => \$port, - 'file=s' => \$file, - 'email=s' => \$email, + 'help|?' => \$help, + 'm|man' => \$man, + 'v|verbose' => \$verbose, + 'h|host=s' => \$host, + 'u|user=s' => \$user, + 'p|pass=s' => \$pass, + 'd|upload_dir=s' => \$upload_dir, + 'port=s' => \$port, + 'f|file=s' => \$file, + 'e|email=s' => \$email, ) or pod2usage(2); pod2usage( -verbose => 2 ) if ($man); pod2usage( -verbose => 2 ) if ( $help and $verbose ); -- 2.39.5