Annotation of doc/loncapafiles/updatequery.piml, revision 1.1
1.1 ! harris41 1: <!-- sanitycheck.piml -->
! 2: <!-- Scott Harrison -->
! 3:
! 4: <!-- $Id: sanitycheck.piml,v 1.1 2002/03/03 04:29:10 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/lonUsers2</target>
! 35: <perlscript mode='fg'>
! 36: print(<<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/lonUsers2</target>
! 54: <perlscript mode='fg'>
! 55: unless (-e "<TARGET />") {
! 56: print(<<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: print(<<END);
! 70:
! 71: **** Machine ID Name ****
! 72: [this does NOT need to correspond to internet address names;
! 73: this name MUST be unique to the whole LON-CAPA network;
! 74: we recommend that you use a name based off of your institution;
! 75: good examples: "msul1" or "bionetl1";
! 76: bad examples: "loncapabox" or "studentsinside"]
! 77: ENTER MACHINE ID NAME:
! 78: END
! 79: # get machine name
! 80: # accept if valid, if not valid, tell user and repeat
! 81:
! 82: print(<<END);
! 83:
! 84: **** Domain ****
! 85: [this does NOT need to correspond to internet address domains,
! 86: examples might be "msu" or "bionet" or "vermontcc"]
! 87: ENTER LONCAPA DOMAIN:
! 88: END
! 89:
! 90: # get domain name
! 91: # accept if valid, if not valid, tell user and repeat
! 92:
! 93: print(<<END);
! 94:
! 95: **** System Administrator's E-mail ****
! 96: E-mail address of the person who will manage this machine
! 97: [should be in the form somebody@somewhere]
! 98: ENTER E-MAIL ADDRESS:
! 99: END
! 100:
! 101: # get e-mail address
! 102: # accept if valid, if not valid, tell user and repeat
! 103: # update loncapa.conf
! 104: }
! 105: </perlscript>
! 106: </file>
! 107: <file>
! 108: <target dist='default'>/home/httpd/lonUsers2</target>
! 109: <perlscript mode='fg'>
! 110: # read values from loncapa.conf
! 111: print(<<END);
! 112:
! 113: ===============================================================================
! 114: This is now the current configuration of your machine.
! 115: 1) Machine Name: $perlsetvar{'lonHostID'}
! 116: 2) Domain Name: $perlsetvar{'lonDefDomain'}
! 117: 3) System Administrator's E-mail Address: $perlsetvar{'lonAdmEmail'}
! 118: 4) Role: $perlsetvar{'lonRole'}
! 119: 5) Cache Expiration Time: $perlsetvar{'lonExpire'}
! 120: 6) Server Load: $perlsetvar{'lonLoadLim'}
! 121: 7) Everything is correct up above
! 122: ENTER A CHOICE OF 1-6 TO CHANGE, otherwise ENTER 7:
! 123: END
! 124:
! 125: # implement editing logic below, interactively
! 126: # update loncapa.conf until 7 is entered
! 127:
! 128: </perlscript>
! 129: </file>
! 130: <file>
! 131: <target dist='default'>loncom/hosts.tab</target>
! 132: <perlscript mode='fg'>
! 133: unless (-l "<TARGET />") {
! 134: print(<<END);
! 135:
! 136: ===============================================================================
! 137: What hosts.tab would you like to have installed?
! 138: (hosts.tab is a listing of all other internet machines
! 139: that a server system considers to be valid server systems
! 140: on the LON-CAPA network)
! 141:
! 142: 1) PRODUCTION - you want to deliver courses today or sometime very soon
! 143: on this machine
! 144: 2) DEVELOPMENT - you want to play with or explore LON-CAPA
! 145: 3) Do not install hosts.tab right now
! 146:
! 147: ENTER 1, 2, or 3:
! 148: END
! 149: # Option number 26 will install rawhide_hosts.tab, but
! 150: # the typical user does not want to be part of an intensive
! 151: # machine test cluster.
! 152:
! 153: # get input
! 154: # if valid then process, otherwise loop
! 155:
! 156: }
! 157: </perlscript>
! 158: </file>
! 159: </files>
! 160: </piml>
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/back.gif){kind=icon}
Return to updatequery.piml CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / doc / loncapafiles