[BACK]Return to updatequery.piml CVS log [TXT] [DIR] Up to [LON-CAPA] / doc / loncapafiles

Diff for /doc/loncapafiles/updatequery.piml between versions 1.8 and 1.9

version 1.8, 2002/05/13 17:56:29 version 1.9, 2002/05/16 15:29:15
Line 220  END Line 220  END
 # get e-mail address  # get e-mail address
 # accept if valid, if not valid, tell user and repeat  # accept if valid, if not valid, tell user and repeat
 $flag=0;  $flag=0;
 my $lonAdmEmail;  my $lonAdmEMail;
 while (!$flag) {  while (!$flag) {
   print(<<END);    print(<<END);
   
Line 234  END Line 234  END
   chomp($choice);    chomp($choice);
   if ($choice=~/\@/) {    if ($choice=~/\@/) {
     open(OUT,'>>/tmp/loncapa_updatequery.out');      open(OUT,'>>/tmp/loncapa_updatequery.out');
     print(OUT 'lonAdmEmail'."\t".$choice."\n");      print(OUT 'lonAdmEMail'."\t".$choice."\n");
     close(OUT);      close(OUT);
     $lonAdmEmail=$choice;      $lonAdmEMail=$choice;
     $flag=1;      $flag=1;
   }    }
   else {    else {
Line 262  my %perlvar; Line 262  my %perlvar;
     }      }
     $perlvar{'lonHostID'}=$lonHostID;      $perlvar{'lonHostID'}=$lonHostID;
     $perlvar{'lonDefDomain'}=$lonDefDomain;      $perlvar{'lonDefDomain'}=$lonDefDomain;
     $perlvar{'lonAdmEmail'}=$lonAdmEmail;      $perlvar{'lonAdmEMail'}=$lonAdmEMail;
     $perlvar{'lonRole'}=$lonRole;      $perlvar{'lonRole'}=$lonRole;
     unless ($perlvar{'lonSqlAccess'}) {      unless ($perlvar{'lonSqlAccess'}) {
        $perlvar{'lonSqlAccess'}='localhostkey';         $perlvar{'lonSqlAccess'}='localhostkey';
Line 338  while (!$flag) { Line 338  while (!$flag) {
 This is now the current configuration of your machine.  This is now the current configuration of your machine.
 1) Domain Name: $perlvar{'lonDefDomain'}  1) Domain Name: $perlvar{'lonDefDomain'}
 2) Machine Name: $perlvar{'lonHostID'}  2) Machine Name: $perlvar{'lonHostID'}
 3) System Administrator's E-mail Address: $perlvar{'lonAdmEmail'}  3) System Administrator's E-mail Address: $perlvar{'lonAdmEMail'}
 4) Role: $perlvar{'lonRole'}  4) Role: $perlvar{'lonRole'}
 5) Cache Expiration Time: $perlvar{'lonExpire'}  5) Cache Expiration Time: $perlvar{'lonExpire'}
 6) Server Load: $perlvar{'lonLoadLim'}  6) Server Load: $perlvar{'lonLoadLim'}
Line 369  END Line 369  END
   }    }
   elsif ($choice==3) {    elsif ($choice==3) {
   print(<<END);    print(<<END);
 3) System Administrator's E-mail Address: $perlvar{'lonAdmEmail'}  3) System Administrator's E-mail Address: $perlvar{'lonAdmEMail'}
 ENTER NEW VALUE:  ENTER NEW VALUE:
 END  END
     my $choice2=<>;      my $choice2=<>;
     chomp($choice2);      chomp($choice2);
     $perlvar{'lonAdmEmail'}=$choice2;      $perlvar{'lonAdmEMail'}=$choice2;
   }    }
   elsif ($choice==4) {    elsif ($choice==4) {
   print(<<END);    print(<<END);
Removed from v.1.8  
changed lines
  Added in v.1.9

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