version 1.1, 2002/05/03 02:06:45
|
version 1.4, 2002/05/12 22:31:41
|
Line 1
|
Line 1
|
<!-- sanitycheck.piml --> |
<!-- updatequery.piml --> |
<!-- Scott Harrison --> |
<!-- Scott Harrison --> |
|
|
<!-- $Id$ --> |
<!-- $Id$ --> |
Line 31 http://www.lon-capa.org/
|
Line 31 http://www.lon-capa.org/
|
<targetroot>/</targetroot> |
<targetroot>/</targetroot> |
<files> |
<files> |
<file> |
<file> |
<target dist='default'>/home/httpd/lonUsers2</target> |
<target dist='default'>/</target> |
<perlscript mode='fg'> |
<perlscript mode='fg'> |
|
$|=1; |
print(<<END); |
print(<<END); |
|
|
|
|
Line 47 http://www.lon-capa.org/
|
Line 48 http://www.lon-capa.org/
|
********************************************* |
********************************************* |
|
|
END |
END |
|
sleep(3); |
</perlscript> |
</perlscript> |
</file> |
</file> |
<file> |
<file> |
<target dist='default'>/home/httpd/lonUsers2</target> |
<target dist='default'>/home/httpd/lonUsers2/</target> |
<perlscript mode='fg'> |
<perlscript mode='fg'> |
|
$|=1; |
unless (-e "<TARGET />") { |
unless (-e "<TARGET />") { |
print(<<END); |
print(<<END); |
WELCOME TO LON-CAPA! |
WELCOME TO LON-CAPA! |
|
|
If you have questions, please visit http://install.lon-capa.org |
If you have questions, please visit http://install.lon-capa.org |
or contact sharrison@install.lon-capa.org. |
or contact sharrison\@install.lon-capa.org. |
|
|
=============================================================================== |
=============================================================================== |
The following 3 values are needed to configure LON-CAPA: |
The following 4 values are needed to configure LON-CAPA: |
|
* Machine Role |
* Machine ID Name |
* Machine ID Name |
* LON-CAPA Domain Name, and |
* LON-CAPA Domain Name, and |
* System Administration E-mail Address. |
* System Administration E-mail Address. |
END |
END |
|
|
|
open(OUT,'>/tmp/loncapa_updatequery.out'); |
|
close(OUT); |
|
|
|
# query for Machine Role |
|
print(<<END); |
|
**** Machine Role **** |
|
Library server (recommended if first-time installation of LON-CAPA): |
|
Servers that are repositories of authoritative educational resources. |
|
These servers also provide the construction space by which instructors |
|
assemble their classroom online material. |
|
Access server: |
|
Servers that load-balance high-traffic delivery of educational resources |
|
over the world-wide web. |
|
1) Will this be a library server? (recommended if this is your first install) |
|
2) Or, will this be an access server? |
|
END |
|
my $flag=0; |
|
my $r=''; |
|
my $lonRole; |
|
while (!$flag) { |
|
print "ENTER A CHOICE OF 1 or 2:\n"; |
|
my $choice=<>; |
|
chomp($choice); |
|
if ($choice==1) { |
|
open(OUT,'>>/tmp/loncapa_updatequery.out'); |
|
print(OUT 'lonRole'."\t".'library'."\n"); |
|
close(OUT); |
|
$lonRole='library'; |
|
$r='l'; |
|
$flag=1; |
|
} |
|
elsif ($choice==2) { |
|
open(OUT,'>>/tmp/loncapa_updatequery.out'); |
|
print(OUT 'lonRole'."\t".'access'."\n"); |
|
close(OUT); |
|
$lonRole='access'; |
|
$r='a'; |
|
$flag=2; |
|
} |
|
else { |
|
|
|
} |
|
} |
|
|
|
# need to recommend a machine ID name (ipdomain.l.somenumber) |
|
my $hostname=`hostname`; chomp($hostname); |
|
my $ipdomain=''; |
|
if ($hostname=~/([^\.]*)\.([^\.]*)$/) { |
|
$ipdomain=$1; |
|
} |
|
my $lonHostID; |
|
if ($ipdomain) { |
|
$lonHostID=$ipdomain.$r.int(1+rand(9)); # should be probably detect against |
|
# the hosts.tab |
|
} |
|
|
print(<<END); |
print(<<END); |
|
|
**** Machine ID Name **** |
**** Machine ID Name **** |
Line 74 END
|
Line 134 END
|
we recommend that you use a name based off of your institution; |
we recommend that you use a name based off of your institution; |
good examples: "msul1" or "bionetl1"; |
good examples: "msul1" or "bionetl1"; |
bad examples: "loncapabox" or "studentsinside"] |
bad examples: "loncapabox" or "studentsinside"] |
ENTER MACHINE ID NAME: |
|
END |
END |
# get machine name |
# get machine name |
# accept if valid, if not valid, tell user and repeat |
# accept if valid, if not valid, tell user and repeat |
|
$flag=0; |
|
while (!$flag) { |
|
if ($ipdomain) { |
|
print(<<END); |
|
ENTER LONCAPA MACHINE ID [$lonHostID]: |
|
END |
|
} |
|
else { |
|
print(<<END); |
|
ENTER LONCAPA MACHINE ID: |
|
END |
|
} |
|
my $choice=<>; |
|
chomp($choice); |
|
if ($ipdomain and $choice=~/^\s*$/) { |
|
$choice=$ipdomain; |
|
open(OUT,'>>/tmp/loncapa_updatequery.out'); |
|
print(OUT 'lonHostID'."\t".$choice."\n"); |
|
close(OUT); |
|
$flag=1; |
|
} |
|
elsif ($choice!~/\_/ and $choice=~/^\w+$/) { |
|
open(OUT,'>>/tmp/loncapa_updatequery.out'); |
|
print(OUT 'lonHostID'."\t".$choice."\n"); |
|
close(OUT); |
|
$r='l'; |
|
$flag=1; |
|
} |
|
else { |
|
print "Invalid input (only alphanumeric characters supported).\n"; |
|
} |
|
} |
|
|
print(<<END); |
print(<<END); |
|
|
**** Domain **** |
**** Domain **** |
[this does NOT need to correspond to internet address domains, |
[this does NOT need to correspond to internet address domains, |
examples might be "msu" or "bionet" or "vermontcc"] |
examples might be "msu" or "bionet" or "vermontcc"] |
ENTER LONCAPA DOMAIN: |
|
END |
END |
|
|
# get domain name |
# get domain name |
# accept if valid, if not valid, tell user and repeat |
# accept if valid, if not valid, tell user and repeat |
|
$flag=0; |
|
while (!$flag) { |
|
if ($ipdomain) { |
|
print(<<END); |
|
ENTER LONCAPA DOMAIN [$ipdomain]: |
|
END |
|
} |
|
else { |
|
print(<<END); |
|
ENTER LONCAPA DOMAIN: |
|
END |
|
} |
|
my $choice=<>; |
|
chomp($choice); |
|
if ($ipdomain and $choice=~/^\s*$/) { |
|
$choice=$ipdomain; |
|
open(OUT,'>>/tmp/loncapa_updatequery.out'); |
|
print(OUT 'lonDefDomain'."\t".$choice."\n"); |
|
close(OUT); |
|
$flag=1; |
|
} |
|
elsif ($choice!~/\_/ and $choice=~/^\w+$/) { |
|
open(OUT,'>>/tmp/loncapa_updatequery.out'); |
|
print(OUT 'lonDefDomain'."\t".$choice."\n"); |
|
close(OUT); |
|
$r='l'; |
|
$flag=1; |
|
} |
|
else { |
|
print "Invalid input (only alphanumeric characters supported).\n"; |
|
} |
|
} |
|
|
|
# get e-mail address |
|
# accept if valid, if not valid, tell user and repeat |
|
$flag=0; |
|
my $lonAdmEmail; |
|
while (!$flag) { |
print(<<END); |
print(<<END); |
|
|
**** System Administrator's E-mail **** |
**** System Administrator's E-mail **** |
E-mail address of the person who will manage this machine |
E-mail address of the person who will manage this machine |
[should be in the form somebody@somewhere] |
[should be in the form somebody\@somewhere] |
ENTER E-MAIL ADDRESS: |
ENTER E-MAIL ADDRESS: |
END |
END |
|
|
# get e-mail address |
my $choice=<>; |
# accept if valid, if not valid, tell user and repeat |
chomp($choice); |
|
if ($choice=~/\@/) { |
|
open(OUT,'>>/tmp/loncapa_updatequery.out'); |
|
print(OUT 'lonAdmEmail'."\t".$choice."\n"); |
|
close(OUT); |
|
my $lonAdmEmail=$choice; |
|
$flag=1; |
|
} |
|
else { |
|
print "Invalid input (this needs to look like an e-mail address!).\n"; |
|
} |
|
} |
|
|
|
|
# update loncapa.conf |
# update loncapa.conf |
} |
} |
</perlscript> |
</perlscript> |