Image-Grab
view release on metacpan or search on metacpan
* t/cookies.t: Created for cookie dependent tests.
1999-05-18 Mark A. Hershberger <mah@everybody.org>
* Grab/RequestAgent.pm (new): Updated & simplified proxy code
* Grab/RequestAgent.pm (register_realm): Fixed code so it actually
works.
* Grab/RequestAgent.pm (get_basic_credentials): Fixed code.
* Grab/RequestAgent.pm: Removed some crufty functions.
* Grab.pm (realm): Fixed realm problem. Interface Change!
1999-02-19 Mark A. Hershberger <mah@everybody.org>
* t/easy.t, t/md5.t, t/type.t: Removed fork dependency and set it
to a "live" site.
Makefile.PL view on Meta::CPAN
scp $(DISTVNAME).tar.$(SUFFIX) superman.everybody.org:public_html/hacks/perl/Image-Grab/
ssh superman.everybody.org rm public_html/hacks/perl/Image-Grab/Image-Grab.tar.gz
ssh superman.everybody.org ln -sf $(DISTVNAME).tar.$(SUFFIX) public_html/hacks/perl/Image-Grab/Image-Grab.tar.gz
stty -echo
perl -e 'use LWP::UserAgent; \
use HTTP::Request::Common qw(POST); \
$$ua = LWP::UserAgent->new; \
print "Password: "; \
$$pass = <STDIN>; \
chomp $$pass; \
print "\n"; sub LWP::UserAgent::get_basic_credentials {("MAHEX", $$pass)}; \
my $$req = $$ua->request(POST "https://pause.perl.org/pause/authenquery?ACTION=add_uri", \
[ pause99_add_uri_uri => \
q{http://mah.everybody.org/hacks/perl/Image-Grab/Image-Grab-$(VERSION).tar.gz}, \
submit => q{SUBMIT_pause99_add_uri_uri}]); \
print $$req->as_string;'
stty echo
}}
WriteMakefile(
lib/Image/Grab/RequestAgent.pm view on Meta::CPAN
sub register_realm {
my $self = shift;
my $realm = shift;
my $user = shift;
my $pass = shift;
$realm{$realm}->{user} = $user;
$realm{$realm}->{pass} = $pass;
}
sub get_basic_credentials {
my ($self, $realm) = @_;
if(defined $realm{$realm}) {
return ($realm{$realm}->{user},
$realm{$realm}->{pass});
}
}
1;
( run in 0.263 second using v1.01-cache-2.11-cpan-4d50c553e7e )