1: #!/usr/bin/perl
2:
3: =pod
4:
5: =head1 NAME
6:
7: make_domain_coordinator.pl - Make a domain coordinator on a LON-CAPA system
8:
9: =cut
10:
11: # The LearningOnline Network
12: # make_domain_coordinator.pl - Make a domain coordinator on a system
13: #
14: # $Id: make_domain_coordinator.pl,v 1.10 2006/08/11 20:09:02 albertel Exp $
15: #
16: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
17: #
18: # LON-CAPA is free software; you can redistribute it and/or modify
19: # it under the terms of the GNU General Public License as published by
20: # the Free Software Foundation; either version 2 of the License, or
21: # (at your option) any later version.
22: #
23: # LON-CAPA is distributed in the hope that it will be useful,
24: # but WITHOUT ANY WARRANTY; without even the implied warranty of
25: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
26: # GNU General Public License for more details.
27: #
28: # You should have received a copy of the GNU General Public License
29: # along with LON-CAPA; if not, write to the Free Software
30: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
31: #
32: # /home/httpd/html/adm/gpl.txt
33: #
34: # http://www.lon-capa.org/
35: #
36: ###
37:
38: =pod
39:
40: =head1 DESCRIPTION
41:
42: Automates the steps for domain coordinator creation. This
43: program also describes a manual procedure (see below).
44:
45: These are the steps that are executed on the linux operating system:
46:
47: =over 4
48:
49: =item *
50:
51: Tests to see if user already exists for linux system or for
52: LON-CAPA, if so aborts. A message is output that recommends following
53: a manual procedure enabling this user if so desired.
54:
55: =item *
56:
57: Creates a linux system user
58:
59: =item *
60:
61: Sets password
62:
63: =item *
64:
65: Creates a LON-CAPA lonUsers directory for user
66:
67: =item *
68:
69: Sets LON-CAPA password mechanism to be "unix"
70:
71: =item *
72:
73: Set roles.hist and roles.db
74:
75: =back
76:
77: =cut
78:
79: # NOTE: I am interspersing the manual procedure with the automation.
80: # To see the manual procedure, do perldoc ./make_domain_coordinator.pl
81:
82: # This is a standalone script. It *could* alternatively use the
83: # lcuseradd script, however lcuseradd relies on certain system
84: # dependencies. In order to have a focused performance, I am trying
85: # to avoid system dependencies until the LON-CAPA code base becomes
86: # more robust and well-boundaried. make_domain_coordinator.pl should be able
87: # to run freely as possible, irrespective of the status of a LON-CAPA
88: # installation.
89:
90: # ---------------------------------------------------- Configure general values
91:
92: use lib '/home/httpd/lib/perl/';
93: use LONCAPA;
94:
95: =pod
96:
97: =head1 OPTIONS
98:
99: There are no flags to this script.
100:
101: usage: make_domain_coordinator.pl [USERNAME] [DOMAIN]
102:
103: The password is accepted through standard input
104: and should only consist of printable ASCII
105: characters and be a string of length greater than 5 characters.
106:
107: The first argument
108: specifies the user name of the domain coordinator and
109: should consist of only alphanumeric characters.
110: It is recommended that the USERNAME should be institution-specific
111: as opposed to something like "Sammy" or "Jo".
112: For example, "dcmsu" or "dcumich" would be good domain coordinator
113: USERNAMEs for places like Mich State Univ, etc.
114:
115: The second argument specifies the domain of the computer
116: coordinator and should consist of only alphanumeric characters.
117:
118: =cut
119:
120: # ----------------------------------------------- So, are we invoked correctly?
121: # Two arguments or abort
122: if (@ARGV!=2) {
123: die('usage: make_domain_coordinator.pl [USERNAME] [DOMAIN] '."\n".
124: '(and password through standard input)'."\n".
125: 'It is recommended that the USERNAME should be institution-specific '.
126: "\n".'as opposed to something like "Sammy" or "Jo".'."\n".
127: 'For example, "dcmsu" or "dcumich" would be good domain coordinator'.
128: "\n".'USERNAMEs for places like Mich State Univ, etc.'."\n");
129: }
130: my ($username,$domain)=(@ARGV); shift @ARGV; shift @ARGV;
131: unless ($username=~/^\w+$/ and $username!~/\_/) {
132: die('**** ERROR **** '.
133: 'Username '.$username.' must consist only of alphanumeric characters'.
134: "\n");
135: }
136: unless ($domain=~/^\w+$/ and $domain!~/\_/) {
137: die('**** ERROR **** '.
138: 'Domain '.$domain.' must consist only of alphanumeric characters'.
139: "\n");
140: }
141:
142: # Output a warning message.
143: print('**** NOTE **** '.
144: 'Generating a domain coordinator is "serious business".'."\n".
145: 'Choosing a difficult-to-guess (and keeping it a secret) password '."\n".
146: 'is highly recommended.'."\n");
147:
148: print("Password: "); $|=1;
149: my $passwd=<>; # read in password from standard input
150: chomp($passwd);
151:
152: if (length($passwd)<6 or length($passwd)>30) {
153: die('**** ERROR **** '.'Password is an unreasonable length.'."\n".
154: 'It should be at least 6 characters in length.'."\n");
155: }
156: my $pbad=0;
157: foreach (split(//,$passwd)) {if ((ord($_)<32)||(ord($_)>126)){$pbad=1;}}
158: if ($pbad) {
159: die('**** ERROR **** '.
160: 'Password must consist of standard ASCII characters'."\n");
161: }
162:
163: # And does user already exist
164:
165: my $caveat =
166: 'For security reasons, this script will only automatically generate '."\n".
167: 'new users, not pre-existing users.'."\n".
168: "If you want to make '$username' a domain coordinator, you "."\n".
169: 'should do so manually by customizing the MANUAL PROCEDURE'."\n".
170: 'described in the documentation. To view the documentation '."\n".
171: 'for this script, type '.
172: "'perldoc ./make_domain_coordinator.pl'."."\n";
173:
174: if (-d "/home/$username") {
175: die ('**** ERROR **** '.$username.' is already a linux operating system '.
176: 'user.'."\n".$caveat);
177: }
178: my $udpath=&propath($domain,$username);
179: if (-d $udpath) {
180: die ('**** ERROR **** '.$username.' is already defined as a LON-CAPA '.
181: 'user.'."\n".$caveat);
182: }
183:
184: =pod
185:
186: =head1 MANUAL PROCEDURE
187:
188: There are 10 steps to manually recreating what this script performs
189: automatically.
190:
191: You need to decide on three pieces of information
192: to create a domain coordinator.
193:
194: * USERNAME (kermit, albert, joe, etc)
195: * DOMAIN (should be the same as lonDefDomain in /etc/httpd/conf/loncapa.conf)
196: * PASSWORD (don't tell me)
197:
198: The examples in these instructions will be based
199: on three example pieces of information:
200:
201: * USERNAME=dc103
202: * DOMAIN=103
203: * PASSWORD=sesame
204:
205: You will also need to know your "root" password
206: and your "www" password.
207:
208: =over 4
209:
210: =item 1.
211:
212: login as root on your Linux system
213: [prompt %] su
214:
215: =cut
216:
217: # ------------------------------------------------------------ So, are we root?
218:
219: if ($< != 0) { # Am I root?
220: die 'You must be root in order to generate a domain coordinator.'."\n";
221: }
222:
223: =pod
224:
225: =item 2 (as root). add the user
226:
227: Command: [prompt %] /usr/sbin/useradd USERNAME
228: Example: [prompt %] /usr/sbin/useradd dc103
229:
230: =cut
231:
232: # ----------------------------------------------------------- /usr/sbin/useradd
233:
234: $username=~s/\W//g; # an extra filter, just to be sure
235: `/usr/sbin/useradd $username`; # Add the user with the 'useradd' command.
236:
237: =pod
238:
239: =item 3 (as root). enter in a password
240:
241: Command: [prompt %] passwd USERNAME
242: New UNIX password: PASSWORD
243: Retype new UNIX passwd: PASSWORD
244: Example: [prompt %] passwd dc103
245: New UNIX password: sesame
246: Retype new UNIX passwd: sesame
247:
248: =cut
249:
250: # Process password (taint-check, then pass to the UNIX passwd command).
251: $username =~ s/\W//g; # an extra filter, just to be sure
252: $pbad = 0;
253: foreach (split(//,$passwd)) {if ((ord($_)<32)||(ord($_)>126)){$pbad=1;}}
254: if ($pbad) {
255: die('Password must consist of standard ASCII characters'."\n");
256: }
257: open(OUT,"|passwd --stdin $username");
258: print(OUT $passwd."\n");
259: close(OUT);
260:
261: =pod
262:
263: =cut
264:
265: =pod
266:
267: =item 4. login as user=www
268:
269: Command: [prompt %] su www
270: Password: WWWPASSWORD
271:
272: =item 5. (as www). cd /home/httpd/lonUsers
273:
274: =item 6. (as www) Create user directory for your new user.
275:
276: Let U equal first letter of USERNAME
277: Let S equal second letter of USERNAME
278: Let E equal third letter of USERNAME
279: Command: [prompt %] install -d DOMAIN/U/S/E/USERNAME
280:
281: Here are three examples of the commands that would be needed
282: for different domain coordinator names (dc103, morphy, or ng):
283:
284: Example #1 (dc103): [prompt %] install -d 103/d/c/1/dc103
285: Example #2 (morphy): [prompt %] install -d 103/m/o/r/morphy
286: Example #3 (ng): [prompt %] install -d 103/n/g/_/ng
287:
288: =cut
289:
290: # Generate the user directory.
291: `install -o www -g www -d $udpath`; # Must be writeable by httpd process.
292:
293: =pod
294:
295: =item 7. (as www) Enter the newly created user directory.
296:
297: Command: [prompt %] cd DOMAIN/U/S/E/USERNAME
298: Example: [prompt %] cd 103/d/c/1/dc103
299:
300: =item 8. (as www). Set your password mechanism to 'unix'
301:
302: Command: [prompt %] echo "unix:" > passwd
303:
304: =cut
305:
306: # UNIX (/etc/passwd) style authentication is asserted for domain coordinators.
307: open(OUT, ">$udpath/passwd");
308: print(OUT 'unix:'."\n");
309: close(OUT);
310: `chown www:www $udpath/passwd`; # Must be writeable by httpd process.
311:
312: =pod
313:
314: =item 9. (as www). Run CVS:loncapa/doc/rolesmanip.pl:
315:
316: Command: [prompt %] perl rolesmanip.pl DOMAIN USERNAME
317: Example: [prompt %] perl rolesmanip.pl 103 dc103
318:
319: =cut
320:
321: use GDBM_File; # A simplistic key-value pairing database.
322:
323: my $rolesref=&LONCAPA::locking_hash_tie("$udpath/roles.db",&GDBM_WRCREAT());
324: if (!$rolesref) {
325: die('unable to tie roles db: '."$udpath/roles.db");
326: }
327: $rolesref->{'/'.$domain.'/_dc'}='dc'; # Set the domain coordinator role.
328: open(OUT, ">$udpath/roles.hist"); # roles.hist is the synchronous plain text.
329: foreach my $key (keys(%{$rolesref})) {
330: print(OUT $key.' : '.$rolesref->{$key}."\n");
331: }
332: close(OUT);
333: &LONCAPA::locking_hash_untie($rolesref);
334:
335:
336: `chown www:www $udpath/roles.hist`; # Must be writeable by httpd process.
337: `chown www:www $udpath/roles.db`; # Must be writeable by httpd process.
338:
339: =pod
340:
341: =item 10.
342:
343: You may further define the domain coordinator user (i.e. dc103)
344: by going to http://MACHINENAME/adm/createuser.
345:
346: =cut
347:
348: # Output success message, and inform sysadmin about how to further proceed.
349: print("$username is now a domain coordinator\n"); # Output success message.
350: my $hostname=`hostname`; chomp($hostname); # Read in hostname.
351: print("http://$hostname/adm/createuser will allow you to further define".
352: " this user.\n"); # Output a suggested URL.
353:
354: =pod
355:
356: =head1 AUTHOR
357:
358: Written to help the LON-CAPA project.
359:
360: =cut
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to make_domain_coordinator.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / build