Image-Grab

 view release on metacpan or  search on metacpan

ChangeLog  view on Meta::CPAN


	* 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 )