David Pang came up to the Duderstadt Center this afternoon and we hacked up the beginnings of a perl Basic LTI Tool Producer. This is the “hello world\n” version :)

#!/usr/bin/perl

use Net::OAuth;

$Net::OAuth::PROTOCOL_VERSION = Net::OAuth::PROTOCOL_VERSION_1_0A;

use CGI;

my $q = new CGI;

print "Content-type: text/html\n\n";

my $request = Net::OAuth->request("request token")->from_hash({$q->Vars},