{"id":670,"date":"2009-11-25T16:42:07","date_gmt":"2009-11-25T20:42:07","guid":{"rendered":"http:\/\/www.dr-chuck.com\/wordpress\/?p=670"},"modified":"2011-12-17T12:31:40","modified_gmt":"2011-12-17T16:31:40","slug":"basic-lti-and-oauth-in-perl-snippet","status":"publish","type":"post","link":"https:\/\/www.dr-chuck.com\/csev-blog\/2009\/11\/basic-lti-and-oauth-in-perl-snippet\/","title":{"rendered":"Basic LTI and OAuth in PERL (Snippet)"},"content":{"rendered":"<p>\nDavid 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 &#8220;hello world\\n&#8221; version :)<\/p>\n<pre>\n#!\/usr\/bin\/perl<br \/>\nuse Net::OAuth;<br \/>\n$Net::OAuth::PROTOCOL_VERSION = Net::OAuth::PROTOCOL_VERSION_1_0A;<br \/>\nuse CGI;<br \/>\nmy $q = new CGI;<br \/>\nprint \"Content-type: text\/html\\n\\n\";<br \/>\nmy $request = Net::OAuth->request(\"request token\")->from_hash({$q->Vars},<\/p>\n","protected":false},"excerpt":{"rendered":"<p>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 &#8220;hello world\\n&#8221; version :) #!\/usr\/bin\/perl use Net::OAuth; $Net::OAuth::PROTOCOL_VERSION = Net::OAuth::PROTOCOL_VERSION_1_0A; use CGI; my $q = new CGI; print &#8220;Content-type: text\/html\\n\\n&#8221;; my $request = Net::OAuth->request(&#8220;request token&#8221;)->from_hash({$q->Vars},<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"class_list":["post-670","post","type-post","status-publish","format-standard","hentry","category-uncategorized"],"_links":{"self":[{"href":"https:\/\/www.dr-chuck.com\/csev-blog\/wp-json\/wp\/v2\/posts\/670","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.dr-chuck.com\/csev-blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.dr-chuck.com\/csev-blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.dr-chuck.com\/csev-blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.dr-chuck.com\/csev-blog\/wp-json\/wp\/v2\/comments?post=670"}],"version-history":[{"count":1,"href":"https:\/\/www.dr-chuck.com\/csev-blog\/wp-json\/wp\/v2\/posts\/670\/revisions"}],"predecessor-version":[{"id":2793,"href":"https:\/\/www.dr-chuck.com\/csev-blog\/wp-json\/wp\/v2\/posts\/670\/revisions\/2793"}],"wp:attachment":[{"href":"https:\/\/www.dr-chuck.com\/csev-blog\/wp-json\/wp\/v2\/media?parent=670"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.dr-chuck.com\/csev-blog\/wp-json\/wp\/v2\/categories?post=670"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.dr-chuck.com\/csev-blog\/wp-json\/wp\/v2\/tags?post=670"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}