On Thursday 27 June 2013 09:29:23 Jean-Louis Martineau did opine:
> HI,
>
> I committed the attached patch.
>
> Jean-Louis
>
Thank you, added to my build script and a full clean install of 4.-svn-4761
is underway.
And I did find the amreport.debug file, which is pasted here, last nights
version:
Thu Jun 27 02:29:11 2013: thd-0x8a16d00: amreport: pid 2954 ruid 1001 euid
1001 version 4.0.0alpha.svn.4761: start at Thu Jun 27 02:29:11 2013
Thu Jun 27 02:29:11 2013: thd-0x8a16d00: amreport: Arguments: Daily --from-
amdump
Thu Jun 27 02:29:11 2013: thd-0x8a16d00: amreport: pid 2954 ruid 1001 euid
1001 version 4.0.0alpha.svn.4761: rename at Thu Jun 27 02:29:11 2013
Thu Jun 27 02:29:11 2013: thd-0x8a16d00: amreport: using logfile:
/usr/local/var/amanda/Daily/log
Thu Jun 27 02:29:11 2013: thd-0x8a16d00: amreport: operating in script mode
Thu Jun 27 02:29:11 2013: thd-0x8a16d00: amreport: planned output: human
mail g...@coyote.coyote.den
Thu Jun 27 02:29:11 2013: thd-0x8a16d00: amreport: planned output:
postscript /usr/local/etc/amanda/Daily/3hole.ps printer HL3170CDW
Thu Jun 27 02:29:11 2013: thd-0x8a16d00: amreport: invoking mail app:
/usr/bin/Mail -s The Coyote Den STRANGE: AMANDA MAIL REPORT FOR June 27,
2013 g...@coyote.coyote.den
Thu Jun 27 02:29:11 2013: thd-0x8a16d00: amreport: warning: Use of
uninitialized value in addition (+) at
/usr/local/share/perl/5.10.1/Amanda/Report/human.pm line 797.
Thu Jun 27 02:29:11 2013: thd-0x8a16d00: amreport: waiting for child
process to finish..
Thu Jun 27 02:29:11 2013: thd-0x8a16d00: amreport: invoking printer:
/usr/bin/lpr -P HL3170CDW
Thu Jun 27 02:29:11 2013: thd-0x8a16d00: amreport: waiting for child
process to finish..
Thu Jun 27 02:29:11 2013: thd-0x8a16d00: amreport: pid 2954 finish time Thu
[...date string EOF]
The perl line context from that human.pm file is:
my $nb_incr_dle = 0;
my @incr_dle = @{$self->{tapedisks}};
foreach my $level (1 .. $#incr_dle) {
$nb_incr_dle += $incr_dle[$level]; <--line 797
}
print $fh swrite(
$st_format,
"DLEs Taped",
$self->{tapedisks}[0] + $nb_incr_dle,
$self->{tapedisks}[0],
$nb_incr_dle,
(
(has_incrementals($self->{tapedisks}))
? by_level_count($self->{tapedisks})
: ""
)
);
I have zero perl experience. So I've no clue if that is stopping the email
or not.
Thanks.
Cheers, Gene
--
"There are four boxes to be used in defense of liberty:
soap, ballot, jury, and ammo. Please use in that order."
-Ed Howdershelt (Author)
My web page: <http://coyoteden.dyndns-free.com:85/gene> is up!
My views
<http://www.armchairpatriot.com/What%20Has%20America%20Become.shtml>
Nothing is so often irretrievably missed as a daily opportunity.
-- Ebner-Eschenbach
A pen in the hand of this president is far more
dangerous than 200 million guns in the hands of
law-abiding citizens.
