Permalink
Cannot retrieve contributors at this time
canvas-demo-techex17/canvas/provision_canvas.pl
Go to file| #!/usr/bin/perl -w | |
| # | |
| # provision_canvas.pl, DESCRIPTION | |
| # | |
| # Copyright (C) 2017 Tom Jordan | |
| # | |
| # This program is free software; you can redistribute it and/or | |
| # modify it under the terms of the GNU General Public License | |
| # as published by the Free Software Foundation; either version 2 | |
| # of the License, or (at your option) any later version. | |
| # | |
| # This program is distributed in the hope that it will be useful, | |
| # but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| # GNU General Public License for more details. | |
| # | |
| # $Id:$ | |
| # Tom Jordan <tom.jordan@wisc.edu> | |
| use vars qw/$VERSION $FILE/; | |
| ($VERSION) = q$Revision: 1.1 $ =~ /([\d.]+)/; | |
| ($FILE) = q$RCSfile: provision_canvas.pl,v $ =~ /^[^:]+: ([^\$]+),v $/; | |
| use strict; | |
| use REST::Client; | |
| use JSON; | |
| use Net::LDAP; | |
| use Data::Dumper; | |
| my $debug = 1; | |
| my $canvas_url = "https://tier.instructure.com"; | |
| my $canvas_token = "10675~b1IIAPh31TCIBMRsmEqLUL436htu5Q7CP8JPMhRncRpKVh9uWYIDxbkCNWN7vSKD"; | |
| my $header; | |
| $header->{'Authorization'} = "Bearer: $canvas_token"; | |
| $header->{'Content-type'} = "application/json"; | |
| my $client = REST::Client->new({ | |
| host => $canvas_url, | |
| timeout => 10 | |
| }); | |
| # disable certificate checking | |
| $client->getUseragent()->ssl_opts(verify_hostname => 0); | |
| $client->getUseragent()->ssl_opts(SSL_verify_mode => "SSL_VERIFY_NONE"); | |
| my $ldap_host = "127.0.0.1"; | |
| my $ldap_admin = "cn=admin,dc=example,dc=edu"; | |
| my $ldap_password = "password"; | |
| my $course_groups_dn = "ou=groups,dc=example,dcu=edu"; | |
| my $ldap = Net::LDAP->new( $ldap_host, port => 389) or die $@; | |
| my $mesg = $ldap->bind($ldap_admin, password => $ldap_password); | |
| die "unable to bind to ldap: $@\n" if (!(defined($mesg))); | |
| my $course_groups = get_course_groups($course_groups_dn); | |
| foreach my $course_group (@$course_groups) { | |
| print "About to process enrollments for $course_group\n" if $debug; | |
| process_enrollments($course_group); | |
| } | |
| sub get_course_groups { | |
| my $groups_dn = shift; | |
| print "Fetching Course Groups\n" if $debug; | |
| my @course_groups; | |
| push @course_groups,"cn=app:canvas:users,ou=groups,dc=example,dc=edu"; | |
| push @course_groups,"cn=app:canvas:class_cs251,ou=groups,dc=example,dc=edu"; | |
| push @course_groups,"cn=app:canvas:class_cs252,ou=groups,dc=example,dc=edu"; | |
| print "Done fetching course groups\n" if $debug; | |
| return \@course_groups; | |
| } | |
| sub process_enrollments { | |
| my $course_group = shift; | |
| print "processing enrollments for course group: $course_group\n" if $debug; | |
| # TODO: Add the course to canvas | |
| my $course_id = add_course_to_canvas($course_group); | |
| print "COURSE_ID: $course_id\n" if $debug; | |
| # TODO: Get current members | |
| print "searching ldap for group: $course_group\n" if $debug; | |
| $mesg = $ldap->search(base => $course_group, | |
| filter => '(objectclass=*)'); | |
| my $entry = $mesg->entry(0); | |
| my @members = $entry->get_value('member'); | |
| # TODO: Get user details for each member | |
| foreach my $member (@members) { | |
| # TODO: Validate whether or not the user needs to be added to canvas | |
| my $member_details = get_member_details($member); | |
| add_user_to_canvas($member_details); | |
| # TODO: Add the users to the course | |
| add_user_to_course($member_details,$course_group,$course_id); | |
| } | |
| } | |
| sub get_member_details { | |
| my $member_dn = shift; | |
| print "Getting member details for $member_dn\n" if $debug; | |
| $mesg = $ldap->search(base => $member_dn, | |
| filter => '(objectclass=*)'); | |
| my $entry = $mesg->entry(0); | |
| my $member_details; | |
| # TODO: Get name and uid, and set a default password | |
| my $uid = $entry->get_value('uid'); | |
| $member_details->{user}->{name} = $entry->get_value('cn'); | |
| $member_details->{user}->{skip_registration} = "true"; | |
| $member_details->{pseudonym}->{unique_id} = $uid."\@example.edu"; | |
| $member_details->{pseudonym}->{password} = "password"; | |
| print "Dumping user details..\n" if $debug; | |
| print Dumper $member_details if $debug; | |
| return $member_details; | |
| } | |
| sub add_user_to_canvas { | |
| my $member_details = shift; | |
| my $json_user = to_json($member_details); | |
| print "Adding user: $json_user\n" if $debug; | |
| $client->POST("/api/v1/accounts/1/users?access_token=$canvas_token",$json_user,$header); | |
| my $response = from_json($client->responseContent()); | |
| print Dumper $response if $debug; | |
| } | |
| sub add_course_to_canvas { | |
| my $course_group = shift; | |
| print "Adding course $course_group to Canvas\n" if $debug; | |
| my ($course_name) = ($course_group =~ m/cn=(.*),ou=groups,dc=example,dc=edu/); | |
| print "Modified course_name: $course_name\n" if $debug; | |
| my $course; | |
| $course->{course}->{name} = $course_name; | |
| my $json_course = to_json($course); | |
| print "Adding course: $json_course\n" if $debug; | |
| $client->POST("/api/v1/accounts/1/courses?access_token=$canvas_token",$json_course,$header); | |
| my $response = from_json($client->responseContent()); | |
| my $course_id = $response->{id}; | |
| print "*** COURSE_ID: $course_id\n" if $debug; | |
| print "Returning Course_ID: $course_id\n" if $debug; | |
| return $course_id; | |
| } | |
| sub add_user_to_course { | |
| my $member_details = shift; | |
| my $course_group = shift; | |
| my $course_id = shift; | |
| # TODO: Get user's user_id | |
| my $login_id = $member_details->{pseudonym}->{unique_id}; | |
| $client->GET("/api/v1/accounts/1/users?access_token=$canvas_token&search_term=$login_id"); | |
| my $response = from_json($client->responseContent()); | |
| my $user_id = @$response[0]->{id}; | |
| # TODO: Get Course ID | |
| #my ($course_name) = ($course_group =~ m/cn=(.*),ou=groups,dc=example,dc=edu/); | |
| #print "looking for Course Name: $course_name\n" if $debug; | |
| #$client->GET("/api/v1/accounts/1/courses?access_token=$canvas_token&search_terms=$course_name"); | |
| #$response = from_json($client->responseContent()); | |
| #print $client->responseContent() if $debug; | |
| #my $course_id = @$response[0]->{id}; | |
| #print "Found Course_ID: $course_id\n" if $debug; | |
| # TODO: Add user to course | |
| my $enrollment; | |
| $enrollment->{enrollment}->{type} = "StudentEnrollment"; | |
| $enrollment->{enrollment}->{user_id} = $user_id; | |
| $enrollment->{enrollment}->{enrollment_state} = "active"; | |
| my $json_enrollment = to_json($enrollment); | |
| print "Adding enrollment: $json_enrollment\n" if $debug; | |
| $client->POST("/api/v1/courses/$course_id/enrollments?access_token=$canvas_token",$json_enrollment,$header); | |
| print Dumper $client->responseContent(); | |
| $response = from_json($client->responseContent()); | |
| print Dumper $response if $debug; | |
| } | |