move logging output to Log::Contextual and add a --verbose/-v option

[scpubgit/System-Introspector-Report.git] / lib / System / Introspector / Report / Publish / MediaWiki.pm

diff --git a/lib/System/Introspector/Report/Publish/MediaWiki.pm b/lib/System/Introspector/Report/Publish/MediaWiki.pm
index 274b6c1..b6ecab9 100644 (file)
--- a/lib/System/Introspector/Report/Publish/MediaWiki.pm
+++ b/lib/System/Introspector/Report/Publish/MediaWiki.pm
@@ -1,6 +1,7 @@
 package System::Introspector::Report::Publish::MediaWiki;
 use Moo;
 use Try::Tiny;
+use Log::Contextual qw( :log );
 use aliased 'System::Introspector::Report::Publish::MediaWiki::Connection';
 
 has page_options => (
@@ -40,11 +41,11 @@ sub _build_connection {
 sub publish {
   my ($self, $reports) = @_;
   my $pages = $self->page_options;
-  printf "Pushing reports to MediaWiki at '%s'\n", $self->api_uri;
+  log_info { "Pushing reports to MediaWiki at '%s'", $self->api_uri };
   for my $page (sort keys %$pages) {
     $self->_publish_page($reports, $page, $pages->{$page});
   }
-  print "Finished pushing to MediaWiki\n";
+  log_info { "Finished pushing to MediaWiki" };
   return 1;
 }
 
@@ -89,27 +90,27 @@ sub _publish_page {
   }
   my $sorted = $self->_sort_reports($reports, $options->{report} || []);
   unless (scalar @$sorted) {
-    print "Skipping page '$page_name': No reports to publish\n";
+    log_debug { "Skipping page '$page_name': No reports to publish" };
     return 1;
   }
-  print "Updating page '$page_name'\n";
+  log_debug { "Updating page '$page_name'" };
   my $do_create = $options->{create};
   return try {
     my $page = $self->get_page($page_name);
     if ($page->is_new and not $do_create) {
-      print "Skipping page '$page_name': Does not yet exist\n";
+      log_debug { "Skipping page '$page_name': Does not yet exist" };
       return 1;
     }
     my $is_changed = $page->update($sorted);
     unless ($is_changed) {
-      print "Not pushing page '$page_name': No changes\n";
+      log_Debug { "Not pushing page '$page_name': No changes" };
       return 1;
     }
     $self->put_page($page);
     return 1;
   }
   catch {
-    print "Error during page update: $_\n";
+    log_error { "Error during page update: $_" };
     return 1;
   };
 }