bin/localctgetreports.pl

   1 #!/usr/bin/perl
   2
   3 # use 5.010;
   4 use strict;
   5 use warnings;
   6
   7 =head1 NAME
   8
   9
  10
  11 =head1 SYNOPSIS
  12
  13  localctgetreports.pl [OPTIONS] vdistro
  14
  15 =head1 OPTIONS
  16
  17 =over 8
  18
  19 =cut
  20
  21 my @opt = <<'=back' =~ /B<--(\S+)>/g;
  22
  23 =item B<--dry-run|n!>
  24
  25 Only show the resulting command
  26
  27 =item B<--help|h!>
  28
  29 This help
  30
  31 =item B<--hostname=s>
  32
  33 Defaults to current host.
  34
  35 =item B<--solvetop=i>
  36
  37 Pass through as such to ctgetreports
  38
  39 =back
  40
  41 =head1 DESCRIPTION
  42
  43 Warning: local path conventions hard-coded
  44
  45 Warning II: and very ad-hoc, e.g. will not work on k93
  46
  47 =cut
  48
  49
  50 use FindBin;
  51 use lib "$FindBin::Bin/../lib";
  52 BEGIN {
  53     push @INC, qw(       );
  54 }
  55
  56 use Dumpvalue;
  57 use File::Basename qw(dirname);
  58 use File::Path qw(mkpath);
  59 use File::Spec;
  60 use File::Temp;
  61 use Getopt::Long;
  62 use Pod::Usage;
  63 use Hash::Util qw(lock_keys);
  64
  65 our %Opt;
  66 lock_keys %Opt, map { /([^=|!]+)/ } @opt;
  67 GetOptions(\%Opt,
  68            @opt,
  69           ) or pod2usage(1);
  70 if ($Opt{help}) {
  71     pod2usage(0);
  72 }
  73 $Opt{solvetop} //= 9;
  74 use Sys::Hostname qw(hostname);
  75 my $hostname = hostname();
  76 $Opt{hostname} //= $hostname;
  77
  78 my $vdistro = shift @ARGV or pod2usage(1);
  79 my @perls0 = glob(qq{/home/sand/src/perl/repoperls/installed-perls/host/$Opt{hostname}/v5.*/*/bin/perl});
  80 my @perls = grep {
  81     if (-x $_) {
  82         if (-x s/perl$/ctgetreports/r) {
  83             1;
  84         } else {
  85             0;
  86         }
  87     } else {
  88         0;
  89     }
  90 } @perls0;
  91
  92 die "FIXME: Found no perl with a working ctgetreports (tried @perls0)" unless @perls;
  93
  94 use CPAN::DistnameInfo;
  95 my $d = CPAN::DistnameInfo->new("A/AN/ANON/$vdistro.tar.gz");
  96 my $dist = $d->dist;
  97 my $first_letter = substr($dist,0,1);
  98 my $glob = "/home/sand/var/ctr/done/archive/$first_letter/$dist/*$vdistro*";
  99 my @glob = glob($glob);
 100
 101 die "No results matching glob('$glob')" unless @glob;
 102 my $ctgr = my $perl = pop @perls; # newer one preferred
 103 $ctgr =~ s/perl$/ctgetreports/;
 104
 105 my $filtercb = q{--filtercb='my $r = shift; for (split " ", $r->{"conf:ccflags"}){$r->{"conf:ccflags~$_"} = 1}'};
 106 if ($Opt{'dry-run'}) {
 107     warn "system $perl $ctgr --solve --solvetop=$Opt{solvetop} $filtercb --reportfiles $glob\n";
 108 } else {
 109     0 == system $perl, $ctgr, "--solve", "--solvetop=$Opt{solvetop}", $filtercb, "--reportfiles", @glob or die;
 110 }
 111
 112 # Local Variables:
 113 # mode: cperl
 114 # cperl-indent-level: 4
 115 # End: