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

(-)a/misc/cronjobs/runreport.pl (-1 / +10 lines)
Lines 183-188 my $separator = ','; Link Here
183
my $quote = '"';
183
my $quote = '"';
184
my $store_results = 0;
184
my $store_results = 0;
185
my $csv_header = 0;
185
my $csv_header = 0;
186
my $csv_separator = "";
186
187
187
my $username = undef;
188
my $username = undef;
188
my $password = undef;
189
my $password = undef;
Lines 195-200 GetOptions( Link Here
195
    'man'               => \$man,
196
    'man'               => \$man,
196
    'verbose'           => \$verbose,
197
    'verbose'           => \$verbose,
197
    'format=s'          => \$format,
198
    'format=s'          => \$format,
199
    'separator=s'       => \$csv_separator,
198
    'to=s'              => \$to,
200
    'to=s'              => \$to,
199
    'from=s'            => \$from,
201
    'from=s'            => \$from,
200
    'subject=s'         => \$subject,
202
    'subject=s'         => \$subject,
Lines 219-224 unless ($format) { Link Here
219
    $format = 'text';
221
    $format = 'text';
220
}
222
}
221
223
224
if( $csv_separator ){
225
    if( $format eq 'csv' ) {
226
        $separator = "$csv_separator";
227
    } else {
228
        print STDERR "Cannot specify separator if not using CSV format\n";
229
    }
230
}
231
222
if ($format eq 'tsv' || $format eq 'text') {
232
if ($format eq 'tsv' || $format eq 'text') {
223
    $format = 'csv';
233
    $format = 'csv';
224
    $separator = "\t";
234
    $separator = "\t";
225
- 

Return to bug 33285