doc/loncapafiles/updatequery.piml - diff

Return to updatequery.piml CVS log

Up to [LON-CAPA] / doc / loncapafiles

version 1.32, 2004/06/28 16:40:18	version 1.33, 2004/06/29 15:18:41
Line 383 END	Line 383 END
my $choice=<>;	my $choice=<>;
chomp($choice);	chomp($choice);
$choice =~ s/\s//g;	$choice =~ s/\s//g;
if ( ($choice=~/\@/) \|\| $choice eq '') ) {	if ( ($choice=~/\@/) \|\| $choice eq '') {
open(OUT,'>>/tmp/loncapa_updatequery.out');	open(OUT,'>>/tmp/loncapa_updatequery.out');
print(OUT 'lonSupportEMail'."\t".$choice."\n");	print(OUT 'lonSupportEMail'."\t".$choice."\n");
close(OUT);	close(OUT);
Line 559 This is now the current configuration of	Line 559 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) System Administrator's E-mail Address: $perlvar{'lonAdmEMail'}	4) System Administrator's E-mail Address: $perlvar{'lonAdmEMail'}
5) Support E-mail Address: $perlvar{'lonSupportEmail'}	5) Support E-mail Address: $perlvar{'lonSupportEMail'}
6) Role: $perlvar{'lonRole'}	6) Role: $perlvar{'lonRole'}
7) Cache Expiration Time: $perlvar{'lonExpire'}	7) Cache Expiration Time: $perlvar{'lonExpire'}
8) Server Load: $perlvar{'lonLoadLim'}	8) Server Load: $perlvar{'lonLoadLim'}