1: <!-- updatequery.piml -->
2: <!-- Scott Harrison -->
3:
4: <!-- $Id: updatequery.piml,v 1.8 2002/05/13 17:56:29 harris41 Exp $ -->
5:
6: <!--
7:
8: This file is part of the LearningOnline Network with CAPA (LON-CAPA).
9:
10: LON-CAPA is free software; you can redistribute it and/or modify
11: it under the terms of the GNU General Public License as published by
12: the Free Software Foundation; either version 2 of the License, or
13: (at your option) any later version.
14:
15: LON-CAPA is distributed in the hope that it will be useful,
16: but WITHOUT ANY WARRANTY; without even the implied warranty of
17: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18: GNU General Public License for more details.
19:
20: You should have received a copy of the GNU General Public License
21: along with LON-CAPA; if not, write to the Free Software
22: Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
23:
24: /home/httpd/html/adm/gpl.txt
25:
26: http://www.lon-capa.org/
27:
28: -->
29:
30: <piml>
31: <targetroot>/</targetroot>
32: <files>
33: <file>
34: <target dist='default'>/</target>
35: <perlscript mode='fg'>
36: $|=1;
37: print(<<END);
38:
39:
40: *********************************************
41: *********************************************
42: **** ****
43: **** LON-CAPA SYSTEM INFORMATION REQUEST ****
44: **** ****
45: **** Please respond to the choices below ****
46: **** ****
47: *********************************************
48: *********************************************
49:
50: END
51: sleep(3);
52: </perlscript>
53: </file>
54: <file>
55: <target dist='default'>/home/httpd/lonUsers2/</target>
56: <perlscript mode='fg'>
57: $|=1;
58: unless (-e "<TARGET />") {
59: print(<<END);
60: WELCOME TO LON-CAPA!
61:
62: If you have questions, please visit http://install.lon-capa.org
63: or contact sharrison\@mail.lon-capa.org.
64:
65: ===============================================================================
66: The following 4 values are needed to configure LON-CAPA:
67: * Machine Role
68: * LON-CAPA Domain Name
69: * LON-CAPA Machine ID Name, and
70: * System Administration E-mail Address.
71: END
72:
73: open(OUT,'>/tmp/loncapa_updatequery.out');
74: close(OUT);
75:
76: # query for Machine Role
77: print(<<END);
78: **** Machine Role ****
79: Library server (recommended if first-time installation of LON-CAPA):
80: Servers that are repositories of authoritative educational resources.
81: These servers also provide the construction space by which instructors
82: assemble their classroom online material.
83: Access server:
84: Servers that load-balance high-traffic delivery of educational resources
85: over the world-wide web.
86: 1) Will this be a library server? (recommended if this is your first install)
87: 2) Or, will this be an access server?
88: END
89: my $flag=0;
90: my $r='';
91: my $lonRole;
92: while (!$flag) {
93: print "ENTER A CHOICE OF 1 or 2:\n";
94: my $choice=<>;
95: chomp($choice);
96: if ($choice==1) {
97: open(OUT,'>>/tmp/loncapa_updatequery.out');
98: print(OUT 'lonRole'."\t".'library'."\n");
99: close(OUT);
100: $lonRole='library';
101: $r='l';
102: $flag=1;
103: }
104: elsif ($choice==2) {
105: open(OUT,'>>/tmp/loncapa_updatequery.out');
106: print(OUT 'lonRole'."\t".'access'."\n");
107: close(OUT);
108: $lonRole='access';
109: $r='a';
110: $flag=2;
111: }
112: else {
113:
114: }
115: }
116:
117: # need to recommend a machine ID name (ipdomain.l.somenumber)
118: my $hostname=`hostname`; chomp($hostname);
119: my $ipdomain='';
120: if ($hostname=~/([^\.]*)\.([^\.]*)$/) {
121: $ipdomain=$1;
122: }
123:
124: print(<<END);
125:
126: **** Domain ****
127: [this does NOT need to correspond to internet address domains,
128: examples might be "msu" or "bionet" or "vermontcc"]
129: END
130:
131: # get domain name
132: # accept if valid, if not valid, tell user and repeat
133: $flag=0;
134: my $lonDefDomain;
135: while (!$flag) {
136: if ($ipdomain) {
137: print(<<END);
138: ENTER LONCAPA DOMAIN [$ipdomain]:
139: END
140: }
141: else {
142: print(<<END);
143: ENTER LONCAPA DOMAIN:
144: END
145: }
146: my $choice=<>;
147: chomp($choice);
148: if ($ipdomain and $choice=~/^\s*$/) {
149: $choice=$ipdomain;
150: open(OUT,'>>/tmp/loncapa_updatequery.out');
151: print(OUT 'lonDefDomain'."\t".$choice."\n");
152: close(OUT);
153: $lonDefDomain=$choice;
154: $flag=1;
155: }
156: elsif ($choice!~/\_/ and $choice=~/^\w+$/) {
157: open(OUT,'>>/tmp/loncapa_updatequery.out');
158: print(OUT 'lonDefDomain'."\t".$choice."\n");
159: close(OUT);
160: $lonDefDomain=$choice;
161: $r='l';
162: $flag=1;
163: }
164: else {
165: print "Invalid input (only alphanumeric characters supported).\n";
166: }
167: }
168:
169: my $lonHostID;
170: if ($lonDefDomain) {
171: $lonHostID=$lonDefDomain.$r.int(1+rand(9)); # should be probably also detect
172: # against the hosts.tab
173: }
174:
175: print(<<END);
176:
177: **** Machine ID Name ****
178: [this does NOT need to correspond to internet address names;
179: this name MUST be unique to the whole LON-CAPA network;
180: we recommend that you use a name based off of your institution;
181: good examples: "msul1" or "bionetl1";
182: bad examples: "loncapabox" or "studentsinside"]
183: END
184: # get machine name
185: # accept if valid, if not valid, tell user and repeat
186: $flag=0;
187: while (!$flag) {
188: if ($ipdomain) {
189: print(<<END);
190: ENTER LONCAPA MACHINE ID [$lonHostID]:
191: END
192: }
193: else {
194: print(<<END);
195: ENTER LONCAPA MACHINE ID:
196: END
197: }
198: my $choice=<>;
199: chomp($choice);
200: if ($lonHostID and $choice=~/^\s*$/) {
201: $choice=$lonHostID;
202: open(OUT,'>>/tmp/loncapa_updatequery.out');
203: print(OUT 'lonHostID'."\t".$choice."\n");
204: close(OUT);
205: $lonHostID=$choice;
206: $flag=1;
207: }
208: elsif ($choice!~/\_/ and $choice=~/^\w+$/) {
209: open(OUT,'>>/tmp/loncapa_updatequery.out');
210: print(OUT 'lonHostID'."\t".$choice."\n");
211: close(OUT);
212: $lonHostID=$choice;
213: $flag=1;
214: }
215: else {
216: print "Invalid input (only alphanumeric characters supported).\n";
217: }
218: }
219:
220: # get e-mail address
221: # accept if valid, if not valid, tell user and repeat
222: $flag=0;
223: my $lonAdmEmail;
224: while (!$flag) {
225: print(<<END);
226:
227: **** System Administrator's E-mail ****
228: E-mail address of the person who will manage this machine
229: [should be in the form somebody\@somewhere]
230: ENTER E-MAIL ADDRESS:
231: END
232:
233: my $choice=<>;
234: chomp($choice);
235: if ($choice=~/\@/) {
236: open(OUT,'>>/tmp/loncapa_updatequery.out');
237: print(OUT 'lonAdmEmail'."\t".$choice."\n");
238: close(OUT);
239: $lonAdmEmail=$choice;
240: $flag=1;
241: }
242: else {
243: print "Invalid input (this needs to look like an e-mail address!).\n";
244: }
245: }
246:
247: # update loncapa.conf
248: my $confdir='/etc/httpd/conf/';
249: #my $confdir='';
250: my $filename='loncapa.conf';
251: my %perlvar;
252: if (-e "$confdir$filename") {
253: open(CONFIG,'<'.$confdir.$filename) or die("Can't read $confdir$filename");
254: while (my $configline=<CONFIG>) {
255: if ($configline =~ /^[^\#]*PerlSetVar/) {
256: my ($unused,$varname,$varvalue)=split(/\s+/,$configline);
257: chomp($varvalue);
258: $perlvar{$varname}=$varvalue;
259: }
260: }
261: close(CONFIG);
262: }
263: $perlvar{'lonHostID'}=$lonHostID;
264: $perlvar{'lonDefDomain'}=$lonDefDomain;
265: $perlvar{'lonAdmEmail'}=$lonAdmEmail;
266: $perlvar{'lonRole'}=$lonRole;
267: unless ($perlvar{'lonSqlAccess'}) {
268: $perlvar{'lonSqlAccess'}='localhostkey';
269: }
270: unless ($perlvar{'lonLoadLim'}) {
271: $perlvar{'lonLoadLim'}='2.00';
272: }
273: unless ($perlvar{'lonExpire'}) {
274: $perlvar{'lonExpire'}='86400';
275: }
276: unless ($perlvar{'lonReceipt'}) {
277: my $lonReceipt='';
278: srand($$.time);
279: my @alnum=(0..9,a..z);
280: foreach my $i (1..20) {
281: $lonReceipt.=$alnum[int(rand(36))];
282: }
283: $perlvar{'lonReceipt'}=$lonReceipt;
284: }
285: open(OUT,">$confdir$filename") or
286: die("Cannot output to $confdir$filename\n");
287: foreach my $key (keys %perlvar) {
288: my $value=$perlvar{$key};
289: print(OUT <<END);
290: PerlSetVar $key $value
291: END
292: }
293: close(OUT);
294: }
295: </perlscript>
296: </file>
297: <file>
298: <target dist='default'>/</target>
299: <perlscript mode='fg'>
300: # read values from loncapa.conf
301: my $confdir='/etc/httpd/conf/';
302: #my $confdir='';
303: my $filename='loncapa.conf';
304: my %perlvar;
305: if (-e "$confdir$filename") {
306: open(CONFIG,'<'.$confdir.$filename) or
307: die("Can't read $confdir$filename");
308: while (my $configline=<CONFIG>) {
309: if ($configline =~ /^[^\#]*PerlSetVar/) {
310: my ($unused,$varname,$varvalue)=split(/\s+/,$configline);
311: chomp($varvalue);
312: $perlvar{$varname}=$varvalue;
313: }
314: }
315: close(CONFIG);
316: }
317: my %perlvarstatic;
318: if (-e "${confdir}loncapa_apache.conf") {
319: open(CONFIG,'<'.$confdir.'loncapa_apache.conf') or
320: die("Can't read ${confdir}loncapa_apache.conf");
321: while (my $configline=<CONFIG>) {
322: if ($configline =~ /^[^\#]*PerlSetVar/) {
323: my ($unused,$varname,$varvalue)=split(/\s+/,$configline);
324: chomp($varvalue);
325: $perlvarstatic{$varname}=$varvalue;
326: }
327: }
328: close(CONFIG);
329: }
330: # implement editing logic below, interactively
331: # update loncapa.conf until 7 is entered
332:
333: $flag=0;
334: while (!$flag) {
335: print(<<END);
336:
337: ===============================================================================
338: This is now the current configuration of your machine.
339: 1) Domain Name: $perlvar{'lonDefDomain'}
340: 2) Machine Name: $perlvar{'lonHostID'}
341: 3) System Administrator's E-mail Address: $perlvar{'lonAdmEmail'}
342: 4) Role: $perlvar{'lonRole'}
343: 5) Cache Expiration Time: $perlvar{'lonExpire'}
344: 6) Server Load: $perlvar{'lonLoadLim'}
345: 7) Everything is correct up above
346: END
347: print(<<END);
348: ENTER A CHOICE OF 1-6 TO CHANGE, otherwise ENTER 7:
349: END
350: my $choice=<>;
351: chomp($choice);
352: if ($choice==1) {
353: print(<<END);
354: 2) Domain Name: $perlvar{'lonDefDomain'}
355: ENTER NEW VALUE:
356: END
357: my $choice2=<>;
358: chomp($choice2);
359: $perlvar{'lonDefDomain'}=$choice2;
360: }
361: elsif ($choice==2) {
362: print(<<END);
363: 1) Machine Name: $perlvar{'lonHostID'}
364: ENTER NEW VALUE:
365: END
366: my $choice2=<>;
367: chomp($choice2);
368: $perlvar{'lonHostID'}=$choice2;
369: }
370: elsif ($choice==3) {
371: print(<<END);
372: 3) System Administrator's E-mail Address: $perlvar{'lonAdmEmail'}
373: ENTER NEW VALUE:
374: END
375: my $choice2=<>;
376: chomp($choice2);
377: $perlvar{'lonAdmEmail'}=$choice2;
378: }
379: elsif ($choice==4) {
380: print(<<END);
381: 4) Role: $perlvar{'lonRole'}
382: ENTER NEW VALUE:
383: END
384: my $choice2=<>;
385: chomp($choice2);
386: $perlvar{'lonRole'}=$choice2;
387: }
388: elsif ($choice==5) {
389: print(<<END);
390: 5) Cache Expiration Time: $perlvar{'lonExpire'}
391: ENTER NEW VALUE:
392: END
393: my $choice2=<>;
394: chomp($choice2);
395: $perlvar{'lonExpire'}=$choice2;
396: }
397: elsif ($choice==6) {
398: print(<<END);
399: 6) Server Load: $perlvar{'lonLoadLim'}
400: ENTER NEW VALUE:
401: END
402: my $choice2=<>;
403: chomp($choice2);
404: $perlvar{'lonLoadLim'}=$choice2;
405: }
406: elsif ($choice==7) {
407: $flag=1;
408: }
409: else {
410:
411: }
412: }
413: open(OUT,">$confdir$filename") or
414: die("Cannot output to $confdir$filename\n");
415: foreach my $key (keys %perlvar) {
416: my $value=$perlvar{$key};
417: print(OUT <<END) unless $perlvarstatic{$key};
418: PerlSetVar $key $value
419: END
420: }
421: close(OUT);
422: </perlscript>
423: </file>
424: <file>
425: <target dist='default'>loncom/hosts.tab</target>
426: <perlscript mode='fg'>
427: unless (-l "<TARGET />") {
428: print(<<END);
429:
430: ===============================================================================
431: What hosts.tab would you like to have installed?
432: (hosts.tab is a listing of all other internet machines
433: that a server system considers to be valid server systems
434: on the LON-CAPA network)
435:
436: 1) PRODUCTION - you want to deliver courses today or sometime very soon
437: on this machine
438: 2) STAND-ALONE - you want this machine to run in 'stand-alone' mode and
439: not be connected to other LON-CAPA machines for now
440: 3) DEVELOPMENT - you want to play with or explore LON-CAPA
441: 4) PRESERVE the existing hosts.tab (/home/httpd/lonTabs/hosts.tab)
442:
443: END
444: # Option number 26 will install rawhide_hosts.tab, but
445: # the typical user does not want to be part of an intensive
446: # machine test cluster.
447:
448: # get input
449: # if valid then process, otherwise loop
450: my $hostname=`hostname`;chomp($hostname);
451: my $hostaddress=`hostname -i $hostname`;chomp($hostaddress);
452: $flag=0;
453: while (!$flag) {
454: print "ENTER 1, 2, 3, or 4:\n";
455: my $choice=<>;
456: chomp($choice);
457: if ($choice==1) {
458: $lonCluster='production';
459: `rm -f ../hosts.tab`;
460: `ln -s production_hosts.tab ../hosts.tab`;
461: $flag=1;
462: }
463: elsif ($choice==2) {
464: $lonCluster='standalone';
465: open(OUT,'>../standalone_hosts.tab') or
466: die("cannot open loncom/standalone_hosts.tab for output\n");
467: print(OUT <<END);
468: $perlvar{'lonHostID'}:$perlvar{'lonDefDomain'}:$perlvar{'lonRole'}:$hostname:$hostaddress
469: END
470: close(OUT);
471: `rm -f ../hosts.tab`;
472: `ln -s standalone_hosts.tab ../hosts.tab`;
473: $flag=1;
474: }
475: elsif ($choice==3) {
476: $lonCluster='development';
477: `rm -f loncom/hosts.tab`;
478: `ln -s development_hosts.tab ../hosts.tab`;
479: $flag=1;
480: }
481: elsif ($choice==4) {
482: $lonCluster='existing';
483: `rm -f ../hosts.tab`;
484: `touch existing_hosts.tab`;
485: if (-e '/home/httpd/lonTabs/hosts.tab') {
486: `cp /home/httpd/lonTabs/hosts.tab ../existing_hosts.tab`;
487: }
488: `ln -s existing_hosts.tab ../hosts.tab`;
489: $flag=1;
490: }
491: elsif ($choice==26) {
492: $lonCluster='rawhide';
493: `rm -f ../hosts.tab`;
494: `ln -s rawhide_hosts.tab ../hosts.tab`;
495: $flag=1;
496: }
497: else {
498:
499: }
500: }
501:
502: }
503: </perlscript>
504: </file>
505: </files>
506: </piml>
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to updatequery.piml CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / doc / loncapafiles