| Line 188... |
Line 188... |
| 188 |
my $saveMailTo = $$configuration{'sendReport'}->{'mailTo'};
|
188 |
my $saveMailTo = $$configuration{'sendReport'}->{'mailTo'};
|
| 189 |
my $saveSubject = $$configuration{'sendReport'}->{'mailSubject'};
|
189 |
my $saveSubject = $$configuration{'sendReport'}->{'mailSubject'};
|
| 190 |
|
190 |
|
| 191 |
$results = $dbh->selectall_hashref( $query, 'ID' );
|
191 |
$results = $dbh->selectall_hashref( $query, 'ID' );
|
| 192 |
$message .= 'Device Device Name Run Time Files Size (M) Delete Skip xfer' . "\n" . '='x40 . "\n";
|
192 |
$message .= 'Device Device Name Run Time Files Size (M) Delete Skip xfer' . "\n" . '='x40 . "\n";
|
| - |
|
193 |
# following sorts the results by the name ('source'} field
|
| 193 |
foreach my $id ( keys %$results ) {
|
194 |
foreach my $id ( sort { $results->{$a}->{'Source'} cmp $results->{$b}->{'Source'} } keys %$results ) {
|
| 194 |
$message .= sprintf( "%7u %-40s %9s %6u %8.2f %6u %6u %8.2f\n",
|
195 |
$message .= sprintf( "%7u %-40s %9s %6u %8.2f %6u %6u %8.2f\n",
|
| 195 |
$results->{$id}->{'Device ID'} ,
|
196 |
$results->{$id}->{'Device ID'} ,
|
| 196 |
$results->{$id}->{'Source'} ,
|
197 |
$results->{$id}->{'Source'} ,
|
| 197 |
$results->{$id}->{'Run Time'} ,
|
198 |
$results->{$id}->{'Run Time'} ,
|
| 198 |
$results->{$id}->{'Files'} ,
|
199 |
$results->{$id}->{'Files'} ,
|