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
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
# This -*- perl -*- script makes the Makefile
# $Id: Makefile.PL,v 1.5 1997/02/05 22:23:03 gbarr Exp $
#--- Distribution section ---
$NAME = 'Net';
$DISTNAME = "libnet";
$VERSION = "1.0502";
BEGIN { require 5.002 }
use ExtUtils::MakeMaker;
use ExtUtils::Manifest qw(maniread);
#--- MY package
sub MY::libscan
{
my($self,$path) = @_;
return ''
if($path =~ m:/(RCS|CVS|SCCS)/: ||
$path =~ m:[~%]$: ||
$path =~ m:\.(orig|rej|nfs)$:
);
$path;
}
#--- Installation check
sub chk_version
{
my($pkg,$wanted,$msg) = @_;
local($|) = 1;
print "Checking for $pkg...";
eval { my $p; ($p = $pkg . ".pm") =~ s#::#/#g; require $p; };
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 Socket
chk_version(Socket => '1.30') or
warn "\n"
. "*** For Net::Cmd to work you require version 1.30, or later, of\n"
. " Socket.pm from CPAN/modules/by-module/Socket/Socket-x.x.tar.gz\n\n";
chk_version(IO::Socket => '1.05') or
warn "\n"
. "*** For Net::Cmd to work you require version 1.05, or later, of\n"
. " IO/Socket.pm from CPAN/modules/by-module/IO/IO-x.x.tar.gz\n\n";
chk_version(Data::Dumper => '0.01') or
warn "\n"
. "*** To be able to use the libnet modules you *MUST* have\n"
. " Data::Dumper installed. You can obtain this from\n"
. " CPAN/modules/by-module/Data/Data-Dumper-x.x.tar.gz\n\n";
#--- Create Net::Config
use IO::File;
my $config_pm = "Net/Config.pm";
# Use %INC and IO::File to determine how this machine
# maps package names to path names
foreach (keys %INC) {
last if ($config_pm = $_) =~ s/^IO(.)File/Net${1}Config/;
}
system($^X, 'Configure')
unless -f $config_pm;
#--- Write the Makefile
my @clean = qw(*% *.html *.b[ac]k *.old *.orig *.rej);
push @clean, map { "*/$_" } @clean;
WriteMakefile(
VERSION => $VERSION,
DISTNAME => $DISTNAME,
NAME => $NAME,
'dist' => {COMPRESS => 'gzip -9f',
SUFFIX => '.gz',
DIST_DEFAULT => 'all tardist',
},
'clean' => {FILES => join(" ", @clean, )},
'realclean' => {FILES => $config_pm},
PREREQ_PM => {
Data::Dumper => 0,
Socket => 1.3,
IO::Socket => 1.05
},
);
|
