#!/usr/bin/perl -w

# $Id$

use strict;
use warnings;

die 'Provide a module name' unless @ARGV;

print 'Installing ', join(' ', @ARGV), "\n";

opendir my $DIR, $ENV{'HOME'} . '/perl' or die 'Cannot read perl directory';
my @perls = sort grep { m/^\d/ } readdir $DIR;
closedir $DIR;

foreach my $perl (@perls) {
  my $cpan = $ENV{'HOME'} . "/perl/$perl/bin/cpan";
  system('echo install ' . join(' ', @ARGV) . "|$cpan");
}

print '='x64, $/;

foreach my $perl (@perls) {
  foreach my $module (@ARGV) {
    my $command = $ENV{'HOME'} . "/perl/$perl/bin/perl -M" .
      $module . ' -e "print \$' . $module . '::VERSION"';

    if ($^O ne 'MSWin32') {
      $command .= ' 2>/dev/null';
    }

    my $res = `$command`;

    print $perl, ":\t", ( $res ? $res : 'not installed' ), $/;
  }
}