/usr/local/CPAN/WebFS-FileCopy/Makefile.PL

• package main
  • check_version
• EOF

# This -*- perl -*- script writes the Makefile for this package.

use strict;
use ExtUtils::MakeMaker;

# Subroutine to check for installed modules.
sub check_version
{
  my ($pkg, $wanted, $msg) = @_;

  local($|) = 1;
  print "Checking for $pkg $wanted...";

  eval { my $p; ($p = $pkg . ".pm") =~ s#::#/#g; require $p; };

  no strict 'refs';

  my $vstr = ${"${pkg}::VERSION"} ? "found v" . ${"${pkg}::VERSION"}
                                 : "not found";
  my $vnum = ${"${pkg}::VERSION"} || 0;

  print $vnum >= $wanted ? "ok\n" : " " . $vstr . "\n";

  $vnum >= $wanted;
}

# Check for needed modules.
check_version('Digest::MD5' => '2.06') or
  warn   "\n"
       . "*** For WebFS::FileCopy you require version 2.06, or later, of\n"
       . "    MD5 from CPAN/authors/id/G/GA/GAAS/Digest-MD5-x.x.tar.gz\n\n";

check_version('Data::Dumper' => '2.081') or
  warn   "\n"
       . "*** For WebFS::FileCopy you require version 2.081, or later, of\n"
       . "    Data::Dumper from CPAN/authors/id/G/GS/GSAR/Data-Dumper-x.x.tar.gz\n\n";

check_version('Net::FTP' => '2.56') or
  warn   "\n"
       . "*** For WebFS::FileCopy you require version 2.56, or later, of\n"
       . "    Net::FTP from CPAN/authors/id/G/GB/GBARR/libnet-1.xxxx.tar.gz\n\n";

check_version('MIME::Base64' => '2.05') or
  warn   "\n"
       . "*** For WebFS::FileCopy you require version 2.05, or later, of\n"
       . "    MIME::Base64 from CPAN/authors/id/G/GA/GAAS/MIME-Base64-x.x.tar.gz.\n\n";

check_version('HTML::Parser' => '2.20') or
  warn   "\n"
       . "*** For WebFS::FileCopy you require version 2.20, or later, of\n"
       . "    HTML::Parser from CPAN/authors/id/G/GA/GAAS/HTML-Parser-x.x.tar.gz.\n\n";

check_version('LWP' => '5.48') or
  warn   "\n"
       . "*** For WebFS::FileCopy you require version 5.48, or later, of\n"
       . "    LWP from CPAN/authors/id/G/GA/GAAS/libwww-perl-x.x.tar.gz.\n\n";

check_version('LWP::Version' => '0.24') or
  warn   "\n"
       . "*** For WebFS::FileCopy you require version 0.24, or later, of\n"
       . "    LWP::Version from CPAN/authors/id/G/GA/GAAS/LWPng-alpha-x.x.tar.gz.\n\n";

check_version('URI' => '1.09') or
  warn   "\n"
       . "*** For WebFS::FileCopy you require version 1.09, or later, of\n"
       . "    URI from CPAN/authors/id/G/GA/GAAS/URI-x.x.tar.gz.\n\n";

WriteMakefile(
  'NAME'	 => 'WebFS::FileCopy',
  'VERSION_FROM' => 'lib/WebFS/FileCopy.pm', # finds $VERSION
  'dist'         => {
    'COMPRESS'   => 'gzip',
    'SUFFIX'     => 'gz'
  },
);