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'} |