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.45 and 1.47

version 1.45, 2006/01/07 14:29:16	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 427 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 612 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 624 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 677 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 690 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 805 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.45
changed lines
	Added in v.1.47