LTI import gen random password for new users.

Uses App::Genpass to generate 16 character random passwords for new
users (if the user didn't specify one).

Author: ionparticle

lib/WebworkBridge/Importer/CourseCreator.pm

@@ -12,6 +12,7 @@ use WeBWorK::Utils qw(runtime_use readFile cryptPassword);
 
 use WebworkBridge::Importer::Error;
 
+use App::Genpass;
 use Text::CSV;
 
 # Constructor
@@ -97,6 +98,7 @@ sub createClassList
 	# write students
 	# profid may be a comma separated list of ids, to support multiple profs
 	my @profid = split(/,/, $course{profid});
+	my $genpass = App::Genpass->new(length=>16);
 	foreach my $i (@students)
 	{
 		my $id = $i->{'loginid'};
@@ -115,7 +117,7 @@ sub createClassList
 		print FILE "$id,"; # login id
 		$i->{password} ? 
 			print FILE cryptPassword($i->{password})."," : 
-			print FILE ","; # password
+			print FILE $genpass->generate,","; # password
 		print FILE "$i->{'permission'}\n"; # permission
 	}
 

lib/WebworkBridge/Importer/CourseUpdater.pm

@@ -6,6 +6,7 @@ use warnings;
 
 use Time::HiRes qw/gettimeofday/;
 use Date::Format;
+use App::Genpass;
 
 use WeBWorK::CourseEnvironment;
 use WeBWorK::DB;
@@ -255,8 +256,9 @@ sub addUser
 		$cryptedpassword = cryptPassword($new_user_info->{'password'});
 	}
 	else
-	{
-		$cryptedpassword = cryptPassword($new_user->student_id());
+	{ # no password given, so default to random password
+		my $genpass = App::Genpass->new(length=>16);
+		$cryptedpassword = cryptPassword($genpass->generate);
 	}
 	my $password = $db->newPassword(user_id => $id);
 	$password->password($cryptedpassword);