Attachment 158208 Details for Bug 33050 – Bug 33050: Perltidy

[patch] Bug 33050: Perltidy

Bug-33050-Perltidy.patch (text/plain), 3.01 KB, created by Katrin Fischer on 2023-11-01 18:42:01 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Katrin Fischer

Created: 2023-11-01 18:42:01 UTC

Size: 3.01 KB

patch

obsolete

>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

Actions: View | Diff | Splinter Review

Attachments on bug 33050: 147187 | 147188 | 152499 | 156133 | 158207 | 158208