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

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

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