forked from libwww-perl/libwww-perl
-
Notifications
You must be signed in to change notification settings - Fork 5
/
Makefile.PL
166 lines (137 loc) · 3.76 KB
/
Makefile.PL
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
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
# This -*- perl -*- script writes the Makefile for libwww-perl
# $Id: Makefile.PL,v 1.45 1997/12/17 00:15:23 aas Exp $
require 5.004;
use strict;
#--- Configuration section ---
my @programs_to_install = qw(lwp-request lwp-mirror lwp-rget lwp-download);
my @request_aliases = qw(GET HEAD POST);
#--- End Configuration - You should not have to change anything below this line
# Allow us to suppress all program installation with the -n (library only)
# option. This is for those that don't want to mess with the configuration
# section of this file.
use Getopt::Std;
use vars qw($opt_n);
unless (getopts("n")) {
die "Usage: $0 [-n]\n";
}
@programs_to_install = () if $opt_n;
# Check for non-standard modules that are used by this library.
$| = 1;
my $missing_modules = 0;
print "Checking for MIME::Base64..";
eval {
require MIME::Base64;
#MIME::Base64->require_version('2.00');
};
if ($@) {
print " failed\n";
$missing_modules++;
print <<EOT;
$@
The Base64 encoding is used in authentication headers in HTTP.
EOT
sleep(2); # Don't hurry too much
} else {
print " ok\n";
}
print "Checking for Net::FTP......";
eval {
require Net::FTP;
Net::FTP->require_version('2.00');
};
if ($@) {
print " failed\n";
$missing_modules++;
print <<EOT;
$@
The libwww-perl library normally use the Net::FTP module when
accessing ftp servers. You would have to install this package or
configure your application to use a proxy server for making ftp
requests work. Net::FTP is part of the 'libnet' distribution.
EOT
sleep(2); # Don't hurry too much
} else {
print " ok\n";
}
print "Checking for MD5 ..........";
eval {
require MD5;
};
if ($@) {
print " failed\n";
$missing_modules++;
print <<EOT;
$@
The MD5 library is needed if you want to be able use the experimental
"Digest Access Authentication" scheme. Since very few servers
implement this authentication scheme, you should normally not worry
too much about this.
EOT
} else {
print " ok\n";
}
print <<EOT if $missing_modules;
The missing modules can be obtained from CPAN. Visit
<URL:http://www.perl.com/CPAN/> to find a CPAN site near you.
EOT
# Ok, now it is time to really generate the Makefile
use ExtUtils::MakeMaker;
WriteMakefile(
NAME => 'libwww-perl',
VERSION_FROM => 'lib/LWP.pm',
PL_FILES => { map {("bin/$_.PL" => "bin/$_")} @programs_to_install },
EXE_FILES => [ map {"bin/$_"} @programs_to_install ],
'clean' => { FILES => '$(EXE_FILES)' },
'dist' => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
);
package MY;
sub postamble
{
my @m;
if (@request_aliases && grep($_ eq 'lwp-request', @programs_to_install)) {
push @m, "all ::\n";
if ($^O eq 'MSWin32') {
push @m, "\t\$(FULLPERL) -e \"use Config; chdir q[\$(INST_EXE)]; "
."foreach (qw(@request_aliases)) { \" \\\n";
push @m, <<'EOT';
-e "unlink \"$$_\"; " \
-e "system(\"copy lwp-request $$_\") && die; }"
EOT
} else {
push @m, "\t\$(FULLPERL) -e 'use Config; chdir q{\$(INST_EXE)}; "
."foreach (qw(@request_aliases)) {' \\\n";
push @m, <<'EOT';
-e 'unlink "$$_";' \
-e 'system("$$Config{\"lns\"} lwp-request $$_") && die; }'
EOT
}
}
join "", @m;
}
# What happens when we say 'make test'
sub test
{
q(
TEST_VERBOSE=0
test: all
$(FULLPERL) t/TEST $(TEST_VERBOSE)
);
}
# Determine things that should *not* be installed
sub libscan
{
my($self, $path) = @_;
return '' if $path =~ m/.(pl|dtd|sgml)$/;
return '' if $path =~ m:\bCVS/:;
return '' if $path =~ m/~$/;
$path;
}
# Pass libwww-perl version number to pod2man
sub manifypods
{
my $self = shift;
my $ver = $self->{VERSION} || "";
local($_) = $self->SUPER::manifypods(@_);
s/pod2man\s*$/pod2man --release libwww-perl-$ver/m;
$_;
}