Re: amreport shows wrong taper speed for VAULT lines

Nathan,

Try the attached patch.

Jean-Louis

On 08/11/17 11:50 PM, Nathan Stratton Treadway wrote:
> (Using Amanda 3.5)
>
> When I do an amdump run to a main storage and a "vault-storage"
> storage, the emailed report sent out at the end of the run seems to show
> the main-storage taper speed again on the VAULT line, even though the
> taper time is (sometimes significantly) different for the two:
>
> DUMP SUMMARY:
> DUMPER STATS TAPER STATS
> HOSTNAME DISK L ORIG-MB OUT-MB COMP% MMM:SS KB/s MMM:SS KB/s
> ----------------------- ----------------------- -------------- 
> --------------
> host1 / 1 721 311 43.1 1:51 2872.3 0:06 53094.0
> VAULT 0:07 53094.0
> host2 / 1 39 5 13.6 0:06 881.0 0:00 53840.0
> VAULT 0:00 53840.0
> host3 / 0 3900 1756 45.0 12:46 2346.4 1:03 28541.2
> VAULT 0:23 28541.2
>
> Any ideas as to where the problem is likely to originate (original log
> files, Amanda::Report log-parsing routines, Amanda::Report formatting
> routines, etc.)?
>
> Thanks.
>
> Nathan
>
> ----------------------------------------------------------------------------
> Nathan Stratton Treadway - [email protected] - Mid-Atlantic region
> Ray Ontko & Co. - Software consulting services - http://www.ontko.com/ 
> <http://www.ontko.com/>
> GPG Key: http://www.ontko.com/~nathanst/gpg_key.txt 
> <http://www.ontko.com/~nathanst/gpg_key.txt> 
> ID: 1023D/ECFB6239
> Key fingerprint = 6AD8 485E 20B9 5C71 231C 0C32 15F3 ADCD ECFB 6239
This message is the property of CARBONITE, INC. and may contain confidential or privileged information.
If this message has been delivered to you by mistake, then do not copy or deliver this message to anyone.  Instead, destroy it and notify me by reply e-mail

diff --git a/perl/Amanda/Report/human.pm b/perl/Amanda/Report/human.pm
index 354576f..85749f3 100644
--- a/perl/Amanda/Report/human.pm
+++ b/perl/Amanda/Report/human.pm
@@ -1543,7 +1543,7 @@ sub get_summary_info
 		push @rv, '';
 		push @rv, '';
 		$tape_time = $try->{taper}{sec};
-		$tape_rate = $try->{taper}{kps} if !$tape_rate;
+		$tape_rate = $try->{taper}{kps};
 	        push @rv, $fmt_col_field->(8,
 		       (defined $tape_time) ?
 			       $tape_time ? $self->mnsc($tape_time) : ""