source: gs3-extensions/hathitrust-downloadfrom/trunk/signed-htc-get-data-api.pl@ 26436

#!/usr/bin/perl -w

use strict;
use warnings;

use CGI;
use OAuth::Lite::Consumer;
use OAuth::Lite::AuthMethod;

#my $access_key = 'PUBLIC_OAUTH_CONSUMER_KEY';
#my $secret_key = 'PUBLIC_OAUTH_CONSUMER_SECRET';

my $access_key = '7e6ee38bae';                   # PUBLIC_OAUTH_CONSUMER_KEY
my $secret_key = 'e0429c0394385486249b4a230702'; # PUBLIC_OAUTH_CONSUMER_SECRET

#my $request_url = 'http://babel.hathitrust.org/cgi/htd/dapiserver';
#my $request_url = "http://babel.hathitrust.org/cgi/htd/meta/mdp.39015019203879";
my $request_url = "http://babel.hathitrust.org/cgi/htd/pagemeta/mdp.39015000000128/12";


my $consumer = OAuth::Lite::Consumer->new( 'consumer_key' => $access_key,
                       'consumer_secret' => $secret_key,
                       'auth_method' => OAuth::Lite::AuthMethod::URL_QUERY );

my $response = $consumer->request( 'method' => 'GET',
                   'url' => $request_url,
#                  'params' => { 'hello' => 'world' } 
);

print CGI::header();

print "<p><b>[CLIENT] sent this URL to server:</b><br/>";
print $consumer->oauth_request->uri;

print "<p><b>[CLIENT] received this HTTP response from server:</b><br/>";
print $response->status_line;

if ($response->is_success) {
    print "<br/><b>[CLIENT] received this content response from server:</b><blockquote>" .
    $response->content . "</blockquote>";
}

print STDERR "*****\n ", $consumer->oauth_request->uri, "\n";


exit 0;