—

              
#!/usr/bin/perl
# v1.7 - 2013-04-20  - Matt
#      - get list of modules from Makefile.PL or dist.ini
#      - abstracted yum and apt into subs
#
# v1.6 - 2013-04-01  - Matt
#      - improved error reporting for FreeBSD port installs
#
# v1.5 - 2013-03-27  - Matt
#      - added option to specify port category
#
# v1.4 - 2012-10-23  - Matt
#      - improved yum & apt-get module installer
#
# v1.3 - 2012-10-23  - Matt
#      - added apt-get support
#      - added app install support
#
# circa 2008, by Matt Simerson & Phil Nadeau
#      - based on installer in Mail::Toaster dating back to the 20th century
use strict;
use warnings;
use Carp;
use CPAN;
use English qw( -no_match_vars );
use IO::File;
my $apps = [
#   { app => 'mysql-server-5', info => { port => 'mysql50-server', dport=>'mysql5',  yum =>'mysql-server'} },
#   { app => 'apache22'      , info => { port => 'apache22',       dport=>'',     yum => 'httpd' } },
];
$EUID == 0 or croak "You will have better luck if you run me as root.\n";
my @failed;
foreach ( @$apps ) {
    my $name = $_->{app} or croak 'missing app name';
    install_app( $name, $_->{info} );
};
foreach ( get_perl_modules() ) {
#print Dumper($_);
    my $module = $_->{module} or croak 'missing module name';
    my $info   = $_->{info};
    my $version = $info->{version} || '';
    print "checking for $module $version\n";
    eval "use $module $version"; ## no critic (Eval)
    next if ! $EVAL_ERROR;
    next if $info->{ships_with} && $info->{ships_with} eq 'perl';
    install_module( $module, $info, $version );
    eval "use $module $version"; ## no critic (Eval)
    if ($EVAL_ERROR) {
        push @failed, $module;
    }
}
if ( scalar @failed > 0 ) {
    print "The following modules failed installation:\n";
    print join( "\n", @failed );
    print "\n";
}
exit;
sub get_perl_modules {
    if ( -f 'dist.ini' ) {
        return get_perl_modules_from_ini();
    };
    if ( -f 'Makefile.PL' ) {
        return get_perl_modules_from_Makefile_PL();
    };
    croak "unable to find module list. Run this script in the dist dir\n";
};
sub get_perl_modules_from_Makefile_PL {
    my $fh = new IO::File 'Makefile.PL', 'r'  ## no critic (Indirect)
        or croak "unable to read Makefile.PL\n";
    my $in = 0;
    my @modules;
    while (my $line = <$fh> ) {
        if ( $line =~ /PREREQ_PM/ ) {
            $in++;
            next;
        };
        next if ! $in;
        last if $line =~ /}/;
        next if $line !~ /=/;  # no = char means not a module
        my ($mod,$ver) = split /\s*=\s*/, $line;
        $mod =~ s/[\s'"\#]*//gx;   # remove whitespace and quotes
        next if ! $mod;
        push @modules, name_overrides($mod);
#print "module: .$mod.\n";
    }
    $fh->close;
    return @modules;
};
sub get_perl_modules_from_ini {
    my $fh = new IO::File ( 'dist.ini', 'r' )  ## no critic (Indirect)
        or croak "unable to read dist.ini\n";
    my $in = 0;
    my @modules;
    while (my $line = <$fh> ) {
        if ( '[Prereqs]' eq substr($line,0,9) ) {
            $in++;
            next;
        };
        next if ! $in;
        last if '[' eq substr($line,0,1); # [...] starts a new section
        my ($mod,$ver) = split /\s*=\s*/, $line;
        $mod =~ s/\s*//g;                 # remove whitespace
        $mod =~ s/^;//g;
        next if ! $mod || ! defined $ver;
        push @modules, name_overrides($mod);
    }
    $fh->close;
#print Dumper(\@modules);
    return @modules;
};
sub install_app {
    my ( $app, $info) = @_;
    return install_app_darwin($app, $info ) if lc($OSNAME) eq 'darwin';
    return install_app_freebsd($app, $info ) if lc($OSNAME) eq 'freebsd';
    return install_app_linux( $app, $info ) if lc($OSNAME) eq 'linux';
    return;
};
sub install_app_darwin {
    my ($app, $info ) = @_;
    my $port = $info->{dport} || $info->{port} || $app;
    if ( ! -x '/opt/local/bin/port' ) {
        print "MacPorts is not installed! Consider installing it.\n";
        return;
    }
    system "/opt/local/bin/port install $port"
        and carp "install failed for Darwin port $port";
    return;
}
sub install_app_freebsd {
    my ($app, $info ) = @_;
    print " from ports...";
    my $name = $info->{port} || $app;
    return if is_freebsd_port_installed( $name, $app );
    print "installing $app";
    my $category = $info->{category} || '*';
    my ($portdir) = glob "/usr/ports/$category/$name";
    if ( $portdir && -d $portdir && chdir $portdir ) {
        print " from ports ($portdir)\n";
        system "make install clean"
            and carp "'make install clean' failed for port $app\n";
    };
    return;
};
sub install_app_linux {
    my ($app, $info ) = @_;
    if ( -x '/usr/bin/yum' ) {
        my $rpm = $info->{yum} || $app;
        return system "/usr/bin/yum -y install $rpm";
    }
    if ( -x '/usr/bin/apt-get' ) {
        my $package = $info->{apt} || $app;
        return system "/usr/bin/apt-get -y install $package";
    }
    carp "no Linux package manager detected\n";
    return;
};
sub install_module {
    my ($module, $info, $version) = @_;
    return install_module_darwin($module, $info, $version)
        if lc($OSNAME) eq 'darwin';
    return install_module_freebsd($module, $info, $version)
        if lc($OSNAME) eq 'freebsd';
    return install_module_linux( $module, $info, $version)
        if lc($OSNAME) eq 'linux';
    eval "require $module"; ## no critic (Eval)
    return 1 if ! $EVAL_ERROR;
    return install_module_cpan($module, $version);
};
sub install_module_cpan {
    my ($module, $version) = @_;
    print " from CPAN...";
    sleep 1;
    # this causes problems when CPAN is not configured.
    #$ENV{PERL_MM_USE_DEFAULT} = 1;       # supress CPAN prompts
    local $ENV{FTP_PASSIVE} = 1;          # for FTP behind NAT/firewalls
    # some Linux distros break CPAN by auto/preconfiguring it with no URL mirrors.
    # this works around that annoying little habit
    $CPAN::Config = get_cpan_config();   ## no critic (Package)
    # a hack to grab the latest version on CPAN before its hits the mirrors
    if ( $module eq 'Provision::Unix' && $version ) {
        $module =~ s/\:\:/\-/g;
        $module = "M/MS/MSIMERSON/$module-$version.tar.gz";
    }
    return CPAN::Shell->install($module);
}
sub install_module_darwin {
    my ($module, $info, $version) = @_;
    my $dport = '/opt/local/bin/port';
    if ( ! -x $dport ) {
        print "MacPorts is not installed! Consider installing it.\n";
        return;
    }
    my $port = "p5-$module";
    $port =~ s/::/-/g;
    system "$dport install $port"
        and carp "install failed for Darwin port $module";
    return;
}
sub install_module_freebsd {
    my ($module, $info, $version) = @_;
    my $name = $info->{port} || $module;
    my $portname = "p5-$name";
    $portname =~ s/::/-/g;
    print " from ports...$portname...";
    return if is_freebsd_port_installed( $portname, $module );
    print "installing $module ...";
    my $category = $info->{category} || '*';
    my ($portdir) = glob "/usr/ports/$category/$portname";
    if ( ! $portdir || ! -d $portdir ) {
        print "oops, no match at /usr/ports/$category/$portname\n";
        return;
    };
    if ( ! chdir $portdir ) {
        print "unable to cd to /usr/ports/$category/$portname\n";
    };
    print " from ports ($portdir)\n";
    system "make install clean"
        and carp "'make install clean' failed for port $module\n";
    return;
}
sub install_module_linux {
    my ($module, $info, $version) = @_;
    my $package;
    if ( -x '/usr/bin/yum' ) {
        return install_module_linux_yum($module, $info);
    }
    elsif ( -x '/usr/bin/apt-get' ) {
        return install_module_linux_apt($module, $info);
    }
    carp "no Linux package manager detected\n";
    return;
};
sub install_module_linux_yum {
    my ($module, $info) = @_;
    my $package;
    if ( $info->{yum} ) {
        $package = $info->{yum};
    }
    else {
        $package = "perl-$module";
        $package =~ s/::/-/g;
    };
    return system "/usr/bin/yum -y install $package";
};
sub install_module_linux_apt {
    my ($module, $info) = @_;
    my $package;
    if ( $info->{apt} ) {
        $package = $info->{apt};
    }
    else {
        $package = 'lib' . $module . '-perl';
        $package =~ s/::/-/g;
    };
    return system "/usr/bin/apt-get -y install $package";
};
sub is_freebsd_port_installed {
    my ($portname, $display_name) = @_;
    $display_name ||= $portname;
    if ( grep {/$portname/x} `/usr/sbin/pkg_info` ) { ## no critic (Backtick)
        return print "$display_name is installed.\n";
    }
    if ( `/usr/sbin/pkg info -x $portname` ) {        ## no critic (Backtick)
        return print "$display_name is installed.\n";
    }
    return 0;
};
sub get_cpan_config {
    my $ftp = `which ftp`; chomp $ftp;  ## no critic (BackTick)
    my $gzip = `which gzip`; chomp $gzip;  ## no critic (BackTick)
    my $unzip = `which unzip`; chomp $unzip;  ## no critic (BackTick)
    my $tar  = `which tar`; chomp $tar;  ## no critic (BackTick)
    my $make = `which make`; chomp $make;  ## no critic (BackTick)
    my $wget = `which wget`; chomp $wget;  ## no critic (BackTick)
    return
{
  'build_cache' => q[10],
  'build_dir' => qq[$ENV{HOME}/.cpan/build],
  'cache_metadata' => q[1],
  'cpan_home' => qq[$ENV{HOME}/.cpan],
  'ftp' => $ftp,
  'ftp_proxy' => q[],
  'getcwd' => q[cwd],
  'gpg' => q[],
  'gzip' => $gzip,
  'histfile' => qq[$ENV{HOME}/.cpan/histfile],
  'histsize' => q[100],
  'http_proxy' => q[],
  'inactivity_timeout' => q[5],
  'index_expire' => q[1],
  'inhibit_startup_message' => q[1],
  'keep_source_where' => qq[$ENV{HOME}/.cpan/sources],
  'lynx' => q[],
  'make' => $make,
  'make_arg' => q[],
  'make_install_arg' => q[],
  'makepl_arg' => q[],
  'ncftp' => q[],
  'ncftpget' => q[],
  'no_proxy' => q[],
  'pager' => q[less],
  'prerequisites_policy' => q[follow],
  'scan_cache' => q[atstart],
  'shell' => q[/bin/csh],
  'tar' => $tar,
  'term_is_latin' => q[1],
  'unzip' => $unzip,
  'urllist' => [ 'http://www.perl.com/CPAN/', 'http://mirrors.kernel.org/pub/CPAN/', 'ftp://cpan.cs.utah.edu/pub/CPAN/', 'ftp://mirrors.kernel.org/pub/CPAN', 'ftp://osl.uoregon.edu/CPAN/', 'http://cpan.yahoo.com/', 'ftp://ftp.funet.fi/pub/languages/perl/CPAN/' ],
  'wget' => $wget, };
}
sub name_overrides {
    my $mod = shift;
# Package and port managers have naming conventions for perl modules. The
# methods will typically work out the name based on the module name and a
# couple rules. When that doesn't work, add entries here for FreeBSD (port),
# MacPorts ($dport), yum, and apt.
    my @modules = (
        { module=>'LWP::UserAgent', info => { cat=>'www', port=>'p5-libwww', dport=>'p5-libwww-perl' }, },
        { module=>'Mail::Send'    , info => { port => 'Mail::Tools', }  },
    );
    my ($match) = grep { $_->{module} eq $mod } @modules;
    return $match if $match;
    return { module=>$mod, info => { } };
};
# PODNAME: install_deps.pl
# ABSTRACT: install dependencies with package manager or CPAN
HideShow 33 lines of Pod
__END__
=pod
=head1 NAME
install_deps.pl - install dependencies with package manager or CPAN
=head1 VERSION
version 0.20130515
=head1 AUTHORS
=over 4
=item *
Matt Simerson <msimerson@cpan.org>
=item *
Davide Migliavacca <shari@cpan.org>
=back
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2013 by The Network People, Inc..
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut