1use ExtUtils::MakeMaker qw(prompt WriteMakefile);
2
3$r = prompt("Do you want to perform tests\nthat require an active Network connection?", "N");
4if(lc(substr($r, 0, 1)) eq 'y' && open(C, ">t/have_network")) {
5  print C "ok";
6  close C;
7} else {
8  unlink "t/have_network";
9}
10
11sub MY::postamble {
12q{
13.PHONY: release
14
15index.html: lib/Image/Grab.pm
16	pod2html lib/Image/Grab.pm > index.html
17
18release: README index.html $(DISTVNAME).tar$(SUFFIX)
19	scp index.html superman.everybody.org:public_html/hacks/perl/Image-Grab/Image-Grab-$(VERSION).html
20	scp ChangeLog superman.everybody.org:public_html/hacks/perl/Image-Grab/
21	scp $(DISTVNAME).tar.$(SUFFIX) superman.everybody.org:public_html/hacks/perl/Image-Grab/
22	ssh superman.everybody.org rm public_html/hacks/perl/Image-Grab/Image-Grab.tar.gz
23	ssh superman.everybody.org ln -sf $(DISTVNAME).tar.$(SUFFIX) public_html/hacks/perl/Image-Grab/Image-Grab.tar.gz
24	stty -echo
25	perl -e 'use LWP::UserAgent;                                     \
26		use HTTP::Request::Common qw(POST);                     \
27		$$ua = LWP::UserAgent->new;                              \
28		print "Password: "; \
29		$$pass = <STDIN>; \
30                chomp $$pass; \
31                print "\n"; sub LWP::UserAgent::get_basic_credentials {("MAHEX", $$pass)}; \
32		my $$req = $$ua->request(POST "https://pause.perl.org/pause/authenquery?ACTION=add_uri", \
33			[ pause99_add_uri_uri =>                  \
34			q{http://mah.everybody.org/hacks/perl/Image-Grab/Image-Grab-$(VERSION).tar.gz}, \
35			submit => q{SUBMIT_pause99_add_uri_uri}]); \
36		print $$req->as_string;'
37	stty echo
38}}
39
40
41WriteMakefile(
42    'NAME'	=> 'Image::Grab',
43    'VERSION_FROM' => 'lib/Image/Grab.pm',
44    'PREREQ_PM' => {Digest::MD5 => 2.07,
45		    HTML::TreeBuilder => 0.51,
46		    HTTP::Cookies => 0,
47		    HTML::HeadParser => 0, # From libwww-perl
48		    URI::URL => 1, # From libwww-perl
49		    LWP::UserAgent => 0,
50		   },
51    dist        => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
52);
53
54