View | Details | Raw Unified | Return to bug 19716
Collapse All | Expand All

(-)a/misc/cronjobs/runreport.pl (-1 / +11 lines)
Lines 66-71 runreport.pl [ -h | -m ] [ -v ] reportID [ reportID ... ] Link Here
66
   --from=s        e-mail address to send report from
66
   --from=s        e-mail address to send report from
67
   --subject=s     subject for the e-mail
67
   --subject=s     subject for the e-mail
68
   --store-results store the result of the report
68
   --store-results store the result of the report
69
   --csv-header    add column names as first line of csv output
69
70
70
71
71
 Arguments:
72
 Arguments:
Lines 175-180 my $subject = ""; Link Here
175
my $separator = ',';
176
my $separator = ',';
176
my $quote = '"';
177
my $quote = '"';
177
my $store_results = 0;
178
my $store_results = 0;
179
my $csv_header = 0;
178
180
179
my $username = undef;
181
my $username = undef;
180
my $password = undef;
182
my $password = undef;
Lines 194-199 GetOptions( Link Here
194
    'password:s'        => \$password,
196
    'password:s'        => \$password,
195
    'method:s'          => \$method,
197
    'method:s'          => \$method,
196
    'store-results'     => \$store_results,
198
    'store-results'     => \$store_results,
199
    'csv-header'        => \$csv_header,
197
200
198
) or pod2usage(2);
201
) or pod2usage(2);
199
pod2usage( -verbose => 2 ) if ($man);
202
pod2usage( -verbose => 2 ) if ($man);
Lines 273-278 foreach my $report_id (@ARGV) { Link Here
273
            quote_char  => $quote,
276
            quote_char  => $quote,
274
            sep_char    => $separator,
277
            sep_char    => $separator,
275
            });
278
            });
279
280
        if ( $csv_header ) {
281
            my $fields = $sth->{NAME};
282
            $csv->combine( @$fields );
283
            $message .= $csv->string() . "\n";
284
            push @rows_to_store, [@$fields] if $store_results;
285
        }
286
276
        while (my $line = $sth->fetchrow_arrayref) {
287
        while (my $line = $sth->fetchrow_arrayref) {
277
            $csv->combine(@$line);
288
            $csv->combine(@$line);
278
            $message .= $csv->string() . "\n";
289
            $message .= $csv->string() . "\n";
279
- 

Return to bug 19716