summaryrefslogtreecommitdiff
path: root/Echolot
diff options
context:
space:
mode:
Diffstat (limited to 'Echolot')
-rw-r--r--Echolot/Commands.pm3
-rw-r--r--Echolot/Report.pm9
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;
};