Return to updatequery.piml CVS log

Up to [LON-CAPA] / doc / loncapafiles

should query for machine role and also propose a "machinename" like
msul1 or something (BUG 327)

    1: <!-- updatequery.piml -->
    2: <!-- Scott Harrison -->
    3: 
    4: <!-- $Id: updatequery.piml,v 1.3 2002/05/12 19:25:15 harris41 Exp $ -->
    5: 
    6: <!--
    7: 
    8: This file is part of the LearningOnline Network with CAPA (LON-CAPA).
    9: 
   10: LON-CAPA is free software; you can redistribute it and/or modify
   11: it under the terms of the GNU General Public License as published by
   12: the Free Software Foundation; either version 2 of the License, or
   13: (at your option) any later version.
   14: 
   15: LON-CAPA is distributed in the hope that it will be useful,
   16: but WITHOUT ANY WARRANTY; without even the implied warranty of
   17: MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   18: GNU General Public License for more details.
   19: 
   20: You should have received a copy of the GNU General Public License
   21: along with LON-CAPA; if not, write to the Free Software
   22: Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
   23: 
   24: /home/httpd/html/adm/gpl.txt
   25: 
   26: http://www.lon-capa.org/
   27: 
   28: -->
   29: 
   30: <piml>
   31: <targetroot>/</targetroot>
   32: <files>
   33: <file>
   34: <target dist='default'>/home/httpd/lonUsers</target>
   35: <perlscript mode='fg'>
   36:   print(&lt;&lt;END);
   37: 
   38: 
   39: *********************************************
   40: *********************************************
   41: ****                                     ****
   42: **** LON-CAPA SYSTEM INFORMATION REQUEST ****
   43: ****                                     ****
   44: **** Please respond to the choices below ****
   45: ****                                     ****
   46: *********************************************
   47: *********************************************
   48: 
   49: END
   50: </perlscript>
   51: </file>
   52: <file>
   53: <target dist='default'>/home/httpd/lonUsers</target>
   54: <perlscript mode='fg'>
   55: unless (-e "<TARGET />") {
   56:   print(&lt;&lt;END);
   57:            WELCOME TO LON-CAPA!
   58: 
   59: If you have questions, please visit http://install.lon-capa.org
   60: or contact sharrison@install.lon-capa.org.
   61: 
   62: ===============================================================================
   63: The following 3 values are needed to configure LON-CAPA:
   64: * Machine ID Name
   65: * LON-CAPA Domain Name, and
   66: * System Administration E-mail Address.
   67: END
   68: 
   69: # query for Machine Role
   70:   print(&lt;&lt;END);
   71: **** Machine Role ****
   72: Library server (recommended if first-time installation of LON-CAPA):
   73:    Servers that are repositories of authoritative educational resources.
   74:    These servers also provide the construction space by which instructors
   75:    assemble their classroom online material.
   76: Access server:
   77:    Servers that load-balance high-traffic delivery of educational resources
   78:    over the world-wide web.
   79: 1) Will this be a library server? (recommended if this is your
   80: 2) Or, will this be an access server?
   81: ENTER A CHOICE OF 1 or 2:
   82: END
   83: 
   84: # need to recommend a machine ID name (ipdomain.l.somenumber)
   85: 
   86:   print(&lt;&lt;END);
   87: 
   88: **** Machine ID Name ****
   89: [this does NOT need to correspond to internet address names;
   90:  this name MUST be unique to the whole LON-CAPA network;
   91:  we recommend that you use a name based off of your institution;
   92:  good examples: "msul1" or "bionetl1";
   93:  bad examples: "loncapabox" or "studentsinside"]
   94: ENTER MACHINE ID NAME:
   95: END
   96: # get machine name
   97: # accept if valid, if not valid, tell user and repeat
   98: 
   99:   print(&lt;&lt;END);
  100: 
  101: **** Domain ****
  102: [this does NOT need to correspond to internet address domains,
  103:  examples might be "msu" or "bionet" or "vermontcc"]
  104: ENTER LONCAPA DOMAIN:
  105: END
  106: 
  107: # get domain name
  108: # accept if valid, if not valid, tell user and repeat
  109: 
  110:   print(&lt;&lt;END);
  111: 
  112: **** System Administrator's E-mail ****
  113: E-mail address of the person who will manage this machine
  114: [should be in the form somebody@somewhere]
  115: ENTER E-MAIL ADDRESS:
  116: END
  117: 
  118: # get e-mail address
  119: # accept if valid, if not valid, tell user and repeat
  120: # update loncapa.conf
  121: }
  122: </perlscript>
  123: </file>
  124: <file>
  125: <target dist='default'>/home/httpd/lonUsers2</target>
  126: <perlscript mode='fg'>
  127: # read values from loncapa.conf
  128:   print(&lt;&lt;END);
  129: 
  130: ===============================================================================
  131: This is now the current configuration of your machine.
  132: 1) Machine Name: $perlsetvar{'lonHostID'}
  133: 2) Domain Name: $perlsetvar{'lonDefDomain'}
  134: 3) System Administrator's E-mail Address: $perlsetvar{'lonAdmEmail'}
  135: 4) Role: $perlsetvar{'lonRole'}
  136: 5) Cache Expiration Time: $perlsetvar{'lonExpire'}
  137: 6) Server Load: $perlsetvar{'lonLoadLim'}
  138: 7) Everything is correct up above
  139: ENTER A CHOICE OF 1-6 TO CHANGE, otherwise ENTER 7:
  140: END
  141: 
  142: # implement editing logic below, interactively
  143: # update loncapa.conf until 7 is entered
  144: 
  145: </perlscript>
  146: </file>
  147: <file>
  148: <target dist='default'>loncom/hosts.tab</target>
  149: <perlscript mode='fg'>
  150: unless (-l "<TARGET />") {
  151:   print(&lt;&lt;END);
  152: 
  153: ===============================================================================
  154: What hosts.tab would you like to have installed?
  155: (hosts.tab is a listing of all other internet machines
  156: that a server system considers to be valid server systems
  157: on the LON-CAPA network)
  158: 
  159: 1) PRODUCTION - you want to deliver courses today or sometime very soon
  160:                 on this machine
  161: 2) DEVELOPMENT - you want to play with or explore LON-CAPA
  162: 3) Do not install hosts.tab right now
  163: 
  164: ENTER 1, 2, or 3:
  165: END
  166: # Option number 26 will install rawhide_hosts.tab, but
  167: # the typical user does not want to be part of an intensive
  168: # machine test cluster.
  169: 
  170: # get input
  171: # if valid then process, otherwise loop
  172: 
  173: }
  174: </perlscript>
  175: </file>
  176: </files>
  177: </piml>