bin/analysis-now.pl

   1 #!/usr/bin/perl
   2
   3 use Sys::Hostname;
   4 die "not yet ported to ds8143" if hostname eq "ds8143";
   5
   6 # use 5.010;
   7 use strict;
   8 use warnings;
   9
  10 =head1 NAME
  11
  12
  13
  14 =head1 SYNOPSIS
  15
  16
  17
  18 =head1 OPTIONS
  19
  20 =over 8
  21
  22 =cut
  23
  24 my @opt = <<'=back' =~ /B<--(\S+)>/g;
  25
  26 =item B<--help|h!>
  27
  28 This help
  29
  30 =back
  31
  32 =head1 DESCRIPTION
  33
  34
  35
  36 =cut
  37
  38 use FindBin;
  39 use lib "$FindBin::Bin/../lib";
  40 BEGIN {
  41     push @INC, qw(       );
  42 }
  43
  44 use Dumpvalue;
  45 use File::Basename qw(dirname);
  46 use File::Path qw(mkpath);
  47 use File::Spec;
  48 use File::Temp;
  49 use Getopt::Long;
  50 use Hash::Util qw(lock_keys);
  51
  52 our %Opt;
  53 lock_keys %Opt, map { /([^=]+)/ } @opt;
  54 GetOptions(\%Opt,
  55            @opt,
  56           ) or pod2usage(1);
  57
  58 for my $arg (@ARGV) {
  59     0 == system $^X =>
  60         (
  61          "-I/home/k/sources/cpan-testers-parsereport/lib",
  62          "/home/k/sources/cpan-testers-parsereport/bin/ctgetreports",
  63          "--ctdb=/home/ftp/cnntp-solver-2009/workdir/cpanstats.db",
  64          "--pce",
  65          "--cachedir=/home/ftp/cpantesters",
  66          "--q=meta:from",
  67          "--q=qr:'(.*version .+? required--this is only.*)'",
  68          "--q=qr:'(.*is not exported.*)'",
  69          "--q=qr:'(.*instance running.*)'",
  70          "--q=qr:'(.*could.?n.t (?:open|connect).*)'",
  71          "--q=qr:'((?i:.*could.?n.t find.*))'",
  72          "--q qr:'(.*Base class package.*)'",
  73          "--q qr:'(Can.t call method .*)'",
  74          "--q qr:'(Can.t use an undefined value.*)'",
  75          "--q qr:'(Can.t use string .*)'",
  76          "--q qr:'(Can.t modify division)'",
  77          "--q qr:'(Connection refused)'",
  78          "--q qr:'(Can.t use keyword .*? as a label)'",
  79          "--q qr:'(Could not open .*)'",
  80          "--q qr:'(Address already in use)'",
  81          "--q qr:'(.*is deprecated (?:and will be removed)?)'",
  82          "--q qr:'(skipped: .*)'",
  83          "--q qr:'(Please rerun the make command)'",
  84          "--q qr:'(v-string .* non-portable at \\S+)'",
  85          "--q qr:'(The module .* isn.t available on CPAN)'",
  86          "--q qr:'(Invalid version format)'",
  87          "--solve",
  88          "--solvetop=123",
  89          "--dumpfile=/home/ftp/cnntp-solver-2009/workdir/solved/$arg.slvdv",
  90          "--transport=http_cpantesters_gzip",
  91          $arg,
  92         ) or die;
  93 }
  94
  95 # Local Variables:
  96 # mode: cperl
  97 # cperl-indent-level: 4
  98 # End: