version 1.67, 2011/01/01 21:49:56
|
version 1.68, 2011/01/13 17:49:23
|
Line 140 The following 4 values are needed to con
|
Line 140 The following 4 values are needed to con
|
* LON-CAPA Domain Name |
* LON-CAPA Domain Name |
* LON-CAPA Machine ID Name, and |
* LON-CAPA Machine ID Name, and |
* Server Administration E-mail Address. |
* Server Administration E-mail Address. |
|
* LON-CAPA Domain's Primary Library Server Machine ID |
|
* Web Server Protocol |
|
* Internet Domain Name of Your Institution |
=============================================================================== |
=============================================================================== |
|
|
In addition, a Support E-mail Address can also be included. If |
In addition, a Support E-mail Address can also be included. If |
Line 368 if ($lonRole eq 'library') {
|
Line 371 if ($lonRole eq 'library') {
|
$primaryLibServer = $libservers[0]; |
$primaryLibServer = $libservers[0]; |
} |
} |
} |
} |
|
|
|
$flag=0; |
while (!$flag) { |
while (!$flag) { |
print(<<END); |
print(<<END); |
**** Domain's Primary Library Server ID **** |
**** Domain's Primary Library Server ID **** |
Line 476 END
|
Line 481 END
|
} |
} |
} |
} |
|
|
|
# get protocol |
|
# accept if valid, if not valid, tell user and repeat |
|
$flag=0; |
while (!$flag) { |
while (!$flag) { |
print(<<END); |
print(<<END); |
|
|
**** Web Server Protocol **** |
**** Web Server Protocol **** |
If you plan to run the Apache server with SSL enabled, |
If you plan to run the Apache server with SSL enabled, |
the protocol should be: https; otherwise it should be http. |
the protocol should be: https; otherwise it should be http. |
ENTER WEB SERVER PROTOCOL: |
ENTER WEB SERVER PROTOCOL [http]: |
END |
END |
|
|
my $choice=<>; |
my $choice=<>; |
Line 493 END
|
Line 501 END
|
close(OUT); |
close(OUT); |
$protocol=$choice; |
$protocol=$choice; |
$flag=1; |
$flag=1; |
} |
} elsif ($choice eq '') { |
else { |
open(OUT,'>>/tmp/loncapa_updatequery.out'); |
|
print(OUT 'protocol'."\t".'http'."\n"); |
|
close(OUT); |
|
$protocol = 'http'; |
|
$flag = 1; |
|
} else { |
print "Invalid input (only http or https allowed).\n"; |
print "Invalid input (only http or https allowed).\n"; |
} |
} |
} |
} |
|
|
|
# get internet domain |
|
# accept if valid, if not valid, tell user and repeat |
|
$flag=0; |
while (!$flag) { |
while (!$flag) { |
print(<<END); |
print(<<END); |
|
|
Line 517 END
|
Line 533 END
|
chomp($choice); |
chomp($choice); |
if ($choice =~/[^.]+\.[^.]+/) { |
if ($choice =~/[^.]+\.[^.]+/) { |
open(OUT,'>>/tmp/loncapa_updatequery.out'); |
open(OUT,'>>/tmp/loncapa_updatequery.out'); |
print(OUT 'internet domain'."\t".$intdom."\n"); |
print(OUT 'internet domain'."\t".$choice."\n"); |
close(OUT); |
close(OUT); |
$intdom=$choice; |
$intdom=$choice; |
$flag=1; |
$flag=1; |