Print summary on notice level, not info, if it was requested manually

1 files changed, 7 insertions, 2 deletions

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;
 };