From 07e8223b5b50d0e2fe38c8640ce28a847024f579 Mon Sep 17 00:00:00 2001
From: Katrin Fischer <katrin.fischer.83@web.de>
Date: Wed, 1 Nov 2023 18:41:07 +0000
Subject: [PATCH] Bug 33050: Perltidy

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
---
 misc/cronjobs/runreport.pl | 65 +++++++++++++++++++-------------------
 1 file changed, 33 insertions(+), 32 deletions(-)

diff --git a/misc/cronjobs/runreport.pl b/misc/cronjobs/runreport.pl
index 771fc3f305..667802662a 100755
--- a/misc/cronjobs/runreport.pl
+++ b/misc/cronjobs/runreport.pl
@@ -180,22 +180,22 @@ binmode STDOUT, ":encoding(UTF-8)";
 # These variables can be set by command line options,
 # initially set to default values.
 
-my $help    = 0;
-my $man     = 0;
-my $verbose = 0;
-my $send_email = 0;
-my $attachment = 0;
-my $format  = "text";
-my $to      = "";
-my $from    = "";
-my $subject = "";
-my @params = ();
-my $separator = ',';
-my $quote = '"';
+my $help          = 0;
+my $man           = 0;
+my $verbose       = 0;
+my $send_email    = 0;
+my $attachment    = 0;
+my $format        = "text";
+my $to            = "";
+my $from          = "";
+my $subject       = "";
+my @params        = ();
+my $separator     = ',';
+my $quote         = '"';
 my $store_results = 0;
-my $csv_header = 0;
+my $csv_header    = 0;
 my $csv_separator = "";
-my $csv_quote = "";
+my $csv_quote     = "";
 
 my $username = undef;
 my $password = undef;
@@ -204,29 +204,30 @@ my $method = 'LOGIN';
 my $command_line_options = join(" ",@ARGV);
 
 GetOptions(
-    'help|?'            => \$help,
-    'man'               => \$man,
-    'verbose'           => \$verbose,
-    'format=s'          => \$format,
-    'separator=s'       => \$csv_separator,
-    'quote=s'           => \$csv_quote,
-    'to=s'              => \$to,
-    'from=s'            => \$from,
-    'subject=s'         => \$subject,
-    'param=s'           => \@params,
-    'email'             => \$send_email,
-    'a|attachment'      => \$attachment,
-    'username:s'        => \$username,
-    'password:s'        => \$password,
-    'method:s'          => \$method,
-    'store-results'     => \$store_results,
-    'csv-header'        => \$csv_header,
+    'help|?'        => \$help,
+    'man'           => \$man,
+    'verbose'       => \$verbose,
+    'format=s'      => \$format,
+    'separator=s'   => \$csv_separator,
+    'quote=s'       => \$csv_quote,
+    'to=s'          => \$to,
+    'from=s'        => \$from,
+    'subject=s'     => \$subject,
+    'param=s'       => \@params,
+    'email'         => \$send_email,
+    'a|attachment'  => \$attachment,
+    'username:s'    => \$username,
+    'password:s'    => \$password,
+    'method:s'      => \$method,
+    'store-results' => \$store_results,
+    'csv-header'    => \$csv_header,
 
 ) or pod2usage(2);
 pod2usage( -verbose => 2 ) if ($man);
-pod2usage( -verbose => 2 ) if ($help and $verbose);
+pod2usage( -verbose => 2 ) if ( $help and $verbose );
 pod2usage(1) if $help;
 
+
 cronlogaction({ info => $command_line_options });
 
 unless ($format) {
-- 
2.30.2