bin/build_dir_history.pl

   1 =pod
   2
   3 Script to give an overview about the contents of the build_dir/
   4
   5 Status: highly experimental, not intended to be ever brought into production
   6
   7 Todo: select data, filter on data
   8
   9 =cut
  10
  11 use strict;
  12 use warnings;
  13
  14 use lib "lib";
  15 use CPAN 1.8861;
  16 use File::Basename;
  17
  18 CPAN::HandleConfig->load();
  19 my $bd = $CPAN::Config->{build_dir};
  20 opendir my $dh, $bd or die "Could not opendir $bd\: $!";
  21 my @history;
  22 for my $dirent (readdir $dh) {
  23   next unless $dirent =~ /\.yml$/;
  24   my $yaml = CPAN->_yaml_loadfile("$bd/$dirent")->[0]; # XXX note: uses internal function
  25   my(undef, undef, $author) = split m|/|, $yaml->{distribution}{ID};
  26   push @history, [$yaml->{time},
  27                   $author,
  28                   File::Basename::basename($yaml->{distribution}{build_dir}),
  29                  ];
  30 }
  31 for my $t (sort { $a->[0] <=> $b->[0] } @history) {
  32   printf "%s %-9s %s\n", scalar localtime $t->[0], $t->[1], $t->[2];
  33 }