diff options
Diffstat (limited to 'Echolot')
| -rw-r--r-- | Echolot/Commands.pm | 3 | ||||
| -rw-r--r-- | Echolot/Report.pm | 9 |
2 files changed, 9 insertions, 3 deletions
diff --git a/Echolot/Commands.pm b/Echolot/Commands.pm index df475b0..fd02adc 100644 --- a/Echolot/Commands.pm +++ b/Echolot/Commands.pm @@ -82,7 +82,8 @@ sub processCommands($) { } elsif ($command eq 'buildfromlines') { Echolot::Globals::get()->{'scheduler'}->schedule('buildfromlines', 0, time() ); } elsif ($command eq 'summary') { - Echolot::Globals::get()->{'scheduler'}->schedule('summary', 0, time() ); + @args = ('manual'); + Echolot::Globals::get()->{'scheduler'}->schedule('summary', 0, time(), \@args ); } elsif ($command eq 'delete') { Echolot::Globals::get()->{'storage'}->delete_remailer(@args); } elsif ($command eq 'setremailercaps') { diff --git a/Echolot/Report.pm b/Echolot/Report.pm index db32687..22e2bf9 100644 --- a/Echolot/Report.pm +++ b/Echolot/Report.pm @@ -20,7 +20,8 @@ use strict; use English; use Echolot::Log; -sub print_summary() { +sub print_summary(;$) { + my ($manual) = @_; my @addresses = sort { $a->{'address'} cmp $b->{'address'} } Echolot::Globals::get()->{'storage'}->get_addresses(); my %remailers = map { $_->{'address'} => $_ } Echolot::Globals::get()->{'storage'}->get_remailers(); @@ -42,7 +43,11 @@ sub print_summary() { }; }; }; - Echolot::Log::info($report); + if (defined $manual) { + Echolot::Log::notice($report); + } else { + Echolot::Log::info($report); + } return 1; }; |