#!/usr/bin/perl
#
# Install CPAN modules
#

use File::Basename;
use Getopt::Std;
use strict;

my $ME = basename $0;
$ME =~ s/^xsync-//;

my %opts;
getopts('nqvd:', \%opts);
my $echo = $opts{n};
my $quiet = $opts{q};
my $verbose = $opts{v};
my $dir = $opts{d} || '/etc/xsync';

exit 0 unless -d $dir && -d "$dir/$ME.d";
exit 0 unless glob "$dir/$ME.d/*";

require CPAN;

for my $i (glob "$dir/$ME.d/*") {
  $i = basename $i;
  if ($echo) {
    print "perl -MCPAN -e 'install $i'\n";
  }
  else {
    CPAN::install $i;
  }
}

