|
Lines 308-313
foreach my $report_id (@ARGV) {
Link Here
|
| 308 |
$message .= $csv->string() . "\n"; |
308 |
$message .= $csv->string() . "\n"; |
| 309 |
push @rows_to_store, [@$line] if $store_results; |
309 |
push @rows_to_store, [@$line] if $store_results; |
| 310 |
} |
310 |
} |
|
|
311 |
$message = Encode::decode_utf8($message); |
| 311 |
} |
312 |
} |
| 312 |
if ( $store_results ) { |
313 |
if ( $store_results ) { |
| 313 |
my $json = to_json( \@rows_to_store ); |
314 |
my $json = to_json( \@rows_to_store ); |
|
Lines 332-338
foreach my $report_id (@ARGV) {
Link Here
|
| 332 |
} |
333 |
} |
| 333 |
|
334 |
|
| 334 |
$email->attach( |
335 |
$email->attach( |
| 335 |
encode( 'utf8', $message ), |
336 |
Encode::encode_utf8($message), |
| 336 |
content_type => "text/$format", |
337 |
content_type => "text/$format", |
| 337 |
name => "report$report_id-$date.$format", |
338 |
name => "report$report_id-$date.$format", |
| 338 |
disposition => 'attachment', |
339 |
disposition => 'attachment', |
| 339 |
- |
|
|