| 1 | #!/usr/bin/env perl |
1 | #!/usr/bin/env perl |
| 2 | |
2 | |
| 3 | ################################################################################ |
3 | ################################################################################ |
| 4 | # WeBWorK mod_perl (c) 1995-2002 WeBWorK Team, Univeristy of Rochester |
4 | # WeBWorK mod_perl (c) 1995-2002 WeBWorK Team, Univeristy of Rochester |
| 5 | # $Id: addcourse,v 1.1 2003-12-04 06:03:25 sh002i Exp $ |
5 | # $Id: addcourse,v 1.2 2003-12-04 06:16:25 sh002i Exp $ |
| 6 | ################################################################################ |
6 | ################################################################################ |
| 7 | |
7 | |
| 8 | =head1 NAME |
8 | =head1 NAME |
| 9 | |
9 | |
| 10 | addcourse - add a course |
10 | addcourse - add a course |
| … | |
… | |
| 51 | use FindBin; |
51 | use FindBin; |
| 52 | use Getopt::Long; |
52 | use Getopt::Long; |
| 53 | use lib "$FindBin::Bin/../lib"; |
53 | use lib "$FindBin::Bin/../lib"; |
| 54 | use WeBWorK::CourseEnvironment; |
54 | use WeBWorK::CourseEnvironment; |
| 55 | use WeBWorK::DB; |
55 | use WeBWorK::DB; |
| 56 | use WeBWorK::Utils qw/readFile/; |
56 | use WeBWorK::Utils qw/readFile cryptPassword/; |
| 57 | |
57 | |
| 58 | sub usage { |
58 | sub usage { |
| 59 | print STDERR "$0 [--users=FILE [--professors=USERID[,USERID]...] ]\n"; |
59 | print STDERR "$0 [--users=FILE [--professors=USERID[,USERID]...] ]\n"; |
| 60 | print STDERR "[--templates=DIR] COURSEID\n"; |
60 | print STDERR "[--templates=DIR] COURSEID\n"; |
| 61 | exit; |
61 | exit; |
| … | |
… | |
| 145 | $PermissionLevel->permission(0); |
145 | $PermissionLevel->permission(0); |
| 146 | } |
146 | } |
| 147 | |
147 | |
| 148 | my $Password = $db->newPassword; |
148 | my $Password = $db->newPassword; |
| 149 | $Password->user_id($user_id); |
149 | $Password->user_id($user_id); |
| 150 | $Password->password($student_id); |
150 | $Password->password(cryptPassword($student_id)); |
| 151 | |
151 | |
| 152 | $db->addUser($User); |
152 | $db->addUser($User); |
| 153 | $db->addPermissionLevel($PermissionLevel); |
153 | $db->addPermissionLevel($PermissionLevel); |
| 154 | $db->addPassword($Password); |
154 | $db->addPassword($Password); |
| 155 | |
155 | |
Parent Directory
| 
Revision Log
| 
Patch