CLAESJAC / CPANXR-0.08 / bin / cpanxr 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
—
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82

              
#!/usr/bin/perl
# $Id: cpanxr,v 1.2 2003/10/06 21:00:47 clajac Exp $
use CPANXR;
use CPANXR::Config;
use CPANXR::Indexer;
use Getopt::Long;
use Pod::Usage;
use File::Spec::Functions qw(catfile);
use strict;
my ($help, $man);
GetOptions("help|?" => \$help, man => \$man);
pod2usage(1) if $help;
pod2usage(-exitstatus => 0, -verbose => 2) if $man;
my $cmd = shift;
if($cmd eq 'index') {
  my $xr_root = catfile(CPANXR::Config->get('XrRoot'), "*");
  my @dists = glob($xr_root);
  foreach my $dist (@dists) {
    if(-e $dist && -d $dist) {
      eval {
        CPANXR::Indexer->index($dist);
      };
      if($@) {
        print STDERR "Failed to index '$dist' because of: $@\n";
      }
    }
  }
}
__END__
=head1 NAME
cpanxr - CPANXR indexer
=head1 SYNOPOSIS
cpanxr [options] command
 Options:
  -help             brief help message
  -man              full documentation
 Commands:
  index             Run indexer
=head1 OPTIONS
=over 8
=item B<-help>
Prints a brief help message and exit.
=item B<-man>
Prints the manual page and exists.
=back
=head1 COMMANDS
=over 8
=item B<index>
Index distributions
=back
=head1 DESCRIPTION
B<cpanxr> will index the distributions unpackaged in the directory as specified by the B<XrRoot> configuration directive in I</etc/cpanxr.conf>.
=cut