extract-report-issues

#!/usr/bin/perl
use strict;
use warnings;
use YAML::Syck;
use POSIX qw(strftime);
use Getopt::Long;

GetOptions(
  "r|reportsdir=s" => \( my $reportsdir = '/var/lib/puppet/reports' ),
  "h|host=s"       => \( my $host = '*' ),
  "d|date=s"       => \( my $date = strftime('%Y%m%d', localtime) ),
);

for my $report ( glob("$reportsdir/$host/$date*.yaml") ) {
  my @messages;
  my $reportdump = LoadFile( $report );

  for my $log (@{ $reportdump->{logs} }) {
    next if $log->{level} =~ /notice/;
    $log->{level} =~ s/^://;

    my $message = $log->{level} . ": " . $log->{message} . " " . $log->{source};
    print "$report: $message\n";
  }

}