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

1.2       harris41    1: <!-- updatequery.piml -->
1.1       harris41    2: <!-- Scott Harrison -->
                      3: 
1.22    ! albertel    4: <!-- $Id: updatequery.piml,v 1.21 2002/12/09 18:54:40 albertel 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.22    ! albertel   55: <target dist='default'>loncom/hosts.tab</target>
        !            56: <perlscript mode='fg'>
        !            57: unless (-l "<TARGET />") {
        !            58:   print(&lt;&lt;END);
        !            59: 
        !            60: ===============================================================================
        !            61: What hosts.tab would you like to have installed?
        !            62: (hosts.tab is a listing of all other internet machines
        !            63: that a server system considers to be valid server systems
        !            64: on the LON-CAPA network)
        !            65: 
        !            66: 1) PRODUCTION - you want to deliver courses today or sometime very soon
        !            67:                 on this machine
        !            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 play with or explore LON-CAPA
        !            71: 4) PRESERVE the existing hosts.tab (/home/httpd/lonTabs/hosts.tab)
        !            72: 
        !            73: END
        !            74: # Option number 26 will install rawhide_hosts.tab, but
        !            75: # the typical user does not want to be part of an intensive
        !            76: # machine test cluster.
        !            77: 
        !            78: # get input
        !            79: # if valid then process, otherwise loop
        !            80: $flag=0;
        !            81: while (!$flag) {
        !            82:   print "ENTER 1, 2, 3, or 4:\n";
        !            83:   my $choice=&lt;&gt;;
        !            84:   chomp($choice);
        !            85:   if ($choice==1) {
        !            86:     $lonCluster='production'; $flag=1;
        !            87:   }
        !            88:   elsif ($choice==2) {
        !            89: 	die("FIXME Broken!!!");
        !            90:     $lonCluster='standalone'; $flag=1;
        !            91:     open(OUT,'&gt;../'.$lonCluster.'_hosts.tab') or
        !            92:       die('file generation error');
        !            93:       print(OUT $line2insert);
        !            94:     close(OUT);
        !            95:   }
        !            96:   elsif ($choice==3) {
        !            97:     $lonCluster='development'; $flag=1;
        !            98:   }
        !            99:   elsif ($choice==4) {
        !           100:     $lonCluster='existing'; $flag=1;
        !           101:     if (-e '/home/httpd/lonTabs/hosts.tab') {
        !           102:       `cp /home/httpd/lonTabs/hosts.tab ../existing_hosts.tab`;
        !           103:     }
        !           104:     else {
        !           105:       print &lt;&lt;END;
        !           106: There is no existing /home/httpd/lonTabs/hosts.tab
        !           107: END
        !           108:       die('');
        !           109:     }
        !           110:   }
        !           111:   elsif ($choice==26) {
        !           112:     $lonCluster='rawhide'; $flag=1;
        !           113:   }
        !           114: }
        !           115: }
        !           116: </perlscript>
        !           117: </file>
        !           118: <file>
1.10      harris41  119: <target dist='default'>/home/httpd/lonTabs/hosts.tab</target>
1.1       harris41  120: <perlscript mode='fg'>
1.4       harris41  121: $|=1;
1.20      albertel  122: my $domainDescription;
1.1       harris41  123: unless (-e "<TARGET />") {
                    124:   print(&lt;&lt;END);
                    125:            WELCOME TO LON-CAPA!
                    126: 
                    127: If you have questions, please visit http://install.lon-capa.org
1.5       harris41  128: or contact sharrison\@mail.lon-capa.org.
1.1       harris41  129: 
                    130: ===============================================================================
1.4       harris41  131: The following 4 values are needed to configure LON-CAPA:
                    132: * Machine Role
1.8       harris41  133: * LON-CAPA Domain Name
                    134: * LON-CAPA Machine ID Name, and
1.1       harris41  135: * System Administration E-mail Address.
                    136: END
1.3       harris41  137: 
1.4       harris41  138: open(OUT,'&gt;/tmp/loncapa_updatequery.out');
                    139: close(OUT);
                    140: 
1.3       harris41  141: # query for Machine Role
                    142:   print(&lt;&lt;END);
                    143: **** Machine Role ****
                    144: Library server (recommended if first-time installation of LON-CAPA):
                    145:    Servers that are repositories of authoritative educational resources.
                    146:    These servers also provide the construction space by which instructors
                    147:    assemble their classroom online material.
                    148: Access server:
                    149:    Servers that load-balance high-traffic delivery of educational resources
                    150:    over the world-wide web.
1.4       harris41  151: 1) Will this be a library server? (recommended if this is your first install)
1.3       harris41  152: 2) Or, will this be an access server?
                    153: END
1.4       harris41  154: my $flag=0;
                    155: my $r='';
                    156: my $lonRole;
                    157: while (!$flag) {
                    158:   print "ENTER A CHOICE OF 1 or 2:\n";
                    159:   my $choice=&lt;&gt;;
                    160:   chomp($choice);
                    161:   if ($choice==1) {
                    162:     open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
                    163:     print(OUT 'lonRole'."\t".'library'."\n");
                    164:     close(OUT);
                    165:     $lonRole='library';
                    166:     $r='l';
                    167:     $flag=1;
                    168:   }
                    169:   elsif ($choice==2) {
                    170:     open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
                    171:     print(OUT 'lonRole'."\t".'access'."\n");
                    172:     close(OUT);
                    173:     $lonRole='access';
                    174:     $r='a';
                    175:     $flag=2;
                    176:   }
                    177:   else {
                    178: 
                    179:   }
                    180: }
1.3       harris41  181: 
                    182: # need to recommend a machine ID name (ipdomain.l.somenumber)
1.4       harris41  183: my $hostname=`hostname`; chomp($hostname);
                    184: my $ipdomain='';
                    185: if ($hostname=~/([^\.]*)\.([^\.]*)$/) {
                    186:   $ipdomain=$1;
                    187: }
1.1       harris41  188: 
                    189:   print(&lt;&lt;END);
                    190: 
1.8       harris41  191: **** Domain ****
                    192: [this does NOT need to correspond to internet address domains,
                    193:  examples might be "msu" or "bionet" or "vermontcc"]
1.1       harris41  194: END
1.8       harris41  195: 
                    196: # get domain name
1.1       harris41  197: # accept if valid, if not valid, tell user and repeat
1.4       harris41  198: $flag=0;
1.8       harris41  199: my $lonDefDomain;
1.4       harris41  200: while (!$flag) {
                    201: if ($ipdomain) {
                    202: print(&lt;&lt;END);
1.8       harris41  203: ENTER LONCAPA DOMAIN [$ipdomain]:
1.4       harris41  204: END
                    205: }
                    206: else {
                    207:   print(&lt;&lt;END);
1.8       harris41  208: ENTER LONCAPA DOMAIN:
1.4       harris41  209: END
                    210: }
                    211:   my $choice=&lt;&gt;;
                    212:   chomp($choice);
1.18      harris41  213:   my $bad_domain_flag=0;
                    214:   my @bad_domain_names=('raw','userfiles','priv','adm','uploaded');
                    215:   foreach my $bad (@bad_domain_names) {
                    216:     $bad_domain_flag=1 if $choice eq $bad;
                    217:   }
1.8       harris41  218:   if ($ipdomain and $choice=~/^\s*$/) {
                    219:     $choice=$ipdomain;
1.4       harris41  220:     open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
1.8       harris41  221:     print(OUT 'lonDefDomain'."\t".$choice."\n");
1.4       harris41  222:     close(OUT);
1.8       harris41  223:     $lonDefDomain=$choice;
1.4       harris41  224:     $flag=1;
                    225:   }
                    226:   elsif ($choice!~/\_/ and $choice=~/^\w+$/) {
                    227:     open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
1.8       harris41  228:     print(OUT 'lonDefDomain'."\t".$choice."\n");
1.4       harris41  229:     close(OUT);
1.8       harris41  230:     $lonDefDomain=$choice;
                    231:     $r='l';
1.4       harris41  232:     $flag=1;
1.18      harris41  233:   }
                    234:   elsif ($bad_domain_flag) {
                    235:     print "Invalid input ('$choice' conflicts with LON-CAPA namespace).\n";
                    236:     print "Please try something different than '$choice'\n";
1.4       harris41  237:   }
                    238:   else {
                    239:     print "Invalid input (only alphanumeric characters supported).\n";
                    240:   }
                    241: }
1.1       harris41  242: 
1.20      albertel  243: 
                    244: # get domain description
                    245: # accept if valid, if not valid, tell user and repeat
                    246: $flag=0;
                    247: 
                    248: while (!$flag) {
                    249:   print(&lt;&lt;END);
                    250: 
                    251: **** Domain Description ****
                    252: String describing the domain, to be shown to users.
                    253: [Example, msu is Michigan State University]
                    254: ENTER DOMAIN DESCRIPTION:
                    255: END
                    256: 
                    257:   my $choice=&lt;&gt;;
                    258:   chomp($choice);
                    259:   if ($choice!~/:/) {
                    260:     open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
                    261:     print(OUT 'domainDescription'."\t".$choice."\n");
                    262:     close(OUT);
                    263:     $domainDescription=$choice;
                    264:     $flag=1;
                    265:   }
                    266:   else {
                    267:     print "Invalid input (no ':' allowed).\n";
                    268:   }
                    269: }
                    270: 
1.8       harris41  271: my $lonHostID;
                    272: if ($lonDefDomain) {
                    273:   $lonHostID=$lonDefDomain.$r.int(1+rand(9)); # should be probably also detect
                    274:                                               # against the hosts.tab
                    275: }
                    276: 
1.1       harris41  277:   print(&lt;&lt;END);
                    278: 
1.8       harris41  279: **** Machine ID Name ****
                    280: [this does NOT need to correspond to internet address names;
                    281:  this name MUST be unique to the whole LON-CAPA network;
                    282:  we recommend that you use a name based off of your institution;
                    283:  good examples: "msul1" or "bionetl1";
                    284:  bad examples: "loncapabox" or "studentsinside"]
1.1       harris41  285: END
1.8       harris41  286: # get machine name
1.1       harris41  287: # accept if valid, if not valid, tell user and repeat
1.4       harris41  288: $flag=0;
                    289: while (!$flag) {
                    290: if ($ipdomain) {
                    291: print(&lt;&lt;END);
1.8       harris41  292: ENTER LONCAPA MACHINE ID [$lonHostID]:
1.4       harris41  293: END
                    294: }
                    295: else {
                    296:   print(&lt;&lt;END);
1.8       harris41  297: ENTER LONCAPA MACHINE ID:
1.4       harris41  298: END
                    299: }
                    300:   my $choice=&lt;&gt;;
                    301:   chomp($choice);
1.8       harris41  302:   if ($lonHostID and $choice=~/^\s*$/) {
                    303:     $choice=$lonHostID;
1.4       harris41  304:     open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
1.8       harris41  305:     print(OUT 'lonHostID'."\t".$choice."\n");
1.4       harris41  306:     close(OUT);
1.8       harris41  307:     $lonHostID=$choice;
1.4       harris41  308:     $flag=1;
                    309:   }
                    310:   elsif ($choice!~/\_/ and $choice=~/^\w+$/) {
                    311:     open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
1.8       harris41  312:     print(OUT 'lonHostID'."\t".$choice."\n");
1.4       harris41  313:     close(OUT);
1.8       harris41  314:     $lonHostID=$choice;
1.4       harris41  315:     $flag=1;
                    316:   }
                    317:   else {
                    318:     print "Invalid input (only alphanumeric characters supported).\n";
                    319:   }
                    320: }
1.1       harris41  321: 
1.4       harris41  322: # get e-mail address
                    323: # accept if valid, if not valid, tell user and repeat
                    324: $flag=0;
1.9       harris41  325: my $lonAdmEMail;
1.4       harris41  326: while (!$flag) {
1.1       harris41  327:   print(&lt;&lt;END);
                    328: 
                    329: **** System Administrator's E-mail ****
                    330: E-mail address of the person who will manage this machine
1.4       harris41  331: [should be in the form somebody\@somewhere]
1.1       harris41  332: ENTER E-MAIL ADDRESS:
                    333: END
                    334: 
1.4       harris41  335:   my $choice=&lt;&gt;;
                    336:   chomp($choice);
                    337:   if ($choice=~/\@/) {
                    338:     open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
1.9       harris41  339:     print(OUT 'lonAdmEMail'."\t".$choice."\n");
1.4       harris41  340:     close(OUT);
1.9       harris41  341:     $lonAdmEMail=$choice;
1.4       harris41  342:     $flag=1;
                    343:   }
                    344:   else {
                    345:     print "Invalid input (this needs to look like an e-mail address!).\n";
                    346:   }
                    347: }
                    348: 
1.1       harris41  349: # update loncapa.conf
1.7       harris41  350: my $confdir='/etc/httpd/conf/';
                    351: #my $confdir='';
1.5       harris41  352: my $filename='loncapa.conf';
                    353: my %perlvar;
                    354:     if (-e "$confdir$filename") {
                    355: 	open(CONFIG,'&lt;'.$confdir.$filename) or die("Can't read $confdir$filename");
                    356: 	while (my $configline=&lt;CONFIG&gt;) {
                    357: 	    if ($configline =~ /^[^\#]*PerlSetVar/) {
                    358: 		my ($unused,$varname,$varvalue)=split(/\s+/,$configline);
                    359: 		chomp($varvalue);
1.12      harris41  360: 		$perlvar{$varname}=$varvalue if $varvalue!~/^\{\[\[\[\[/;
1.5       harris41  361: 	    }
                    362: 	}
                    363: 	close(CONFIG);
                    364:     }
                    365:     $perlvar{'lonHostID'}=$lonHostID;
                    366:     $perlvar{'lonDefDomain'}=$lonDefDomain;
1.9       harris41  367:     $perlvar{'lonAdmEMail'}=$lonAdmEMail;
1.5       harris41  368:     $perlvar{'lonRole'}=$lonRole;
1.16      harris41  369:     unless ($perlvar{'lonLoadLim'} and $perlvar{'lonLoadLim'}!~/\{\[\[\[\[/) {
1.5       harris41  370:        $perlvar{'lonLoadLim'}='2.00';
                    371:     }
1.16      harris41  372:     unless ($perlvar{'lonExpire'} and $perlvar{'lonExpire'}!~/\{\[\[\[\[/) {
1.5       harris41  373:        $perlvar{'lonExpire'}='86400';
                    374:     }
1.16      harris41  375:     unless ($perlvar{'lonReceipt'} and $perlvar{'lonReceipt'}!~/\{\[\[\[\[/) {
1.5       harris41  376:        my $lonReceipt='';
1.11      harris41  377:        srand(time ^ $$ ^ unpack "%L*", `ps axww | gzip`);
1.5       harris41  378:        my @alnum=(0..9,a..z);
                    379:        foreach my $i (1..20) {
                    380: 	 $lonReceipt.=$alnum[int(rand(36))];
                    381:        }
                    382:        $perlvar{'lonReceipt'}=$lonReceipt;
                    383:     }
                    384:     open(OUT,"&gt;$confdir$filename") or
                    385:       die("Cannot output to $confdir$filename\n");
                    386:     foreach my $key (keys %perlvar) {
                    387:       my $value=$perlvar{$key};
                    388:       print(OUT &lt;&lt;END);
                    389: PerlSetVar     $key      $value
                    390: END
                    391:     }
                    392:     close(OUT);
1.1       harris41  393: }
                    394: </perlscript>
                    395: </file>
                    396: <file>
1.5       harris41  397: <target dist='default'>/</target>
1.1       harris41  398: <perlscript mode='fg'>
                    399: # read values from loncapa.conf
1.7       harris41  400: my $confdir='/etc/httpd/conf/';
1.5       harris41  401: my $filename='loncapa.conf';
                    402: my %perlvar;
                    403:     if (-e "$confdir$filename") {
                    404: 	open(CONFIG,'&lt;'.$confdir.$filename) or 
                    405:           die("Can't read $confdir$filename");
                    406: 	while (my $configline=&lt;CONFIG&gt;) {
                    407: 	    if ($configline =~ /^[^\#]*PerlSetVar/) {
                    408: 		my ($unused,$varname,$varvalue)=split(/\s+/,$configline);
                    409: 		chomp($varvalue);
                    410: 		$perlvar{$varname}=$varvalue;
                    411: 	    }
                    412: 	}
                    413: 	close(CONFIG);
                    414:     }
1.16      harris41  415:     unless ($perlvar{'lonLoadLim'} and $perlvar{'lonLoadLim'}!~/\{\[\[\[\[/) {
                    416:        $perlvar{'lonLoadLim'}='2.00';
                    417:     }
                    418:     unless ($perlvar{'lonExpire'} and $perlvar{'lonExpire'}!~/\{\[\[\[\[/) {
                    419:        $perlvar{'lonExpire'}='86400';
                    420:     }
                    421:     unless ($perlvar{'lonReceipt'} and $perlvar{'lonReceipt'}!~/\{\[\[\[\[/) {
                    422:        my $lonReceipt='';
                    423:        srand(time ^ $$ ^ unpack "%L*", `ps axww | gzip`);
                    424:        my @alnum=(0..9,a..z);
                    425:        foreach my $i (1..20) {
                    426: 	 $lonReceipt.=$alnum[int(rand(36))];
                    427:        }
                    428:        $perlvar{'lonReceipt'}=$lonReceipt;
                    429:     }
1.7       harris41  430: my %perlvarstatic;
                    431:     if (-e "${confdir}loncapa_apache.conf") {
                    432: 	open(CONFIG,'&lt;'.$confdir.'loncapa_apache.conf') or 
                    433:           die("Can't read ${confdir}loncapa_apache.conf");
                    434: 	while (my $configline=&lt;CONFIG&gt;) {
                    435: 	    if ($configline =~ /^[^\#]*PerlSetVar/) {
                    436: 		my ($unused,$varname,$varvalue)=split(/\s+/,$configline);
                    437: 		chomp($varvalue);
                    438: 		$perlvarstatic{$varname}=$varvalue;
                    439: 	    }
                    440: 	}
                    441: 	close(CONFIG);
                    442:     }
1.22    ! albertel  443:     unless ($domainDescription) {
        !           444:        open(IN,'&lt;../'.$lonCluster.'_hosts.tab');
        !           445:        while(&lt;IN&gt;) {
        !           446:           if (/^$perlvar{'lonHostID'}\:/) {
        !           447: 	     (undef,undef,undef,undef,undef,$domainDescription)=split(/:/,$_);
        !           448: 	     chomp($domainDescription);
        !           449:              last;
        !           450:           }
        !           451:        }
        !           452:        close(IN);	
        !           453:     }
1.6       harris41  454: # implement editing logic below, interactively
1.22    ! albertel  455: # update loncapa.conf until 8 is entered
1.6       harris41  456: 
                    457: $flag=0;
1.17      harris41  458: 
1.6       harris41  459: while (!$flag) {
1.1       harris41  460:   print(&lt;&lt;END);
                    461: 
                    462: ===============================================================================
                    463: This is now the current configuration of your machine.
1.8       harris41  464: 1) Domain Name: $perlvar{'lonDefDomain'}
1.20      albertel  465: 2) Domain Description: $domainDescription
                    466: 3) Machine Name: $perlvar{'lonHostID'}
                    467: 4) System Administrator's E-mail Address: $perlvar{'lonAdmEMail'}
                    468: 5) Role: $perlvar{'lonRole'}
                    469: 6) Cache Expiration Time: $perlvar{'lonExpire'}
                    470: 7) Server Load: $perlvar{'lonLoadLim'}
                    471: 8) Everything is correct up above
1.6       harris41  472: END
1.17      harris41  473: my $hbug=-1;
                    474: my $dbug=-1;
                    475: {
                    476:   my $v=$perlvar{'lonHostID'};
                    477:   $hbug=0;
                    478:   $hbug=1 if $v=~/\W/;
                    479:   $hbug=1 if $v=~/\_/;
                    480: }
                    481: {
                    482:   my $v=$1;
                    483:   $dbug=0;
                    484:   $dbug=1 if $v=~/\W/;
                    485:   $dbug=1 if $v=~/\_/;
                    486: }
                    487: 
                    488: if ($hbug) {
                    489:   print "**** ERROR **** ".
                    490: 	"Invalid lonHostID (should only be letters and/or digits)\n";
                    491: }
                    492: if ($dbug) {
                    493:   print "**** ERROR **** ".
                    494: 	"Invalid lonDefDomain (should only be letters and/or digits)\n";
                    495: }
                    496: 
1.6       harris41  497:   print(&lt;&lt;END);
1.20      albertel  498: ENTER A CHOICE OF 1-7 TO CHANGE, otherwise ENTER 8:
1.1       harris41  499: END
1.5       harris41  500: my $choice=&lt;&gt;;
                    501: chomp($choice);
1.6       harris41  502:   if ($choice==1) {
                    503:   print(&lt;&lt;END);
1.16      harris41  504: 1) Domain Name: $perlvar{'lonDefDomain'}
1.20      albertel  505: ENTER NEW VALUE (this is an internal value used to identify a group of
                    506:                  LON-CAPA machines, it must be alphanumerical, we suggest
                    507:                  using a part of your actual DNS domain. For example, for
                    508:                  the machine loncapa.msu.edu, we set the Domain to msu):
1.6       harris41  509: END
                    510:     my $choice2=&lt;&gt;;
                    511:     chomp($choice2);
1.8       harris41  512:     $perlvar{'lonDefDomain'}=$choice2;
1.6       harris41  513:   }
                    514:   elsif ($choice==2) {
                    515:   print(&lt;&lt;END);
1.20      albertel  516: 2) Domain Description: $domainDescription
                    517: ENTER NEW VALUE (this should be a string that describes your domain, spaces
                    518:                  and punctuation are fine except for ':'):
                    519: END
                    520:     my $choice2=&lt;&gt;;
                    521:     chomp($choice2);
                    522:     $domainDescription=$choice2;
                    523:   }
                    524:   elsif ($choice==3) {
                    525:   print(&lt;&lt;END);
                    526: 3) Machine Name: $perlvar{'lonHostID'}
                    527: ENTER NEW VALUE (this will be the name of the machine in the LON-CAPA network
                    528:                  it cannot contain any of '_' '-' '.' or ':'. We suggest that
                    529:                  if you are in the domain 'example' and are the first library
                    530:                  server you enter 'examplel1') :
1.6       harris41  531: END
                    532:     my $choice2=&lt;&gt;;
                    533:     chomp($choice2);
1.8       harris41  534:     $perlvar{'lonHostID'}=$choice2;
1.6       harris41  535:   }
1.20      albertel  536:   elsif ($choice==4) {
1.6       harris41  537:   print(&lt;&lt;END);
1.20      albertel  538: 4) System Administrator's E-mail Address: $perlvar{'lonAdmEMail'}
1.6       harris41  539: ENTER NEW VALUE:
                    540: END
                    541:     my $choice2=&lt;&gt;;
                    542:     chomp($choice2);
1.9       harris41  543:     $perlvar{'lonAdmEMail'}=$choice2;
1.6       harris41  544:   }
1.20      albertel  545:   elsif ($choice==5) {
1.6       harris41  546:   print(&lt;&lt;END);
1.20      albertel  547: 5) Role: $perlvar{'lonRole'}
                    548: ENTER NEW VALUE (this should be either 'access' or 'library' 
                    549:                  if in doubt select 'library'):
1.6       harris41  550: END
                    551:     my $choice2=&lt;&gt;;
                    552:     chomp($choice2);
                    553:     $perlvar{'lonRole'}=$choice2;
                    554:   }
1.20      albertel  555:   elsif ($choice==6) {
1.6       harris41  556:   print(&lt;&lt;END);
1.20      albertel  557: 6) Cache Expiration Time: $perlvar{'lonExpire'}
                    558: ENTER NEW VALUE (in seconds, 86400 is a reasonable value):
1.6       harris41  559: END
                    560:     my $choice2=&lt;&gt;;
                    561:     chomp($choice2);
                    562:     $perlvar{'lonExpire'}=$choice2;
                    563:   }
1.20      albertel  564:   elsif ($choice==7) {
1.6       harris41  565:   print(&lt;&lt;END);
1.20      albertel  566: 7) Server Load: $perlvar{'lonLoadLim'}
1.6       harris41  567: ENTER NEW VALUE:
                    568: END
                    569:     my $choice2=&lt;&gt;;
                    570:     chomp($choice2);
                    571:     $perlvar{'lonLoadLim'}=$choice2;
                    572:   }
1.20      albertel  573:   elsif ($choice==8) {
1.6       harris41  574:     $flag=1;
                    575:   }
                    576:   else {
1.1       harris41  577: 
1.6       harris41  578:   }
                    579: }
1.7       harris41  580:     open(OUT,"&gt;$confdir$filename") or
                    581:       die("Cannot output to $confdir$filename\n");
                    582:     foreach my $key (keys %perlvar) {
                    583:       my $value=$perlvar{$key};
1.8       harris41  584:       print(OUT &lt;&lt;END) unless $perlvarstatic{$key};
1.7       harris41  585: PerlSetVar     $key      $value
                    586: END
                    587:     }
                    588:     close(OUT);
1.1       harris41  589: </perlscript>
                    590: </file>
                    591: <file>
                    592: <target dist='default'>loncom/hosts.tab</target>
                    593: <perlscript mode='fg'>
                    594: unless (-l "<TARGET />") {
1.22    ! albertel  595:   my $hostname=`hostname`;chomp($hostname);
        !           596:   my $hostaddress=`hostname -i $hostname`;chomp($hostaddress);
        !           597:   $hostaddress=~s/\s//;
1.15      harris41  598:   $date=`date -I`; chomp($date);
                    599:   $lonHostID=$perlvar{'lonHostID'};
                    600:   $lonHostID=~s/\W//g;
                    601:   $lineexistflag=0;
                    602:   $hostidexistflag=0;
1.22    ! albertel  603:   $line2insert=&lt;&lt;END;
        !           604: $perlvar{'lonHostID'}:$perlvar{'lonDefDomain'}:$perlvar{'lonRole'}:$hostname:$hostaddress:$domainDescription
1.15      harris41  605: END
                    606:   if ($flag==1) {
1.6       harris41  607:     `rm -f ../hosts.tab`;
1.15      harris41  608:     open(IN,'&lt;../'.$lonCluster.'_hosts.tab');
1.13      harris41  609:     while(&lt;IN&gt;) {
                    610:       if (/^$line2insert$/) {
                    611:         $lineexistflag=1;
                    612:       }
1.15      harris41  613:       if (/^$lonHostID\:/) {
1.13      harris41  614:         $hostidexistflag=1;
                    615:       }
                    616:     }
                    617:     close(IN);
                    618:     if ($hostidexistflag and !$lineexistflag) {
                    619:       print &lt;&lt;END;
                    620: WARNING: $lonHostID already exists inside
1.15      harris41  621: loncapa/loncom/${lonCluster}_hosts.tab.  The entry inside
                    622: ${lonCluster}_hosts.tab does not match your settings.
                    623: The entry inside ${lonCluster}_hosts.tab is being replaced
1.13      harris41  624: with your new values.
                    625: END
1.15      harris41  626:       `grep -v "$lonHostID:" ../${lonCluster}_hosts.tab &gt; ../new_${lonCluster}_hosts.tab`;
                    627:        open(OUT,'&gt;&gt;../new_'.$lonCluster.'_hosts.tab') or
                    628:          die("cannot open loncom/${lonCluster}_hosts.tab for output\n");
1.14      harris41  629:          print(OUT $line2insert);
1.13      harris41  630:        close(OUT);
1.15      harris41  631:       `ln -s new_${lonCluster}_hosts.tab ../hosts.tab`;
1.13      harris41  632:       # email appropriate message
1.19      harris41  633:       system('ping -c 1 www.lon-capa.org > /dev/null || ping -c 1 www.msu.edu > /dev/null || ping -c 1 www.mit.edu > /dev/null');
                    634:       `echo "REPLACE:$lonCluster:$lonHostID:$date:$line2insert" | mail -s "REPLACE:$lonCluster:$lonHostID:$date" installrecord\@mail.lon-capa.org` unless $?;
1.13      harris41  635:     }
                    636:     elsif ($hostidexistflag and $lineexistflag) {
1.15      harris41  637:       print &lt;&lt;END;
                    638: Entry exists in ${lonCluster}_hosts.tab.
                    639: END
                    640:       `ln -s ${lonCluster}_hosts.tab ../hosts.tab`;
                    641:       # email appropriate message
                    642:       `echo "STABLEUPDATE:$lonCluster:$lonHostID:$date:$line2insert" | mail -s "STABLEUPDATE:$lonCluster:$lonHostID:$date" installrecord\@mail.lon-capa.org`;
1.13      harris41  643:     }
1.15      harris41  644:     elsif (!$hostidexistflag and !$lineexistflag) {
                    645:       print &lt;&lt;END;
                    646: New entry for $lonCluster.
1.6       harris41  647: END
1.15      harris41  648:       `cat ../${lonCluster}_hosts.tab &gt; ../new_${lonCluster}_hosts.tab`;
1.21      albertel  649:        open(OUT,'&gt;&gt;../new_'.$lonCluster.'_hosts.tab') or
                    650:          die("cannot open loncom/new_${lonCluster}_hosts.tab for output\n");
1.15      harris41  651:          print(OUT $line2insert);
                    652:        close(OUT);
                    653:       `ln -s new_${lonCluster}_hosts.tab ../hosts.tab`;
                    654:       # email appropriate message
                    655:       `echo "INSERT:$lonCluster:$lonHostID:$date:$line2insert" | mail -s "INSERT:$lonCluster:$lonHostID:$date" installrecord\@mail.lon-capa.org`;
1.6       harris41  656:     }
                    657:   }
1.1       harris41  658: }
                    659: </perlscript>
                    660: </file>
                    661: </files>
                    662: </piml>

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