Return to updatequery.piml CVS log

Up to [LON-CAPA] / doc / loncapafiles

Argh.

    1: <!-- updatequery.piml -->
    2: 
    3: <!-- $Id: updatequery.piml,v 1.45 2006/01/07 14:29:16 www Exp $ -->
    4: 
    5: <!--
    6: 
    7: This file is part of the LearningOnline Network with CAPA (LON-CAPA).
    8: 
    9: LON-CAPA is free software; you can redistribute it and/or modify
   10: it under the terms of the GNU General Public License as published by
   11: the Free Software Foundation; either version 2 of the License, or
   12: (at your option) any later version.
   13: 
   14: LON-CAPA is distributed in the hope that it will be useful,
   15: but WITHOUT ANY WARRANTY; without even the implied warranty of
   16: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   17: GNU General Public License for more details.
   18: 
   19: You should have received a copy of the GNU General Public License
   20: along with LON-CAPA; if not, write to the Free Software
   21: Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
   22: 
   23: /home/httpd/html/adm/gpl.txt
   24: 
   25: http://www.lon-capa.org/
   26: 
   27: -->
   28: 
   29: <piml>
   30: <targetroot>/</targetroot>
   31: <files>
   32: <file>
   33: <target dist='default'>/</target>
   34: <perlscript mode='fg'>
   35: $|=1;
   36:   print(&lt;&lt;END);
   37: 
   38: 
   39: *********************************************
   40: *********************************************
   41: ****                                     ****
   42: **** LON-CAPA SYSTEM INFORMATION REQUEST ****
   43: ****                                     ****
   44: **** Please respond to the choices below ****
   45: ****                                     ****
   46: *********************************************
   47: *********************************************
   48: 
   49: END
   50: sleep(3);
   51: </perlscript>
   52: </file>
   53: <file>
   54: <target dist='default'>loncom/hosts.tab</target>
   55: <perlscript mode='fg'>
   56: unless (-l "<TARGET />") {
   57:   print(&lt;&lt;END);
   58: 
   59: ===============================================================================
   60: Which cluster option would you like to have installed?
   61: IMPORTANT: to take advantage of the cluster options 1) and 3),
   62: you must contact lon-capa\@lon-capa.org.
   63: 
   64: 1) PRODUCTION - you want to eventually connect this machine to the
   65:                 LON-CAPA content sharing network. This setting is for
   66:                 schools, colleges, and universities, that currently
   67:                 are running - or in the future will run - courses
   68: 2) STAND-ALONE - you want this machine to run in 'stand-alone' mode and
   69:                  not be connected to other LON-CAPA machines for now
   70: 3) DEVELOPMENT - you want to do software (not content!) development with
   71:                  this workstation and eventually link it with the
   72:                  workstations of other LON-CAPA software developers.
   73: 4) RUNNING YOUR OWN CLUSTER - this machine is not in the standard LON-CAPA
   74:                  clusters and won't be in the future and you want the existing
   75:                  hosts.tab and domain.tab files to be left alone.
   76:                  (This choice is unlikely what you want to select.)
   77: END
   78: # Option number 26 will install rawhide_hosts.tab, but
   79: # the typical user does not want to be part of an intensive
   80: # machine test cluster.
   81: 
   82: # get input
   83: # if valid then process, otherwise loop
   84: $flag=0;
   85: while (!$flag) {
   86:   print "ENTER 1, 2, 3, or 4:\n";
   87:   my $choice=&lt;&gt;;
   88:   chomp($choice);
   89:   if ($choice==1) {
   90:     $lonCluster='production'; $flag=1;
   91:   }
   92:   elsif ($choice==2) {
   93:     $lonCluster='standalone'; $flag=1;
   94:   }
   95:   elsif ($choice==3) {
   96:     $lonCluster='development'; $flag=1;
   97:   }
   98:   elsif ($choice==4) {
   99:     $lonCluster='existing'; $flag=1;
  100:     if (-e '/home/httpd/lonTabs/hosts.tab') {
  101:       `cp /home/httpd/lonTabs/hosts.tab ../existing_hosts.tab`;
  102:     }
  103:     else {
  104:       print &lt;&lt;END;
  105: There is no existing /home/httpd/lonTabs/hosts.tab
  106: END
  107:       die('');
  108:     }
  109:     if (-e '/home/httpd/lonTabs/domain.tab') {
  110:       `cp /home/httpd/lonTabs/domain.tab ../existing_domain.tab`;
  111:     }
  112:     else {
  113:       print &lt;&lt;END;
  114: There is no existing /home/httpd/lonTabs/domain.tab
  115: END
  116:       die('');
  117:     }
  118:   }
  119:   elsif ($choice==26) {
  120:     $lonCluster='rawhide'; $flag=1;
  121:   }
  122: }
  123: }
  124: </perlscript>
  125: </file>
  126: <file>
  127: <target dist='default'>/home/httpd/lonTabs/hosts.tab</target>
  128: <perlscript mode='fg'>
  129: $|=1;
  130: my $domainDescription;
  131: my $domainTabExtras;
  132: my $primaryLibServer;
  133: my @libservers = ();
  134: unless (-e "<TARGET />") {
  135:   print(&lt;&lt;END);
  136:            WELCOME TO LON-CAPA!
  137: 
  138: If you have questions, please visit http://install.lon-capa.org
  139: or contact helpdesk\@lon-capa.org.
  140: 
  141: ===============================================================================
  142: The following 4 values are needed to configure LON-CAPA:
  143: * Machine Role
  144: * LON-CAPA Domain Name
  145: * LON-CAPA Machine ID Name, and
  146: * System Administration E-mail Address.
  147: ===============================================================================
  148: 
  149: In addition, a Support E-mail Address can also be included. If
  150: an address is included then one of the options in the LON-CAPA 
  151: help menu will be a link to a form that a user will complete to
  152: request LON-CAPA help.  
  153: 
  154: END
  155: 
  156: open(OUT,'&gt;/tmp/loncapa_updatequery.out');
  157: close(OUT);
  158: 
  159: # query for Machine Role
  160:   print(&lt;&lt;END);
  161: **** Machine Role ****
  162: Library server (recommended if first-time installation of LON-CAPA):
  163:    Servers that are repositories of authoritative educational resources.
  164:    These servers also provide the construction space by which instructors
  165:    assemble their classroom online material.
  166: Access server:
  167:    Servers that load-balance high-traffic delivery of educational resources
  168:    over the world-wide web.
  169: 1) Will this be a library server? (recommended if this is your first install)
  170: 2) Or, will this be an access server?
  171: END
  172: my $flag=0;
  173: my $r='';
  174: my $lonRole;
  175: while (!$flag) {
  176:   print "ENTER A CHOICE OF 1 or 2:\n";
  177:   my $choice=&lt;&gt;;
  178:   chomp($choice);
  179:   if ($choice==1) {
  180:     open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
  181:     print(OUT 'lonRole'."\t".'library'."\n");
  182:     close(OUT);
  183:     $lonRole='library';
  184:     $r='l';
  185:     $flag=1;
  186:   }
  187:   elsif ($choice==2) {
  188:     open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
  189:     print(OUT 'lonRole'."\t".'access'."\n");
  190:     close(OUT);
  191:     $lonRole='access';
  192:     $r='a';
  193:     $flag=2;
  194:   }
  195:   else {
  196: 
  197:   }
  198: }
  199: 
  200: # need to recommend a machine ID name (ipdomain.l.somenumber)
  201: my $hostname=`hostname -f`; chomp($hostname);
  202: my $ipdomain='';
  203: if ($hostname=~/([^\.]*)\.([^\.]*)$/) {
  204:   $ipdomain=$1;
  205: }
  206: 
  207:   print(&lt;&lt;END);
  208: 
  209: **** Domain ****
  210: [This does NOT need to correspond to internet address domains.
  211:  Please make this name short AND descriptive of your organization.
  212:  Domain names are close to impossible to change later!!!
  213:  Good examples might be "msu" or "bionet" or "vermontcc".
  214:  Bad examples are "physics" (too general)
  215:    or "michiganstateuniversity" (too long)
  216:    or "msuedu" (internet domain, just make it "msu")
  217:    or "msuphysics" (only if there is a good reason to limit to department
  218:                     - we don't know of one)
  219:    or "mydomain" (what is that?)
  220:  Avoid multiple domains at the same institution, even if it means that you 
  221:  have to actually work together with your colleagues. You can still run
  222:  multiple library servers within the same domain.
  223:  If this domain is eventually going to be part of the main production
  224:  cluster, you MUST contact the LON-CAPA group at MSU (loncapa@loncapa.org)
  225:  to have a domain name assigned, and then use it exactly as given. This is
  226:  also true for test installs that might eventually turn into production setups.
  227:  Stop now if you didn't do so.]
  228: END
  229: 
  230: # get domain name
  231: # accept if valid, if not valid, tell user and repeat
  232: $flag=0;
  233: my $lonDefDomain;
  234: while (!$flag) {
  235: if ($ipdomain) {
  236: print(&lt;&lt;END);
  237: ENTER LONCAPA DOMAIN [$ipdomain]:
  238: END
  239: }
  240: else {
  241:   print(&lt;&lt;END);
  242: ENTER LONCAPA DOMAIN:
  243: END
  244: }
  245:   my $choice=&lt;&gt;;
  246:   chomp($choice);
  247:   my $bad_domain_flag=0;
  248:   my @bad_domain_names=('res','raw','userfiles','priv','adm','uploaded',
  249: 	'editupload');
  250:   foreach my $bad (@bad_domain_names) {
  251:     $bad_domain_flag=1 if $choice eq $bad;
  252:   }
  253:   if ($choice=~/capa/i) {
  254:      $bad_domain_flag=1;
  255:   }
  256:   if ($ipdomain and $choice=~/^\s*$/) {
  257:     $choice=$ipdomain;
  258:     open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
  259:     print(OUT 'lonDefDomain'."\t".$choice."\n");
  260:     close(OUT);
  261:     $lonDefDomain=$choice;
  262:     $flag=1;
  263:   } elsif (length($choice)>12) {
  264:     print "Name too long\n";
  265:   } elsif (length($choice)<2) {
  266:     print "Name too short\n";
  267:   } elsif ($bad_domain_flag) {
  268:     print "Invalid input ('$choice' conflicts with LON-CAPA namespace).\n";
  269:     print "Please try something different than '$choice'\n";
  270:   } elsif ($choice!~/\_/ and $choice=~/^\w+$/) {
  271:     open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
  272:     print(OUT 'lonDefDomain'."\t".$choice."\n");
  273:     close(OUT);
  274:     $lonDefDomain=$choice;
  275:     $r='l';
  276:     $flag=1;
  277:   } else {
  278:     print "Invalid input (only alphanumeric characters supported).\n";
  279:   }
  280: }
  281: 
  282: 
  283: # get domain description
  284: # accept if valid, if not valid, tell user and repeat
  285: $flag=0;
  286: 
  287: while (!$flag) {
  288:   print(&lt;&lt;END);
  289: 
  290: **** Domain Description ****
  291: String describing the domain, to be shown to users.
  292: [Example, msu is Michigan State University]
  293: ENTER DOMAIN DESCRIPTION:
  294: END
  295: 
  296:   my $choice=&lt;&gt;;
  297:   chomp($choice);
  298:   if ($choice!~/:/) {
  299:     open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
  300:     print(OUT 'domainDescription'."\t".$choice."\n");
  301:     close(OUT);
  302:     $domainDescription=$choice;
  303:     $flag=1;
  304:   }
  305:   else {
  306:     print "Invalid input (no ':' allowed).\n";
  307:   }
  308: }
  309: 
  310: my $lonHostID;
  311: if ($lonDefDomain) {
  312:   $lonHostID=$lonDefDomain.$r.int(1+rand(9)); # should be probably also detect
  313:                                               # against the hosts.tab
  314: }
  315: 
  316:   print(&lt;&lt;END);
  317: 
  318: **** Machine ID Name ****
  319: [This does NOT need to correspond to internet address names;
  320:  this name MUST be unique to the whole LON-CAPA network;
  321:  we recommend that you use a name based off of your institution.
  322:  Good examples: "msul1" or "bioneta2".
  323:  Bad examples: "loncapabox" or "studentsinside".
  324:  Note that machine names are very hard to change later.]
  325: END
  326: # get machine name
  327: # accept if valid, if not valid, tell user and repeat
  328: $flag=0;
  329: while (!$flag) {
  330: if ($ipdomain) {
  331: print(&lt;&lt;END);
  332: ENTER LONCAPA MACHINE ID [$lonHostID]:
  333: END
  334: }
  335: else {
  336:   print(&lt;&lt;END);
  337: ENTER LONCAPA MACHINE ID:
  338: END
  339: }
  340:   my $choice=&lt;&gt;;
  341:   chomp($choice);
  342:   if ($choice=~/capa/i) {
  343:     print "Invalid input (names containing 'capa' are reserved).\n";
  344:   } elsif ($lonHostID and $choice=~/^\s*$/) {
  345:     $choice=$lonHostID;
  346:     open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
  347:     print(OUT 'lonHostID'."\t".$choice."\n");
  348:     close(OUT);
  349:     $lonHostID=$choice;
  350:     $flag=1;
  351:   } elsif (length($choice)>15) {
  352:     print "Name too long\n";
  353:   } elsif (length($choice)<4) {
  354:     print "Name too short\n";
  355:   } elsif ($choice!~/\_/ and $choice=~/^\w+$/) {
  356:     open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
  357:     print(OUT 'lonHostID'."\t".$choice."\n");
  358:     close(OUT);
  359:     $lonHostID=$choice;
  360:     $flag=1;
  361:   } else {
  362:     print "Invalid input (only alphanumeric characters supported).\n";
  363:   }
  364: }
  365: 
  366: # get primary library server in domain
  367: if ($lonRole eq 'library') {
  368:     if (!grep/^\Q$lonHostID\E$/,@libservers) {
  369:         push(@libservers,$lonHostID);
  370:     } 
  371:     if (@libservers == 1) {
  372:         $primaryLibServer = $libservers[0];
  373:     }
  374: }
  375: while (!$flag) {
  376:   print(&lt;&lt;END);
  377: **** Domain's Primary Library Server ID ****
  378: This should be the LON-CAPA machine ID of a library server in your 
  379: domain.  If you only have a single library server in your domain, then
  380: the Primary Library server ID will be the machine ID of that server. 
  381: This server will be where domain data which are not associated with any
  382: specific home library server will be stored (e.g., e-mail broadcast by
  383: administrators to users in the domain).
  384: END
  385:     if (defined($primaryLibServer)) {
  386:         print(&lt;&lt;END);
  387: ENTER DOMAIN'S PRIMARY LIBRARY SERVER ID [$primaryLibServer]:
  388: END
  389:     } elsif (@libservers > 0) {
  390:         print(&lt;&lt;END);
  391: ENTER DOMAIN'S PRIMARY LIBRARY SERVER ID [$libservers[0]]
  392: END
  393:     } else {
  394:         print (&lt;&lt;END);
  395: No library servers could be identified for this domain.  If you have already installed LON-CAPA on a different server (designated as a library server) in this domain, please enter the LONCAPA MACHINE ID of that server.  If not, you will need to install a LON-CAPA library server.  Enter the MACHINE ID of the server you plan to designate as a library server.
  396: END
  397:     }
  398: 
  399:     my $choice=&lt;&gt;;
  400:     chomp($choice);
  401:     if ($primaryLibServer and $choice=~/^\s*$/) {
  402:         $choice=$primaryLibServer;
  403:         open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
  404:         print(OUT 'primaryLibServer'."\t".$choice."\n");
  405:         close(OUT);
  406:         $flag=1;
  407:     } elsif (length($choice)>15) {
  408:         print "Name too long\n";
  409:     } elsif (length($choice)<4) {
  410:         print "Name too short\n";
  411:     } elsif ($choice!~/\_/ and $choice=~/^\w+$/) {
  412:         open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
  413:         print(OUT 'primaryLibServer'."\t".$choice."\n");
  414:         close(OUT);
  415:         $primaryLibServer=$choice;
  416:         $flag=1;
  417:     } else {
  418:         print "Invalid input (only alphanumeric characters supported).\n";
  419:     }
  420: }
  421: 
  422: 
  423: # get admin e-mail address
  424: # accept if valid, if not valid, tell user and repeat
  425: $flag=0;
  426: my $lonAdmEMail;
  427: while (!$flag) {
  428:   print(&lt;&lt;END);
  429: 
  430: **** System Administrator's E-mail ****
  431: E-mail address of the person who will manage this machine
  432: [should be in the form somebody\@somewhere]
  433: ENTER ADMIN E-MAIL ADDRESS:
  434: END
  435: 
  436:   my $choice=&lt;&gt;;
  437:   chomp($choice);
  438:   if ($choice=~/\@/) {
  439:     open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
  440:     print(OUT 'lonAdmEMail'."\t".$choice."\n");
  441:     close(OUT);
  442:     $lonAdmEMail=$choice;
  443:     $flag=1;
  444:   }
  445:   else {
  446:     print "Invalid input (this needs to look like an e-mail address!).\n";
  447:   }
  448: }
  449: 
  450: 
  451: # get support e-mail address
  452: # accept if valid, if not valid, tell user and repeat
  453: $flag=0;
  454: my $lonSupportEMail;
  455: while (!$flag) {
  456:   print(&lt;&lt;END);
  457: 
  458: **** Support E-mail ****
  459: E-mail address of the person who will receive 
  460: help requests from LON-CAPA users who access 
  461: the system via this server. If the address is left blank,
  462: then a help support form will not be displayed 
  463: as part of the help menu.
  464: [should be in the form somebody\@somewhere]
  465: ENTER SUPPORT E-MAIL ADDRESS:
  466: END
  467: 
  468:   my $choice=&lt;&gt;;
  469:   chomp($choice);
  470:   $choice =~ s/\s//g;
  471:   if ( ($choice=~/\@/) || $choice eq '') {
  472:     open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
  473:     print(OUT 'lonSupportEMail'."\t".$choice."\n");
  474:     close(OUT);
  475:     $lonSupportEMail=$choice;
  476:     $flag=1;
  477:   }
  478:   else {
  479:     print "Invalid input (this either needs to be blank, or look like an e-mail address!).\n";
  480:   }
  481: }
  482: 
  483: 
  484: # update loncapa.conf
  485: my $confdir='/etc/httpd/conf/';
  486: #my $confdir='';
  487: my $filename='loncapa.conf';
  488: my %perlvar;
  489:     if (-e "$confdir$filename") {
  490: 	open(CONFIG,'&lt;'.$confdir.$filename) or die("Can't read $confdir$filename");
  491: 	while (my $configline=&lt;CONFIG&gt;) {
  492: 	    if ($configline =~ /^[^\#]*PerlSetVar/) {
  493: 		my ($unused,$varname,$varvalue)=split(/\s+/,$configline);
  494: 		chomp($varvalue);
  495: 		$perlvar{$varname}=$varvalue if $varvalue!~/^\{\[\[\[\[/;
  496: 	    }
  497: 	}
  498: 	close(CONFIG);
  499:     }
  500:     $perlvar{'lonHostID'}=$lonHostID;
  501:     $perlvar{'lonDefDomain'}=$lonDefDomain;
  502:     $perlvar{'lonAdmEMail'}=$lonAdmEMail;
  503:     $perlvar{'lonSupportEMail'}=$lonSupportEMail;
  504:     $perlvar{'lonRole'}=$lonRole;
  505:     unless ($perlvar{'lonLoadLim'} and $perlvar{'lonLoadLim'}!~/\{\[\[\[\[/) {
  506:        $perlvar{'lonLoadLim'}='2.00';
  507:     }
  508:     unless ($perlvar{'lonUserLoadLim'} and $perlvar{'lonUserLoadLim'}!~/\{\[\[\[\[/) {
  509:        $perlvar{'lonUserLoadLim'}='0';
  510:     }
  511:     unless ($perlvar{'lonExpire'} and $perlvar{'lonExpire'}!~/\{\[\[\[\[/) {
  512:        $perlvar{'lonExpire'}='86400';
  513:     }
  514:     unless ($perlvar{'lonReceipt'} and $perlvar{'lonReceipt'}!~/\{\[\[\[\[/) {
  515:        my $lonReceipt='';
  516:        srand(time ^ $$ ^ unpack "%L*", `ps axww | gzip`);
  517:        my @alnum=(0..9,a..z);
  518:        foreach my $i (1..20) {
  519: 	 $lonReceipt.=$alnum[int(rand(36))];
  520:        }
  521:        $perlvar{'lonReceipt'}=$lonReceipt;
  522:     }
  523:     open(OUT,"&gt;$confdir$filename") or
  524:       die("Cannot output to $confdir$filename\n");
  525:     foreach my $key (keys %perlvar) {
  526:       my $value=$perlvar{$key};
  527:       print(OUT &lt;&lt;END);
  528: PerlSetVar     $key      $value
  529: END
  530:     }
  531:     close(OUT);
  532: }
  533: </perlscript>
  534: </file>
  535: <file>
  536: <target dist='default'>/</target>
  537: <perlscript mode='fg'>
  538: sub securesetting {
  539:     my (%perlvar)=@_;
  540:     my $securestatus='unknown';
  541:     my $securenum='';
  542:     if      ( $perlvar{'loncAllowInsecure'}&&  $perlvar{'londAllowInsecure'}) {
  543: 	$securestatus='no';                  $securenum='4';
  544:     } elsif ( $perlvar{'loncAllowInsecure'}&& !$perlvar{'londAllowInsecure'}) {
  545: 	$securestatus='lond';                $securenum='3';
  546:     } elsif (!$perlvar{'loncAllowInsecure'}&&  $perlvar{'londAllowInsecure'}) {
  547: 	$securestatus='lonc';                $securenum='2';
  548:     } elsif (!$perlvar{'loncAllowInsecure'}&& !$perlvar{'londAllowInsecure'}) {
  549: 	$securestatus='yes (lond and lonc)'; $securenum='1';
  550:     }
  551:     return ($securestatus,$securenum);
  552: }
  553: # read values from loncapa.conf
  554: my $confdir='/etc/httpd/conf/';
  555: my $filename='loncapa.conf';
  556: my %perlvar;
  557: my ($securestatus,$securenum);
  558:     if (-e "$confdir$filename") {
  559: 	open(CONFIG,'&lt;'.$confdir.$filename) or 
  560:           die("Can't read $confdir$filename");
  561: 	while (my $configline=&lt;CONFIG&gt;) {
  562: 	    if ($configline =~ /^[^\#]*PerlSetVar/) {
  563: 		my ($unused,$varname,$varvalue)=split(/\s+/,$configline);
  564: 		chomp($varvalue);
  565: 		$perlvar{$varname}=$varvalue;
  566: 	    }
  567: 	}
  568: 	close(CONFIG);
  569:     }
  570:     unless ($perlvar{'lonLoadLim'} and $perlvar{'lonLoadLim'}!~/\{\[\[\[\[/) {
  571:        $perlvar{'lonLoadLim'}='2.00';
  572:     }
  573:     unless ($perlvar{'lonUserLoadLim'} and $perlvar{'lonUserLoadLim'}!~/\{\[\[\[\[/) {
  574:        $perlvar{'lonUserLoadLim'}='0';
  575:     }
  576:     unless ($perlvar{'lonExpire'} and $perlvar{'lonExpire'}!~/\{\[\[\[\[/) {
  577:        $perlvar{'lonExpire'}='86400';
  578:     }
  579:     unless ($perlvar{'londAllowInsecure'} and $perlvar{'londAllowInsecure'}!~/\{\[\[\[\[/) {
  580:        $perlvar{'londAllowInsecure'}='1';
  581:     }
  582:     unless ($perlvar{'loncAllowInsecure'} and $perlvar{'loncAllowInsecure'}!~/\{\[\[\[\[/) {
  583:        $perlvar{'loncAllowInsecure'}='1';
  584:     }
  585:     ($securestatus,$securenum)=&securesetting(%perlvar);
  586:     unless ($perlvar{'lonReceipt'} and $perlvar{'lonReceipt'}!~/\{\[\[\[\[/) {
  587:        my $lonReceipt='';
  588:        srand(time ^ $$ ^ unpack "%L*", `ps axww | gzip`);
  589:        my @alnum=(0..9,a..z);
  590:        foreach my $i (1..20) {
  591: 	 $lonReceipt.=$alnum[int(rand(36))];
  592:        }
  593:        $perlvar{'lonReceipt'}=$lonReceipt;
  594:     }
  595: my %perlvarstatic;
  596:     if (-e "${confdir}loncapa_apache.conf") {
  597: 	open(CONFIG,'&lt;'.$confdir.'loncapa_apache.conf') or 
  598:           die("Can't read ${confdir}loncapa_apache.conf");
  599: 	while (my $configline=&lt;CONFIG&gt;) {
  600: 	    if ($configline =~ /^[^\#]*PerlSetVar/) {
  601: 		my ($unused,$varname,$varvalue)=split(/\s+/,$configline);
  602: 		chomp($varvalue);
  603: 		$perlvarstatic{$varname}=$varvalue;
  604: 	    }
  605: 	}
  606: 	close(CONFIG);
  607:     }
  608:     if (!$domainDescription && $lonCluster ne 'existing') {
  609:        open(IN,'&lt;../'.$lonCluster.'_domain.tab');
  610:        while(&lt;IN&gt;) {
  611:           if (/^$perlvar{'lonDefDomain'}\:/) {
  612: 	     (undef,$domainDescription,$domainTabExtras)=split(/:/,$_,3);
  613: 	     chomp($domainDescription);
  614: 	     chomp($domainTabExtras);
  615:              last;
  616:           }
  617:        }
  618:        close(IN);
  619:     }
  620:     if (!$domainDescription) {
  621:        open(IN,'&lt;/home/httpd/lonTabs/domain.tab');
  622:        while(&lt;IN&gt;) {
  623:           if (/^$perlvar{'lonDefDomain'}\:/) {
  624: 	     (undef,$domainDescription,$domainTabExtras)=split(/:/,$_,3);
  625: 	     chomp($domainDescription);
  626: 	     chomp($domainTabExtras);
  627:              last;
  628:           }
  629:        }
  630:        close(IN);
  631:     }
  632:     if (!$primaryLibServer and $lonCluster ne 'existing') {
  633:         open(IN,'&lt;../'.$lonCluster.'_domain.tab');
  634:         while(&lt;IN&gt;) {
  635:             if (/^$perlvar{'lonDefDomain'}\:/) {
  636:                 (undef,undef,undef,undef,undef,undef,undef,undef,
  637:                                               $primaryLibServer)=split(/:/,$_);
  638:                 chomp($primaryLibServer);
  639:             }
  640:         }
  641:         close(IN);
  642:         if (!$primaryLibServer) {
  643:             open(IN,'&lt;../'.$lonCluster.'_hosts.tab');
  644:             while(&lt;IN&gt;) {
  645:                 if (/^([^\:]+)\:\Q$perlvar{'lonDefDomain'}\E\:library\:/) {
  646:                     push(@libservers,$1);
  647:                 }
  648:             }
  649:             close(IN);
  650:             if (@libservers == 1) {
  651:                 $primaryLibServer = $libservers[0];
  652:             }
  653:         }
  654:     }
  655:     if (!$primaryLibServer) {
  656:         open(IN,'&lt;/home/httpd/lonTabs/domain.tab');
  657:         while(&lt;IN&gt;) {
  658:             if (/^$perlvar{'lonDefDomain'}\:/) {
  659:                 (undef,undef,undef,undef,undef,undef,undef,undef,
  660:                                               $primaryLibServer)=split(/:/,$_);
  661:                 chomp($primaryLibServer);
  662:             }
  663:             close(IN);
  664:         }
  665:         if (!$primaryLibServer) {
  666:             open(IN,'&lt;/home/httpd/lonTabs/hosts.tab');
  667:             while(&lt;IN&gt;) {
  668:                 if (/^([^\:]+)\:\Q$perlvar{'lonDefDomain'}\E\:library\:/) {
  669:                     push(@libservers,$1);
  670:                 }
  671:             }
  672:             close(IN);
  673:             if (@libservers == 1) {
  674:                 $primaryLibServer = $libservers[0];
  675:             }
  676:         }
  677:     }
  678:    
  679: # implement editing logic below, interactively
  680: # update loncapa.conf until 8 is entered
  681: 
  682: $flag=0;
  683: 
  684: while (!$flag) {
  685:   print(&lt;&lt;END);
  686: 
  687: ===============================================================================
  688: This is now the current configuration of your machine.
  689:  1) Domain Name: $perlvar{'lonDefDomain'}
  690:  2) Domain Description: $domainDescription
  691:  3) Machine Name: $perlvar{'lonHostID'}
  692:  4) ID of primary library server for domain: $primaryLibServer
  693:  5) System Administrator's E-mail Address: $perlvar{'lonAdmEMail'}
  694:  6) Support E-mail Address: $perlvar{'lonSupportEMail'}
  695:  7) Role: $perlvar{'lonRole'}
  696:  8) Cache Expiration Time: $perlvar{'lonExpire'}
  697:  9) Server Load: $perlvar{'lonLoadLim'}
  698: 10) User Load: $perlvar{'lonUserLoadLim'}
  699: 11) Allow only secure connections: $securestatus 
  700: 12) Everything is correct up above
  701: END
  702: 
  703: my $error='';
  704: foreach my $v ($perlvar{'lonDefDomain'},$perlvar{'lonHostID'}) {
  705:    if (length($v)>16) { $error.="\nName $v too long"; }		
  706:    if (length($v)<2) { $error.="\nName $v too short"; }
  707:    if ($v=~/capa/i) {
  708: 	if ($v!~/^oucapa\d+$/ && 
  709: 	    ($v!~/^capa\d+$/ && $perlvar{'lonDefDomain'} eq 'uwsp')) {
  710: 		 $error.="\nName $v contains 'capa'"; 
  711: 	}
  712:    }
  713:    foreach my $bad ('res','raw','userfiles','priv','adm','uploaded',
  714: 	'editupload') {
  715:       $error.="\nName $v reserved." if $v eq $bad;
  716:    }
  717:    if ($v=~/\W/) { $error.="\nName $v contains special characters"; }
  718: }
  719: if ($domainDescription!~/^[\(\)\-\w\s,]+$/) {
  720:    $error.="\nDomain Description contains special characters";
  721: } 
  722: foreach my $v ($perlvar{'lonExpire'},$perlvar{'lonLoadLim'}) {
  723:    unless ($v=~/^[\d+\.]+$/) { $error.="\nNumber expected instead of $v"; }
  724: }
  725: unless (($perlvar{'lonRole'} eq 'library') || ($perlvar{'lonRole'} eq 'access')) {
  726:    $error.="\nInvalid Role";
  727: }
  728: 
  729: if (!defined($primaryLibServer)) {
  730:    if (@libservers > 0) {
  731:        $error .= "No primary library server ID designated. Choose from: ".join(',',sort(@libservers));
  732:    } else {
  733:        $error .= "No library servers in this domain (including current server)";
  734:    }
  735: } else {
  736:    if (length($primaryLibServer)>16) { $error.="\nPrimary Library Server ID:  $primaryLibServer too long"; }
  737:    if (length($primaryLibServer)<2) { $error.="\nPrimary Library Server ID:  $primaryLibServer too short"; }
  738:    if ($primaryLibServer =~/capa/i) {
  739:         if ($primaryLibServer!~/^oucapa\d+$/ &&
  740:             ($primaryLibServer!~/^capa\d+$/ && $perlvar{'lonDefDomain'} eq 'uwsp')) {
  741:                  $error.="\nPrimary library server ID $primaryLibServer contains 'capa'";
  742:         }
  743:    }
  744:    foreach my $bad ('res','raw','userfiles','priv','adm','uploaded',
  745:         'editupload') {
  746:       $error.="\nPrimary library server ID $primaryLibServer reserved." if $primaryLibServer eq $bad;
  747:    }
  748:    if ($primaryLibServer=~/\W/) { $error.="\nPrimary library server ID $primaryLibServer contains special characters"; }
  749: }
  750: 
  751: 
  752: if ($error) { print "\n*** ERRORS: $error\n"; }
  753:   print(&lt;&lt;END);
  754: ENTER A CHOICE OF 1-11 TO CHANGE, otherwise ENTER 12:
  755: END
  756: my $choice=&lt;&gt;;
  757: chomp($choice);
  758:   if ($choice==1) {
  759:   print(&lt;&lt;END);
  760: 1) Domain Name: $perlvar{'lonDefDomain'}
  761: ENTER NEW VALUE (this is an internal value used to identify a group of
  762:                  LON-CAPA machines, it must be alphanumerical, we suggest
  763:                  using a part of your actual DNS domain. For example, for
  764:                  the machine loncapa.msu.edu, we set the Domain to msu):
  765: END
  766:     my $choice2=&lt;&gt;;
  767:     chomp($choice2);
  768:     $perlvar{'lonDefDomain'}=$choice2;
  769:   }
  770:   elsif ($choice==2) {
  771:   print(&lt;&lt;END);
  772: 2) Domain Description: $domainDescription
  773: ENTER NEW VALUE (this should be a string that describes your domain, spaces
  774:                  and punctuation are fine except for ':'):
  775: END
  776:     my $choice2=&lt;&gt;;
  777:     chomp($choice2);
  778:     $domainDescription=$choice2;
  779:   }
  780:   elsif ($choice==3) {
  781:   print(&lt;&lt;END);
  782: 3) Machine Name: $perlvar{'lonHostID'}
  783: ENTER NEW VALUE (this will be the name of the machine in the LON-CAPA network
  784:                  it cannot contain any of '_' '-' '.' or ':'. We suggest that
  785:                  if you are in the domain 'example' and are the first library
  786:                  server you enter 'examplel1') :
  787: END
  788:     my $choice2=&lt;&gt;;
  789:     chomp($choice2);
  790:     $perlvar{'lonHostID'}=$choice2;
  791:   }
  792:   elsif ($choice==4) {
  793:   print(&lt;&lt;END);
  794: 4) ID of primary library server for domain: $primaryLibServer
  795: ENTER NEW VALUE (this will be the LON-CAPA Machine ID of a library server in
  796:                  your domain; it cannot contain any of '_' '-' '.' or ':'. 
  797:                  This server will be where domain data which are not 
  798:                  associated with any specific home library server
  799:                  will be stored (e.g., e-mail broadcast by Domain Coordinators
  800:                  to users in the domain).
  801: END
  802:     my $choice2=&lt;&gt;;
  803:     chomp($choice2);
  804:     $primaryLibServer=$choice2;
  805:   }
  806:   elsif ($choice==5) {
  807:   print(&lt;&lt;END);
  808: 5) System Administrator's E-mail Address: $perlvar{'lonAdmEMail'}
  809: ENTER NEW VALUE:
  810: END
  811:     my $choice2=&lt;&gt;;
  812:     chomp($choice2);
  813:     $perlvar{'lonAdmEMail'}=$choice2;
  814:   }
  815:   elsif ($choice==6) {
  816:   print(&lt;&lt;END);
  817: 6) Support E-mail Address: $perlvar{'lonSupportEMail'}
  818: ENTER NEW VALUE:
  819: END
  820:     my $choice2=&lt;&gt;;
  821:     chomp($choice2);
  822:     $perlvar{'lonSupportEMail'}=$choice2;
  823:   }
  824:   elsif ($choice==7) {
  825:   print(&lt;&lt;END);
  826: 7) Role: $perlvar{'lonRole'}
  827: ENTER NEW VALUE (this should be either 'access' or 'library' 
  828:                  if in doubt select 'library'):
  829: END
  830:     my $choice2=&lt;&gt;;
  831:     chomp($choice2);
  832:     $perlvar{'lonRole'}=$choice2;
  833:   }
  834:   elsif ($choice==8) {
  835:   print(&lt;&lt;END);
  836: 8) Cache Expiration Time: $perlvar{'lonExpire'}
  837: ENTER NEW VALUE (in seconds, 86400 is a reasonable value):
  838: END
  839:     my $choice2=&lt;&gt;;
  840:     chomp($choice2);
  841:     $perlvar{'lonExpire'}=$choice2;
  842:   }
  843:   elsif ($choice==9) {
  844:   print(&lt;&lt;END);
  845: 9) Server Load: $perlvar{'lonLoadLim'}
  846: ENTER NEW VALUE:
  847: END
  848:     my $choice2=&lt;&gt;;
  849:     chomp($choice2);
  850:     $perlvar{'lonLoadLim'}=$choice2;
  851:   }
  852:   elsif ($choice==10) {
  853:   print(&lt;&lt;END);
  854: 10) User Load: $perlvar{'lonUserLoadLim'}
  855: Numer of users that can login before machine is 'overloaded'
  856: ENTER NEW VALUE (integer value, 0 means there is no limit):
  857: END
  858:     my $choice2=&lt;&gt;;
  859:     chomp($choice2);
  860:     $perlvar{'lonUserLoadLim'}=$choice2;
  861:   }
  862:   elsif ($choice==11) {
  863:   print(&lt;&lt;END);
  864: 11) Allow only secure connections: $securestatus 
  865: The Lon-CAPA communication daemons lonc and lond can be configured to
  866: allow only secure connections by default.
  867: 
  868: POSSIBLE CHOICES:
  869: 1) allow only secure connections and don't connect to machines that
  870:     can not be connected to securely
  871: 2) allow only secure connections but allow this machine to connect to 
  872:     machines that don't support secure connections
  873: 3) allow insecure connections to this machine but only allow connections
  874:     to machines that support secure connections
  875: 4) allow insecure connections
  876: ENTER NEW VALUE (currenly $securenum):
  877: END
  878:     my $choice2=&lt;&gt;;
  879:     chomp($choice2);
  880:     if      ($choice2 eq '1') {
  881: 	$perlvar{'loncAllowInsecure'}=0;$perlvar{'londAllowInsecure'}=0;
  882:     } elsif ($choice2 eq '2') {
  883: 	$perlvar{'loncAllowInsecure'}=0;$perlvar{'londAllowInsecure'}=1;
  884:     } elsif ($choice2 eq '3') {
  885: 	$perlvar{'loncAllowInsecure'}=1;$perlvar{'londAllowInsecure'}=0;
  886:     } elsif ($choice2 eq '4') {
  887: 	$perlvar{'loncAllowInsecure'}=1;$perlvar{'londAllowInsecure'}=1;
  888:     }
  889:     ($securestatus,$securenum)=&securesetting(%perlvar);
  890:   }
  891:   elsif (($choice==12) && (!$error)) {
  892:     $flag=1;
  893:   }
  894:   else {
  895:     print "Invalid input.\n";
  896:   }
  897: }
  898:     open(OUT,"&gt;$confdir$filename") or
  899:       die("Cannot output to $confdir$filename\n");
  900:     foreach my $key (keys %perlvar) {
  901:       my $value=$perlvar{$key};
  902:       print(OUT &lt;&lt;END) unless $perlvarstatic{$key};
  903: PerlSetVar     $key      $value
  904: END
  905:     }
  906:     close(OUT);
  907: </perlscript>
  908: </file>
  909: <file>
  910: <target dist='default'>loncom/hosts.tab</target>
  911: <perlscript mode='fg'>
  912: unless (-l "<TARGET />") {
  913:   my $hostname=`hostname -f`;chomp($hostname);
  914:   $date=`date -I`; chomp($date);
  915:   $lonHostID=$perlvar{'lonHostID'};
  916:   $lonHostID=~s/\W//g;
  917:   $lineexistflag=0;
  918:   $hostidexistflag=0;
  919:   $line2insert=&lt;&lt;END;
  920: $perlvar{'lonHostID'}:$perlvar{'lonDefDomain'}:$perlvar{'lonRole'}:$hostname
  921: END
  922:   $domaininsert="$perlvar{'lonDefDomain'}:$domainDescription:$domainTabExtras:$primaryLibServer\n";
  923:   if ($lonCluster eq 'standalone') {
  924:     open(OUT,'&gt;../'.$lonCluster.'_hosts.tab') or
  925:       die('file generation error');
  926:       print(OUT $line2insert);
  927:     close(OUT);
  928:     open(OUT,'&gt;../'.$lonCluster.'_domain.tab') or
  929:       die('file generation error');
  930:       print(OUT $domaininsert);
  931:     close(OUT);
  932:   }
  933:   if ($flag==1) {
  934:     `rm -f ../hosts.tab`;
  935:     open(IN,'&lt;../'.$lonCluster.'_hosts.tab');
  936:     while(&lt;IN&gt;) {
  937:       if (/^$line2insert$/) {
  938:         $lineexistflag=1;
  939:       }
  940:       if (/^$lonHostID\:/) {
  941:         $hostidexistflag=1;
  942:       }
  943:     }
  944:     close(IN);
  945:     if ($hostidexistflag and !$lineexistflag) {
  946:       print &lt;&lt;END;
  947: WARNING: $lonHostID already exists inside
  948: loncapa/loncom/${lonCluster}_hosts.tab.  The entry inside
  949: ${lonCluster}_hosts.tab does not match your settings.
  950: The entry inside ${lonCluster}_hosts.tab is being replaced
  951: with your new values.
  952: END
  953:       `grep -v "$lonHostID:" ../${lonCluster}_hosts.tab &gt; ../new_${lonCluster}_hosts.tab`;
  954:        open(OUT,'&gt;&gt;../new_'.$lonCluster.'_hosts.tab') or
  955:          die("cannot open loncom/${lonCluster}_hosts.tab for output\n");
  956:          print(OUT $line2insert);
  957:        close(OUT);
  958:       `ln -s new_${lonCluster}_hosts.tab ../hosts.tab`;
  959:       # email appropriate message
  960:       `echo "REPLACE:$lonCluster:$lonHostID:$date:$line2insert" | mail -s "REPLACE:$lonCluster:$lonHostID:$date" installrecord\@mail.lon-capa.org`;
  961:     }
  962:     elsif ($hostidexistflag and $lineexistflag) {
  963:       print &lt;&lt;END;
  964: Entry exists in ${lonCluster}_hosts.tab.
  965: END
  966:       `ln -s ${lonCluster}_hosts.tab ../hosts.tab`;
  967:       # email appropriate message
  968:       `echo "STABLEUPDATE:$lonCluster:$lonHostID:$date:$line2insert" | mail -s "STABLEUPDATE:$lonCluster:$lonHostID:$date" installrecord\@mail.lon-capa.org`;
  969:     }
  970:     elsif (!$hostidexistflag and !$lineexistflag) {
  971:       print &lt;&lt;END;
  972: New entry for $lonCluster.
  973: END
  974:       `cat ../${lonCluster}_hosts.tab &gt; ../new_${lonCluster}_hosts.tab`;
  975:        open(OUT,'&gt;&gt;../new_'.$lonCluster.'_hosts.tab') or
  976:          die("cannot open loncom/new_${lonCluster}_hosts.tab for output\n");
  977:          print(OUT $line2insert);
  978:        close(OUT);
  979:       `ln -s new_${lonCluster}_hosts.tab ../hosts.tab`;
  980:       # email appropriate message
  981:       `echo "INSERT:$lonCluster:$lonHostID:$date:$line2insert" | mail -s "INSERT:$lonCluster:$lonHostID:$date" installrecord\@mail.lon-capa.org`;
  982:     }
  983:   }
  984:   $lineexistflag=0;
  985:   if ($flag==1) {
  986:     `rm -f ../domain.tab`;
  987:     open(IN,'&lt;../'.$lonCluster.'_domain.tab');
  988:     while(&lt;IN&gt;) {
  989:       if (/^$domaininsert$/) {
  990:         $lineexistflag=1;
  991:       }
  992:       if (/^$perlvar{'lonDefDomain'}\:/) {
  993:         $domainexistflag=1;
  994:       }
  995:     }
  996:     close(IN);
  997:     if ($domainexistflag and !$lineexistflag) {
  998:       print &lt;&lt;END;
  999: WARNING: $perlvar{'lonDefDomain'} already exists inside
 1000: loncapa/loncom/${lonCluster}_domain.tab.  The entry inside
 1001: ${lonCluster}_domain.tab does not match your settings.
 1002: The entry inside ${lonCluster}_domain.tab is being replaced
 1003: with your new values.
 1004: END
 1005:       `grep -v "$perlvar{'lonDefDomain'}:" ../${lonCluster}_domain.tab &gt; ../new_${lonCluster}_domain.tab`;
 1006:        open(OUT,'&gt;&gt;../new_'.$lonCluster.'_domain.tab') or
 1007:          die("cannot open loncom/${lonCluster}_domain.tab for output\n");
 1008:          print(OUT $domaininsert);
 1009:        close(OUT);
 1010:       `ln -s new_${lonCluster}_domain.tab ../domain.tab`;
 1011:       # email appropriate message
 1012:       `echo "REPLACEdom:$lonCluster:$lonHostID:$date:$domaninsert" | mail -s "REPLACEdom:$lonCluster:$lonHostID:$date" installrecord\@mail.lon-capa.org`;
 1013:     }
 1014:     elsif ($domainexistflag and $lineexistflag) {
 1015:       print &lt;&lt;END;
 1016: Entry exists in ${lonCluster}_domain.tab.
 1017: END
 1018:       `ln -s ${lonCluster}_domain.tab ../domain.tab`;
 1019:       # email appropriate message
 1020:       `echo "STABLEUPDATEdom:$lonCluster:$lonHostID:$date:$domaininsert" | mail -s "STABLEUPDATEdom:$lonCluster:$lonHostID:$date" installrecord\@mail.lon-capa.org`;
 1021:     }
 1022:     elsif (!$domainexistflag and !$lineexistflag) {
 1023:       print &lt;&lt;END;
 1024: New entry for $lonCluster.
 1025: END
 1026:       `cat ../${lonCluster}_domain.tab &gt; ../new_${lonCluster}_domain.tab`;
 1027:        open(OUT,'&gt;&gt;../new_'.$lonCluster.'_domain.tab') or
 1028:          die("cannot open loncom/new_${lonCluster}_domain.tab for output\n");
 1029:          print(OUT $domaininsert);
 1030:        close(OUT);
 1031:       `ln -s new_${lonCluster}_domain.tab ../domain.tab`;
 1032:       # email appropriate message
 1033:       `echo "INSERTdom:$lonCluster:$lonHostID:$date:$domaininsert" | mail -s "INSERTdom:$lonCluster:$lonHostID:$date" installrecord\@mail.lon-capa.org`;
 1034:     }
 1035:   }
 1036: }
 1037: </perlscript>
 1038: </file>
 1039: </files>
 1040: </piml>