Annotation of doc/loncapafiles/updatequery.piml, revision 1.8

1.2       harris41    1: <!-- updatequery.piml -->
1.1       harris41    2: <!-- Scott Harrison -->
                      3: 
1.8     ! harris41    4: <!-- $Id: updatequery.piml,v 1.7 2002/05/13 09:05:18 harris41 Exp $ -->
1.1       harris41    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>
1.4       harris41   34: <target dist='default'>/</target>
1.1       harris41   35: <perlscript mode='fg'>
1.4       harris41   36: $|=1;
1.1       harris41   37:   print(&lt;&lt;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
1.4       harris41   51: sleep(3);
1.1       harris41   52: </perlscript>
                     53: </file>
                     54: <file>
1.8     ! harris41   55: <target dist='default'>/home/httpd/lonUsers2/</target>
1.1       harris41   56: <perlscript mode='fg'>
1.4       harris41   57: $|=1;
1.1       harris41   58: unless (-e "<TARGET />") {
                     59:   print(&lt;&lt;END);
                     60:            WELCOME TO LON-CAPA!
                     61: 
                     62: If you have questions, please visit http://install.lon-capa.org
1.5       harris41   63: or contact sharrison\@mail.lon-capa.org.
1.1       harris41   64: 
                     65: ===============================================================================
1.4       harris41   66: The following 4 values are needed to configure LON-CAPA:
                     67: * Machine Role
1.8     ! harris41   68: * LON-CAPA Domain Name
        !            69: * LON-CAPA Machine ID Name, and
1.1       harris41   70: * System Administration E-mail Address.
                     71: END
1.3       harris41   72: 
1.4       harris41   73: open(OUT,'&gt;/tmp/loncapa_updatequery.out');
                     74: close(OUT);
                     75: 
1.3       harris41   76: # query for Machine Role
                     77:   print(&lt;&lt;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.
1.4       harris41   86: 1) Will this be a library server? (recommended if this is your first install)
1.3       harris41   87: 2) Or, will this be an access server?
                     88: END
1.4       harris41   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=&lt;&gt;;
                     95:   chomp($choice);
                     96:   if ($choice==1) {
                     97:     open(OUT,'&gt;&gt;/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,'&gt;&gt;/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: }
1.3       harris41  116: 
                    117: # need to recommend a machine ID name (ipdomain.l.somenumber)
1.4       harris41  118: my $hostname=`hostname`; chomp($hostname);
                    119: my $ipdomain='';
                    120: if ($hostname=~/([^\.]*)\.([^\.]*)$/) {
                    121:   $ipdomain=$1;
                    122: }
1.1       harris41  123: 
                    124:   print(&lt;&lt;END);
                    125: 
1.8     ! harris41  126: **** Domain ****
        !           127: [this does NOT need to correspond to internet address domains,
        !           128:  examples might be "msu" or "bionet" or "vermontcc"]
1.1       harris41  129: END
1.8     ! harris41  130: 
        !           131: # get domain name
1.1       harris41  132: # accept if valid, if not valid, tell user and repeat
1.4       harris41  133: $flag=0;
1.8     ! harris41  134: my $lonDefDomain;
1.4       harris41  135: while (!$flag) {
                    136: if ($ipdomain) {
                    137: print(&lt;&lt;END);
1.8     ! harris41  138: ENTER LONCAPA DOMAIN [$ipdomain]:
1.4       harris41  139: END
                    140: }
                    141: else {
                    142:   print(&lt;&lt;END);
1.8     ! harris41  143: ENTER LONCAPA DOMAIN:
1.4       harris41  144: END
                    145: }
                    146:   my $choice=&lt;&gt;;
                    147:   chomp($choice);
1.8     ! harris41  148:   if ($ipdomain and $choice=~/^\s*$/) {
        !           149:     $choice=$ipdomain;
1.4       harris41  150:     open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
1.8     ! harris41  151:     print(OUT 'lonDefDomain'."\t".$choice."\n");
1.4       harris41  152:     close(OUT);
1.8     ! harris41  153:     $lonDefDomain=$choice;
1.4       harris41  154:     $flag=1;
                    155:   }
                    156:   elsif ($choice!~/\_/ and $choice=~/^\w+$/) {
                    157:     open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
1.8     ! harris41  158:     print(OUT 'lonDefDomain'."\t".$choice."\n");
1.4       harris41  159:     close(OUT);
1.8     ! harris41  160:     $lonDefDomain=$choice;
        !           161:     $r='l';
1.4       harris41  162:     $flag=1;
                    163:   }
                    164:   else {
                    165:     print "Invalid input (only alphanumeric characters supported).\n";
                    166:   }
                    167: }
1.1       harris41  168: 
1.8     ! harris41  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: 
1.1       harris41  175:   print(&lt;&lt;END);
                    176: 
1.8     ! harris41  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"]
1.1       harris41  183: END
1.8     ! harris41  184: # get machine name
1.1       harris41  185: # accept if valid, if not valid, tell user and repeat
1.4       harris41  186: $flag=0;
                    187: while (!$flag) {
                    188: if ($ipdomain) {
                    189: print(&lt;&lt;END);
1.8     ! harris41  190: ENTER LONCAPA MACHINE ID [$lonHostID]:
1.4       harris41  191: END
                    192: }
                    193: else {
                    194:   print(&lt;&lt;END);
1.8     ! harris41  195: ENTER LONCAPA MACHINE ID:
1.4       harris41  196: END
                    197: }
                    198:   my $choice=&lt;&gt;;
                    199:   chomp($choice);
1.8     ! harris41  200:   if ($lonHostID and $choice=~/^\s*$/) {
        !           201:     $choice=$lonHostID;
1.4       harris41  202:     open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
1.8     ! harris41  203:     print(OUT 'lonHostID'."\t".$choice."\n");
1.4       harris41  204:     close(OUT);
1.8     ! harris41  205:     $lonHostID=$choice;
1.4       harris41  206:     $flag=1;
                    207:   }
                    208:   elsif ($choice!~/\_/ and $choice=~/^\w+$/) {
                    209:     open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
1.8     ! harris41  210:     print(OUT 'lonHostID'."\t".$choice."\n");
1.4       harris41  211:     close(OUT);
1.8     ! harris41  212:     $lonHostID=$choice;
1.4       harris41  213:     $flag=1;
                    214:   }
                    215:   else {
                    216:     print "Invalid input (only alphanumeric characters supported).\n";
                    217:   }
                    218: }
1.1       harris41  219: 
1.4       harris41  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) {
1.1       harris41  225:   print(&lt;&lt;END);
                    226: 
                    227: **** System Administrator's E-mail ****
                    228: E-mail address of the person who will manage this machine
1.4       harris41  229: [should be in the form somebody\@somewhere]
1.1       harris41  230: ENTER E-MAIL ADDRESS:
                    231: END
                    232: 
1.4       harris41  233:   my $choice=&lt;&gt;;
                    234:   chomp($choice);
                    235:   if ($choice=~/\@/) {
                    236:     open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
                    237:     print(OUT 'lonAdmEmail'."\t".$choice."\n");
                    238:     close(OUT);
1.5       harris41  239:     $lonAdmEmail=$choice;
1.4       harris41  240:     $flag=1;
                    241:   }
                    242:   else {
                    243:     print "Invalid input (this needs to look like an e-mail address!).\n";
                    244:   }
                    245: }
                    246: 
1.1       harris41  247: # update loncapa.conf
1.7       harris41  248: my $confdir='/etc/httpd/conf/';
                    249: #my $confdir='';
1.5       harris41  250: my $filename='loncapa.conf';
                    251: my %perlvar;
                    252:     if (-e "$confdir$filename") {
                    253: 	open(CONFIG,'&lt;'.$confdir.$filename) or die("Can't read $confdir$filename");
                    254: 	while (my $configline=&lt;CONFIG&gt;) {
                    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,"&gt;$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 &lt;&lt;END);
                    290: PerlSetVar     $key      $value
                    291: END
                    292:     }
                    293:     close(OUT);
1.1       harris41  294: }
                    295: </perlscript>
                    296: </file>
                    297: <file>
1.5       harris41  298: <target dist='default'>/</target>
1.1       harris41  299: <perlscript mode='fg'>
                    300: # read values from loncapa.conf
1.7       harris41  301: my $confdir='/etc/httpd/conf/';
                    302: #my $confdir='';
1.5       harris41  303: my $filename='loncapa.conf';
                    304: my %perlvar;
                    305:     if (-e "$confdir$filename") {
                    306: 	open(CONFIG,'&lt;'.$confdir.$filename) or 
                    307:           die("Can't read $confdir$filename");
                    308: 	while (my $configline=&lt;CONFIG&gt;) {
                    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:     }
1.7       harris41  317: my %perlvarstatic;
                    318:     if (-e "${confdir}loncapa_apache.conf") {
                    319: 	open(CONFIG,'&lt;'.$confdir.'loncapa_apache.conf') or 
                    320:           die("Can't read ${confdir}loncapa_apache.conf");
                    321: 	while (my $configline=&lt;CONFIG&gt;) {
                    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:     }
1.6       harris41  330: # implement editing logic below, interactively
                    331: # update loncapa.conf until 7 is entered
                    332: 
                    333: $flag=0;
                    334: while (!$flag) {
1.1       harris41  335:   print(&lt;&lt;END);
                    336: 
                    337: ===============================================================================
                    338: This is now the current configuration of your machine.
1.8     ! harris41  339: 1) Domain Name: $perlvar{'lonDefDomain'}
        !           340: 2) Machine Name: $perlvar{'lonHostID'}
1.5       harris41  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'}
1.1       harris41  345: 7) Everything is correct up above
1.6       harris41  346: END
                    347:   print(&lt;&lt;END);
1.1       harris41  348: ENTER A CHOICE OF 1-6 TO CHANGE, otherwise ENTER 7:
                    349: END
1.5       harris41  350: my $choice=&lt;&gt;;
                    351: chomp($choice);
1.6       harris41  352:   if ($choice==1) {
                    353:   print(&lt;&lt;END);
1.8     ! harris41  354: 2) Domain Name: $perlvar{'lonDefDomain'}
1.6       harris41  355: ENTER NEW VALUE:
                    356: END
                    357:     my $choice2=&lt;&gt;;
                    358:     chomp($choice2);
1.8     ! harris41  359:     $perlvar{'lonDefDomain'}=$choice2;
1.6       harris41  360:   }
                    361:   elsif ($choice==2) {
                    362:   print(&lt;&lt;END);
1.8     ! harris41  363: 1) Machine Name: $perlvar{'lonHostID'}
1.6       harris41  364: ENTER NEW VALUE:
                    365: END
                    366:     my $choice2=&lt;&gt;;
                    367:     chomp($choice2);
1.8     ! harris41  368:     $perlvar{'lonHostID'}=$choice2;
1.6       harris41  369:   }
                    370:   elsif ($choice==3) {
                    371:   print(&lt;&lt;END);
                    372: 3) System Administrator's E-mail Address: $perlvar{'lonAdmEmail'}
                    373: ENTER NEW VALUE:
                    374: END
                    375:     my $choice2=&lt;&gt;;
                    376:     chomp($choice2);
                    377:     $perlvar{'lonAdmEmail'}=$choice2;
                    378:   }
                    379:   elsif ($choice==4) {
                    380:   print(&lt;&lt;END);
                    381: 4) Role: $perlvar{'lonRole'}
                    382: ENTER NEW VALUE:
                    383: END
                    384:     my $choice2=&lt;&gt;;
                    385:     chomp($choice2);
                    386:     $perlvar{'lonRole'}=$choice2;
                    387:   }
                    388:   elsif ($choice==5) {
                    389:   print(&lt;&lt;END);
                    390: 5) Cache Expiration Time: $perlvar{'lonExpire'}
                    391: ENTER NEW VALUE:
                    392: END
                    393:     my $choice2=&lt;&gt;;
                    394:     chomp($choice2);
                    395:     $perlvar{'lonExpire'}=$choice2;
                    396:   }
                    397:   elsif ($choice==6) {
                    398:   print(&lt;&lt;END);
                    399: 6) Server Load: $perlvar{'lonLoadLim'}
                    400: ENTER NEW VALUE:
                    401: END
                    402:     my $choice2=&lt;&gt;;
                    403:     chomp($choice2);
                    404:     $perlvar{'lonLoadLim'}=$choice2;
                    405:   }
                    406:   elsif ($choice==7) {
                    407:     $flag=1;
                    408:   }
                    409:   else {
1.1       harris41  410: 
1.6       harris41  411:   }
                    412: }
1.7       harris41  413:     open(OUT,"&gt;$confdir$filename") or
                    414:       die("Cannot output to $confdir$filename\n");
                    415:     foreach my $key (keys %perlvar) {
                    416:       my $value=$perlvar{$key};
1.8     ! harris41  417:       print(OUT &lt;&lt;END) unless $perlvarstatic{$key};
1.7       harris41  418: PerlSetVar     $key      $value
                    419: END
                    420:     }
                    421:     close(OUT);
1.1       harris41  422: </perlscript>
                    423: </file>
                    424: <file>
                    425: <target dist='default'>loncom/hosts.tab</target>
                    426: <perlscript mode='fg'>
                    427: unless (-l "<TARGET />") {
                    428:   print(&lt;&lt;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
1.5       harris41  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
1.6       harris41  441: 4) PRESERVE the existing hosts.tab (/home/httpd/lonTabs/hosts.tab)
1.1       harris41  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
1.6       harris41  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=&lt;&gt;;
                    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,'&gt;../standalone_hosts.tab') or
                    466:       die("cannot open loncom/standalone_hosts.tab for output\n");
                    467:     print(OUT &lt;&lt;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: }
1.1       harris41  501: 
                    502: }
                    503: </perlscript>
                    504: </file>
                    505: </files>
                    506: </piml>

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>