doc/loncapafiles/updatequery.piml - diff

Return to updatequery.piml CVS log

Up to [LON-CAPA] / doc / loncapafiles

Diff for /doc/loncapafiles/updatequery.piml between versions 1.44 and 1.47

version 1.44, 2005/12/10 00:28:14	version 1.47, 2006/04/17 19:46:21
Line 143 The following 4 values are needed to con	Line 143 The following 4 values are needed to con
* Machine Role	* Machine Role
* LON-CAPA Domain Name	* LON-CAPA Domain Name
* LON-CAPA Machine ID Name, and	* LON-CAPA Machine ID Name, and
* System Administration E-mail Address.	* Server Administration E-mail Address.
===============================================================================	===============================================================================

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 207 if ($hostname=~/([^\.])\.([^\.])$/) {	Line 207 if ($hostname=~/([^\.])\.([^\.])$/) {
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.
good examples might be "msu" or "bionet" or "vermontcc",	Please make this name short AND descriptive of your organization.
bad examples are "physics" (too general)	Domain names are close to impossible to change later!!!
	Good examples might be "msu" or "bionet" or "vermontcc".
	Bad examples are "physics" (too general)
or "michiganstateuniversity" (too long)	or "michiganstateuniversity" (too long)
or "msuedu" (internet domain, just make it "msu")	or "msuedu" (internet domain, just make it "msu")
or "msuphysics" (only if there is a good reason to limit)	or "msuphysics" (only if there is a good reason to limit to department
	- we don't know of one)
or "mydomain" (what is that?)	or "mydomain" (what is that?)
Please make this name short AND descriptive of your organization.	Avoid multiple domains at the same institution, even if it means that you
Note that the domain is very hard to change later.	have to actually work together with your colleagues. You can still run
Double-check with the LON-CAPA group at MSU if this domain is	multiple library servers within the same domain.
going to be part of the main production cluster, since it needs	If this domain is eventually going to be part of the main production
to be unique.]	cluster, you MUST contact the LON-CAPA group at MSU (loncapa@loncapa.org)
	to have a domain name assigned, and then use it exactly as given. This is
	also true for test installs that might eventually turn into production setups.
	Stop now if you didn't do so.]
END	END

# get domain name	# get domain name
Line 310 if ($lonDefDomain) {	Line 316 if ($lonDefDomain) {
print(<<END);	print(<<END);

** Machine ID Name **	** Machine ID Name **
[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 "bioneta2";	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.]	Note that machine names are very hard to change later.]
END	END
# get machine name	# get machine name
Line 421 my $lonAdmEMail;	Line 427 my $lonAdmEMail;
while (!$flag) {	while (!$flag) {
print(<<END);	print(<<END);

** System Administrator's E-mail **	** Server 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 ADMIN E-MAIL ADDRESS:	ENTER ADMIN E-MAIL ADDRESS:
Line 606 my %perlvarstatic;	Line 612 my %perlvarstatic;
(undef,$domainDescription,$domainTabExtras)=split(/:/,$_,3);	(undef,$domainDescription,$domainTabExtras)=split(/:/,$_,3);
chomp($domainDescription);	chomp($domainDescription);
chomp($domainTabExtras);	chomp($domainTabExtras);
	# the remianing field (primary lib server) is handled later
	$domainTabExtras = join(':',(split(/:/,$domainTabExtras))[0..5]);
last;	last;
}	}
}	}
Line 618 my %perlvarstatic;	Line 626 my %perlvarstatic;
(undef,$domainDescription,$domainTabExtras)=split(/:/,$_,3);	(undef,$domainDescription,$domainTabExtras)=split(/:/,$_,3);
chomp($domainDescription);	chomp($domainDescription);
chomp($domainTabExtras);	chomp($domainTabExtras);
	# the remianing field (primary lib server) is handled later
	$domainTabExtras = join(':',(split(/:/,$domainTabExtras))[0-5]);
last;	last;
}	}
}	}
Line 671 my %perlvarstatic;	Line 681 my %perlvarstatic;
}	}

# implement editing logic below, interactively	# implement editing logic below, interactively
# update loncapa.conf until 8 is entered	# update loncapa.conf until 12 is entered

$flag=0;	$flag=0;

Line 684 This is now the current configuration of	Line 694 This is now the current configuration of
2) Domain Description: $domainDescription	2) Domain Description: $domainDescription
3) Machine Name: $perlvar{'lonHostID'}	3) Machine Name: $perlvar{'lonHostID'}
4) ID of primary library server for domain: $primaryLibServer	4) ID of primary library server for domain: $primaryLibServer
5) System Administrator's E-mail Address: $perlvar{'lonAdmEMail'}	5) Server Administrator's E-mail Address: $perlvar{'lonAdmEMail'}
6) Support E-mail Address: $perlvar{'lonSupportEMail'}	6) Support E-mail Address: $perlvar{'lonSupportEMail'}
7) Role: $perlvar{'lonRole'}	7) Role: $perlvar{'lonRole'}
8) Cache Expiration Time: $perlvar{'lonExpire'}	8) Cache Expiration Time: $perlvar{'lonExpire'}
Line 799 END	Line 809 END
}	}
elsif ($choice==5) {	elsif ($choice==5) {
print(<<END);	print(<<END);
5) System Administrator's E-mail Address: $perlvar{'lonAdmEMail'}	5) Server Administrator's E-mail Address: $perlvar{'lonAdmEMail'}
ENTER NEW VALUE:	ENTER NEW VALUE:
END	END
my $choice2=<>;	my $choice2=<>;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.44
changed lines
	Added in v.1.47