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