Perl Moodle framework

[el8linuxel8]

#!/usr/bin/perl
#moodle email script
#dedicated to all junior IT techs who get all the shitty jobs
#this script dedicated my senior tech, BRUVA!
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request::Common;
use Getopt::Long;
use Crypt::SSLeay;
my %options;
#define your options here
%options = ( 'vle' => 'vle.broughton.lancsngfl.ac.uk',
  'emaildomain' => '@bbec.lancs.sch.uk',
   );
GetOptions(\%options,     'user=s',
                         'pass=s',
                         'url=s',
		  'newuser=s',
		  'newpass=s',
		  'createuser',
                       );

#create useragent object
my $ua = LWP::UserAgent->new( cookie_jar => ({}) );
$ua->env_proxy();
my $return = $ua->request(POST "http://login.vle.cleo.net.uk/1.8.2/?vle=$options{vle}",
			[ username => $options{user},
			  password => $options{pass},
			  testcookies => 0,
			  submit => 'Login',
			],
		);
my ($token) = $return->content =~ /token=([0-9a-f]+)\'/;
push @{ $ua->requests_redirectable }, 'POST';
$return = $ua->request(GET "http://login.vle.cleo.net.uk/content.php?"
		    ."url=http://$options{vle}/login/secure_login.php?token=$token");
#check if login succeeded
$return = $ua->request(GET "http://$options{vle}");
die "Login failed" unless $return->content =~ /User Admin/;
my ($sesskey) = $return->content =~ /sesskey=(\S+)\"/;

#edituser($options{newuser}, $options{newpass}, $sesskey) if $options{createuser};
my @uids = grabbyquery($sesskey, 'cleo');
for my $userid (@uids) {
print $userid . "\n";
}

sub edituser {
my ($username, $password, $sesskey) = @_;
my ($lastname, $firstname) = $username =~ /([0-9a-z]+)([a-z])$/;
my $uid = finduid($username) || '-1';
my $return = $ua->request(POST 'http://$options{vle}/user/editadvanced.php',
			Content_Type => 'form-data',
			Content => [
			username => $username,
			newpassword => $password,
			preference_auth_forcepasswordchange => 1,
			firstname => $firstname,
			lastname => $lastname,
			email => $username . $options{email},
			city => 'Preston',
			country => 'GB',
			MAX_FILE_SIZE => 31457280,
			id => $uid,
			course => 1,
			mform_showadvanced_last => 0,
			sesskey => $sesskey,
			_qf__user_editadvanced_form => 1,
			auth => 'manual',
			maildisplay => 2,
			emailstop => 0,
			mailformat => 1,
			preference_mailcharset => 0,
			maildigest => 0,
			autosubscribe => 1,
			trackforums => 0,
			htmleditor => 1,
			ajax => 0,
			screenreader => 0,
			lang => 'en_utf8', 
			],
			);
}

sub finduid {
my $username = shift;
my $return = $ua->request(GET "http://$options{vle}/admin/user.php?search=$username");
my ($uid) = $return->content =~ /\.\.\/user\/view.php\?id=([0-9]+)/;
return $uid;
}

sub deluser {
my ($username, $sesskey) = @_;
my $uid = finduid($username);
my $return = $ua->request(GET "http://$options{vle}/admin/user.php?delete=$uid&sesskey=$sesskey");
my ($verify) = $return->content =~ /confirm" value="([a-z0-9]+)"/;
print "$verify\n";
$return = $ua->request(POST 'http://$options{vle}/admin/user.php',
		Content => [
				delete => $uid,
				confirm => $verify,
				sesskey => $sesskey,
			   ],
		);
}

sub grabbyquery {
my ($sesskey, $search) = @_;
my $return = $ua->request(GET "http://$options{vle}/admin/user.php?sort=firstname&
		       dir=ASC&perpage=30&firstinitial=&lastinitial=&$search=cleo&page=0");
my $hits = $return->content =~ />([0-9]+) \//;
$return = $ua->request(GET "http://$options{vle}/admin/user.php?sort=firstname&
		    dir=ASC&perpage=$hits&firstinitial=&lastinitial=&search=$search&page=0");
my @uids = $return->content =~ /\.\.\/user\/view.php\?id=([0-9]+)/g;
return @uids;
}

 

Just another quickie, I wrote this one this yesterday. Its just a simple moodle framework that can do password resets, delete users.

 

its pretty self explanatory and you have to do a bit of work with the code to make it do what you want.

 

the grabby() sub is nice cos you can then edit users via a search of the moodle user base...

 

the reason i scripted it up is because cleo does not give us any decent database access. this means i cannot fix an error they made (alot of our users are given the @cleo.void.net.uk email which is lame, with this i can easily update all the users to their correct email.

 

i know the answer is to host our own moodle but thats not viable atm, so cleo if you read this, PLEASE GIVE US PHPMYADMIN ACCESS!

 

have phun!

[SimpleSi]

Very interesting - I think the moodle team need to give you a job

 

Why don't you just use the normal user account/bulk upload facility for password/email changes?

 

regards

 

Simon

[el8linuxel8]

Yeah, we've done that for a while..the problem arises when you need to delete users...e.g. at the end of the year when you need to remove a yeargroup.

By default the SIMS upload utility creates those users with the broken email address's, at least from what i remember..

 

Don't forget it also saves alot of time by making it easy to add a user in a single command, delete a user or reset the password..(it was also fun )

 

anyway, any improvments, suggestions are welcomed (i know the code quality is a little shoddy, it needs tidying up )

 

also, id love a job at cleo...if it paid better that is (which im sure it would)

[Geoff]

You can bulk delete in 1.9.

[el8linuxel8]

Thanks for the info Geoff, i dont tend to keep much of an interest in the moodle CVS

 

but like i say, its just a framework, there is much more possibilities than just the bulk delete..iv combined it with the lgfl script too so now i can create both users at once...now for AD intergration

 

Have any other idea's i could add to it anyone? Geoff?