Return to updatequery.piml CVS log

Up to [LON-CAPA] / doc / loncapafiles

now makes a mailing to installrecord@mail.lon-capa.org

    1: <!-- updatequery.piml -->
    2: <!-- Scott Harrison -->
    3: 
    4: <!-- $Id: updatequery.piml,v 1.15 2002/06/09 23:31:09 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(&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
   51: sleep(3);
   52: </perlscript>
   53: </file>
   54: <file>
   55: <target dist='default'>/home/httpd/lonTabs/hosts.tab</target>
   56: <perlscript mode='fg'>
   57: $|=1;
   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
   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,'&gt;/tmp/loncapa_updatequery.out');
   74: close(OUT);
   75: 
   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.
   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=&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: }
  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(&lt;&lt;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(&lt;&lt;END);
  138: ENTER LONCAPA DOMAIN [$ipdomain]:
  139: END
  140: }
  141: else {
  142:   print(&lt;&lt;END);
  143: ENTER LONCAPA DOMAIN:
  144: END
  145: }
  146:   my $choice=&lt;&gt;;
  147:   chomp($choice);
  148:   if ($ipdomain and $choice=~/^\s*$/) {
  149:     $choice=$ipdomain;
  150:     open(OUT,'&gt;&gt;/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,'&gt;&gt;/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(&lt;&lt;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(&lt;&lt;END);
  190: ENTER LONCAPA MACHINE ID [$lonHostID]:
  191: END
  192: }
  193: else {
  194:   print(&lt;&lt;END);
  195: ENTER LONCAPA MACHINE ID:
  196: END
  197: }
  198:   my $choice=&lt;&gt;;
  199:   chomp($choice);
  200:   if ($lonHostID and $choice=~/^\s*$/) {
  201:     $choice=$lonHostID;
  202:     open(OUT,'&gt;&gt;/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,'&gt;&gt;/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(&lt;&lt;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=&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);
  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,'&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 if $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 ^ $$ ^ unpack "%L*", `ps axww | gzip`);
  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);
  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 $filename='loncapa.conf';
  303: my %perlvar;
  304:     if (-e "$confdir$filename") {
  305: 	open(CONFIG,'&lt;'.$confdir.$filename) or 
  306:           die("Can't read $confdir$filename");
  307: 	while (my $configline=&lt;CONFIG&gt;) {
  308: 	    if ($configline =~ /^[^\#]*PerlSetVar/) {
  309: 		my ($unused,$varname,$varvalue)=split(/\s+/,$configline);
  310: 		chomp($varvalue);
  311: 		$perlvar{$varname}=$varvalue;
  312: 	    }
  313: 	}
  314: 	close(CONFIG);
  315:     }
  316: my %perlvarstatic;
  317:     if (-e "${confdir}loncapa_apache.conf") {
  318: 	open(CONFIG,'&lt;'.$confdir.'loncapa_apache.conf') or 
  319:           die("Can't read ${confdir}loncapa_apache.conf");
  320: 	while (my $configline=&lt;CONFIG&gt;) {
  321: 	    if ($configline =~ /^[^\#]*PerlSetVar/) {
  322: 		my ($unused,$varname,$varvalue)=split(/\s+/,$configline);
  323: 		chomp($varvalue);
  324: 		$perlvarstatic{$varname}=$varvalue;
  325: 	    }
  326: 	}
  327: 	close(CONFIG);
  328:     }
  329: # implement editing logic below, interactively
  330: # update loncapa.conf until 7 is entered
  331: 
  332: $flag=0;
  333: while (!$flag) {
  334:   print(&lt;&lt;END);
  335: 
  336: ===============================================================================
  337: This is now the current configuration of your machine.
  338: 1) Domain Name: $perlvar{'lonDefDomain'}
  339: 2) Machine Name: $perlvar{'lonHostID'}
  340: 3) System Administrator's E-mail Address: $perlvar{'lonAdmEMail'}
  341: 4) Role: $perlvar{'lonRole'}
  342: 5) Cache Expiration Time: $perlvar{'lonExpire'}
  343: 6) Server Load: $perlvar{'lonLoadLim'}
  344: 7) Everything is correct up above
  345: END
  346:   print(&lt;&lt;END);
  347: ENTER A CHOICE OF 1-6 TO CHANGE, otherwise ENTER 7:
  348: END
  349: my $choice=&lt;&gt;;
  350: chomp($choice);
  351:   if ($choice==1) {
  352:   print(&lt;&lt;END);
  353: 2) Domain Name: $perlvar{'lonDefDomain'}
  354: ENTER NEW VALUE:
  355: END
  356:     my $choice2=&lt;&gt;;
  357:     chomp($choice2);
  358:     $perlvar{'lonDefDomain'}=$choice2;
  359:   }
  360:   elsif ($choice==2) {
  361:   print(&lt;&lt;END);
  362: 1) Machine Name: $perlvar{'lonHostID'}
  363: ENTER NEW VALUE:
  364: END
  365:     my $choice2=&lt;&gt;;
  366:     chomp($choice2);
  367:     $perlvar{'lonHostID'}=$choice2;
  368:   }
  369:   elsif ($choice==3) {
  370:   print(&lt;&lt;END);
  371: 3) System Administrator's E-mail Address: $perlvar{'lonAdmEMail'}
  372: ENTER NEW VALUE:
  373: END
  374:     my $choice2=&lt;&gt;;
  375:     chomp($choice2);
  376:     $perlvar{'lonAdmEMail'}=$choice2;
  377:   }
  378:   elsif ($choice==4) {
  379:   print(&lt;&lt;END);
  380: 4) Role: $perlvar{'lonRole'}
  381: ENTER NEW VALUE:
  382: END
  383:     my $choice2=&lt;&gt;;
  384:     chomp($choice2);
  385:     $perlvar{'lonRole'}=$choice2;
  386:   }
  387:   elsif ($choice==5) {
  388:   print(&lt;&lt;END);
  389: 5) Cache Expiration Time: $perlvar{'lonExpire'}
  390: ENTER NEW VALUE:
  391: END
  392:     my $choice2=&lt;&gt;;
  393:     chomp($choice2);
  394:     $perlvar{'lonExpire'}=$choice2;
  395:   }
  396:   elsif ($choice==6) {
  397:   print(&lt;&lt;END);
  398: 6) Server Load: $perlvar{'lonLoadLim'}
  399: ENTER NEW VALUE:
  400: END
  401:     my $choice2=&lt;&gt;;
  402:     chomp($choice2);
  403:     $perlvar{'lonLoadLim'}=$choice2;
  404:   }
  405:   elsif ($choice==7) {
  406:     $flag=1;
  407:   }
  408:   else {
  409: 
  410:   }
  411: }
  412:     open(OUT,"&gt;$confdir$filename") or
  413:       die("Cannot output to $confdir$filename\n");
  414:     foreach my $key (keys %perlvar) {
  415:       my $value=$perlvar{$key};
  416:       print(OUT &lt;&lt;END) unless $perlvarstatic{$key};
  417: PerlSetVar     $key      $value
  418: END
  419:     }
  420:     close(OUT);
  421: </perlscript>
  422: </file>
  423: <file>
  424: <target dist='default'>loncom/hosts.tab</target>
  425: <perlscript mode='fg'>
  426: unless (-l "<TARGET />") {
  427:   print(&lt;&lt;END);
  428: 
  429: ===============================================================================
  430: What hosts.tab would you like to have installed?
  431: (hosts.tab is a listing of all other internet machines
  432: that a server system considers to be valid server systems
  433: on the LON-CAPA network)
  434: 
  435: 1) PRODUCTION - you want to deliver courses today or sometime very soon
  436:                 on this machine
  437: 2) STAND-ALONE - you want this machine to run in 'stand-alone' mode and
  438:                  not be connected to other LON-CAPA machines for now
  439: 3) DEVELOPMENT - you want to play with or explore LON-CAPA
  440: 4) PRESERVE the existing hosts.tab (/home/httpd/lonTabs/hosts.tab)
  441: 
  442: END
  443: # Option number 26 will install rawhide_hosts.tab, but
  444: # the typical user does not want to be part of an intensive
  445: # machine test cluster.
  446: 
  447: # get input
  448: # if valid then process, otherwise loop
  449: my $hostname=`hostname`;chomp($hostname);
  450: my $hostaddress=`hostname -i $hostname`;chomp($hostaddress);
  451: $flag=0;
  452: while (!$flag) {
  453:   print "ENTER 1, 2, 3, or 4:\n";
  454:   my $choice=&lt;&gt;;
  455:   chomp($choice);
  456:   $line2insert=&lt;&lt;END;
  457: $perlvar{'lonHostID'}:$perlvar{'lonDefDomain'}:$perlvar{'lonRole'}:$hostname:$hostaddress
  458: END
  459:   $date=`date -I`; chomp($date);
  460:   $lonHostID=$perlvar{'lonHostID'};
  461:   $lonHostID=~s/\W//g;
  462:   $lineexistflag=0;
  463:   $hostidexistflag=0;
  464:   if ($choice==1) {
  465:     $lonCluster='production'; $flag=1;
  466:   }
  467:   elsif ($choice==2) {
  468:     $lonCluster='standalone'; $flag=1;
  469:     open(OUT,'&gt;../'.$lonCluster.'_hosts.tab') or
  470:       die('file generation error');
  471:       print(OUT $line2insert);
  472:     close(OUT);
  473:   }
  474:   elsif ($choice==3) {
  475:     $lonCluster='development'; $flag=1;
  476:   }
  477:   elsif ($choice==4) {
  478:     $lonCluster='existing'; $flag=1;
  479:     if (-e '/home/httpd/lonTabs/hosts.tab') {
  480:       `cp /home/httpd/lonTabs/hosts.tab ../existing_hosts.tab`;
  481:     }
  482:     else {
  483:       print &lt;&lt;END;
  484: There is no existing /home/httpd/lonTabs/hosts.tab
  485: END
  486:       die('');
  487:     }
  488:   }
  489:   elsif ($choice==26) {
  490:     $lonCluster='rawhide'; $flag=1;
  491:   }
  492:   if ($flag==1) {
  493:     `rm -f ../hosts.tab`;
  494:     open(IN,'&lt;../'.$lonCluster.'_hosts.tab');
  495:     while(&lt;IN&gt;) {
  496:       if (/^$line2insert$/) {
  497:         $lineexistflag=1;
  498:       }
  499:       if (/^$lonHostID\:/) {
  500:         $hostidexistflag=1;
  501:       }
  502:     }
  503:     close(IN);
  504:     if ($hostidexistflag and !$lineexistflag) {
  505:       print &lt;&lt;END;
  506: WARNING: $lonHostID already exists inside
  507: loncapa/loncom/${lonCluster}_hosts.tab.  The entry inside
  508: ${lonCluster}_hosts.tab does not match your settings.
  509: The entry inside ${lonCluster}_hosts.tab is being replaced
  510: with your new values.
  511: END
  512:       `grep -v "$lonHostID:" ../${lonCluster}_hosts.tab &gt; ../new_${lonCluster}_hosts.tab`;
  513:        open(OUT,'&gt;&gt;../new_'.$lonCluster.'_hosts.tab') or
  514:          die("cannot open loncom/${lonCluster}_hosts.tab for output\n");
  515:          print(OUT $line2insert);
  516:        close(OUT);
  517:       `ln -s new_${lonCluster}_hosts.tab ../hosts.tab`;
  518:       # email appropriate message
  519:       `echo "REPLACE:$lonCluster:$lonHostID:$date:$line2insert" | mail -s "REPLACE:$lonCluster:$lonHostID:$date" installrecord\@mail.lon-capa.org`;
  520:     }
  521:     elsif ($hostidexistflag and $lineexistflag) {
  522:       print &lt;&lt;END;
  523: Entry exists in ${lonCluster}_hosts.tab.
  524: END
  525:       `ln -s ${lonCluster}_hosts.tab ../hosts.tab`;
  526:       # email appropriate message
  527:       `echo "STABLEUPDATE:$lonCluster:$lonHostID:$date:$line2insert" | mail -s "STABLEUPDATE:$lonCluster:$lonHostID:$date" installrecord\@mail.lon-capa.org`;
  528:     }
  529:     elsif (!$hostidexistflag and !$lineexistflag) {
  530:       print &lt;&lt;END;
  531: New entry for $lonCluster.
  532: END
  533:       `cat ../${lonCluster}_hosts.tab &gt; ../new_${lonCluster}_hosts.tab`;
  534:        open(OUT,'&gt;../new_'.$lonCluster.'_hosts.tab') or
  535:          die("cannot open loncom/${lonCluster}_hosts.tab for output\n");
  536:          print(OUT $line2insert);
  537:        close(OUT);
  538:       `ln -s new_${lonCluster}_hosts.tab ../hosts.tab`;
  539:       # email appropriate message
  540:       `echo "INSERT:$lonCluster:$lonHostID:$date:$line2insert" | mail -s "INSERT:$lonCluster:$lonHostID:$date" installrecord\@mail.lon-capa.org`;
  541:     }
  542:   }
  543: }
  544: 
  545: }
  546: </perlscript>
  547: </file>
  548: </files>
  549: </piml>