version 1.36, 2005/03/23 18:43:24
|
version 1.37, 2005/05/21 00:40:01
|
Line 206 if ($hostname=~/([^\.]*)\.([^\.]*)$/) {
|
Line 206 if ($hostname=~/([^\.]*)\.([^\.]*)$/) {
|
|
|
**** 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"] |
good examples might be "msu" or "bionet" or "vermontcc", |
|
bad examples are "physics" (too general) |
|
or "michiganstateuniversity" (too long) |
|
or "msuedu" (internet domain, just make it "msu") |
|
or "msuphysics" (only if there is a good reason to limit) |
|
or "mydomain" (what is that?) |
|
Please make this name short AND descriptive of your organization. |
|
Note that the domain is very hard to change later. |
|
Double-check with the LON-CAPA group at MSU if this domain is |
|
going to be part of the main production cluster, since it needs |
|
to be unique.] |
END |
END |
|
|
# get domain name |
# get domain name |
Line 231 END
|
Line 241 END
|
foreach my $bad (@bad_domain_names) { |
foreach my $bad (@bad_domain_names) { |
$bad_domain_flag=1 if $choice eq $bad; |
$bad_domain_flag=1 if $choice eq $bad; |
} |
} |
|
if ($choice=~/capa/i) { |
|
$bad_domain_flag=1; |
|
} |
if ($ipdomain and $choice=~/^\s*$/) { |
if ($ipdomain and $choice=~/^\s*$/) { |
$choice=$ipdomain; |
$choice=$ipdomain; |
open(OUT,'>>/tmp/loncapa_updatequery.out'); |
open(OUT,'>>/tmp/loncapa_updatequery.out'); |
Line 238 END
|
Line 251 END
|
close(OUT); |
close(OUT); |
$lonDefDomain=$choice; |
$lonDefDomain=$choice; |
$flag=1; |
$flag=1; |
} |
} elsif (length($choice)>12) { |
elsif ($choice!~/\_/ and $choice=~/^\w+$/) { |
print "Name too long\n"; |
|
} elsif (length($choice)<2) { |
|
print "Name too short\n"; |
|
} elsif ($choice!~/\_/ and $choice=~/^\w+$/) { |
open(OUT,'>>/tmp/loncapa_updatequery.out'); |
open(OUT,'>>/tmp/loncapa_updatequery.out'); |
print(OUT 'lonDefDomain'."\t".$choice."\n"); |
print(OUT 'lonDefDomain'."\t".$choice."\n"); |
close(OUT); |
close(OUT); |
$lonDefDomain=$choice; |
$lonDefDomain=$choice; |
$r='l'; |
$r='l'; |
$flag=1; |
$flag=1; |
} |
} elsif ($bad_domain_flag) { |
elsif ($bad_domain_flag) { |
|
print "Invalid input ('$choice' conflicts with LON-CAPA namespace).\n"; |
print "Invalid input ('$choice' conflicts with LON-CAPA namespace).\n"; |
print "Please try something different than '$choice'\n"; |
print "Please try something different than '$choice'\n"; |
} |
} else { |
else { |
|
print "Invalid input (only alphanumeric characters supported).\n"; |
print "Invalid input (only alphanumeric characters supported).\n"; |
} |
} |
} |
} |
Line 296 if ($lonDefDomain) {
|
Line 310 if ($lonDefDomain) {
|
[this does NOT need to correspond to internet address names; |
[this does NOT need to correspond to internet address names; |
this name MUST be unique to the whole LON-CAPA network; |
this name MUST be unique to the whole LON-CAPA network; |
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 "bioneta2"; |
bad examples: "loncapabox" or "studentsinside"] |
bad examples: "loncapabox" or "studentsinside". |
|
Note that machine names are very hard to change later.] |
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 |
Line 315 END
|
Line 330 END
|
} |
} |
my $choice=<>; |
my $choice=<>; |
chomp($choice); |
chomp($choice); |
if ($lonHostID and $choice=~/^\s*$/) { |
if ($choice=~/capa/i) { |
|
print "Invalid input (names containing 'capa' are reserved).\n"; |
|
} elsif ($lonHostID and $choice=~/^\s*$/) { |
$choice=$lonHostID; |
$choice=$lonHostID; |
open(OUT,'>>/tmp/loncapa_updatequery.out'); |
open(OUT,'>>/tmp/loncapa_updatequery.out'); |
print(OUT 'lonHostID'."\t".$choice."\n"); |
print(OUT 'lonHostID'."\t".$choice."\n"); |
close(OUT); |
close(OUT); |
$lonHostID=$choice; |
$lonHostID=$choice; |
$flag=1; |
$flag=1; |
} |
} elsif (length($choice)>15) { |
elsif ($choice!~/\_/ and $choice=~/^\w+$/) { |
print "Name too long\n"; |
|
} elsif (length($choice)<4) { |
|
print "Name too short\n"; |
|
} elsif ($choice!~/\_/ and $choice=~/^\w+$/) { |
open(OUT,'>>/tmp/loncapa_updatequery.out'); |
open(OUT,'>>/tmp/loncapa_updatequery.out'); |
print(OUT 'lonHostID'."\t".$choice."\n"); |
print(OUT 'lonHostID'."\t".$choice."\n"); |
close(OUT); |
close(OUT); |
$lonHostID=$choice; |
$lonHostID=$choice; |
$flag=1; |
$flag=1; |
} |
} else { |
else { |
|
print "Invalid input (only alphanumeric characters supported).\n"; |
print "Invalid input (only alphanumeric characters supported).\n"; |
} |
} |
} |
} |