vcs.maemo.org Git - dh-make-perl/blob - dev/arm/libnet-ssleay-perl/libnet-ssleay-perl-1.35/debian/libnet-ssleay-perl/usr/share/doc/libnet-ssleay-perl/examples/get_authenticated_page.pl

   1 #!/usr/bin/perl
   2 # 8.6.1998, Sampo Kellomaki <sampo@iki.fi>
   3 # Get a page via HTTP and print some info about it.
   4 # Demonstrates how to generate password header
   5
   6 use Net::SSLeay  qw(get_https make_headers);
   7 use MIME::Base64;
   8
   9 ($user, $pass, $site, $port, $path) = @ARGV;
  10 die "Usage: ./get_authenticated_page.pl user pass www.bacus.com 443 /\n"
  11     unless $path;
  12
  13 ($page, $result, %headers) =
  14     get_https($site, $port, $path,
  15               make_headers('Authorization' =>
  16                            'Basic ' . MIME::Base64::encode("$user:$pass"))
  17               );
  18
  19 print "Result was `$result'\n";
  20 foreach $h (sort keys %headers) {
  21     print "Header `$h'\tvalue `$headers{$h}'\n";
  22 }
  23
  24 print "=================== Page follows =================\n";
  25 print $page;
  26
  27 __END__