Diff for /doc/loncapafiles/updatequery.piml between versions 1.67 and 1.68

version 1.67, 2011/01/01 21:49:56 version 1.68, 2011/01/13 17:49:23
Line 140  The following 4 values are needed to con Line 140  The following 4 values are needed to con
 * LON-CAPA Domain Name  * LON-CAPA Domain Name
 * LON-CAPA Machine ID Name, and  * LON-CAPA Machine ID Name, and
 * Server Administration E-mail Address.  * Server Administration E-mail Address.
   * LON-CAPA Domain's Primary Library Server Machine ID
   * Web Server Protocol
   * Internet Domain Name of Your Institution
 ===============================================================================  ===============================================================================
   
 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 368  if ($lonRole eq 'library') { Line 371  if ($lonRole eq 'library') {
         $primaryLibServer = $libservers[0];          $primaryLibServer = $libservers[0];
     }      }
 }  }
   
   $flag=0;
 while (!$flag) {  while (!$flag) {
   print(<<END);    print(<<END);
 **** Domain's Primary Library Server ID ****  **** Domain's Primary Library Server ID ****
Line 476  END Line 481  END
   }    }
 }  }
   
   # get protocol
   # accept if valid, if not valid, tell user and repeat
   $flag=0;
 while (!$flag) {  while (!$flag) {
   print(<<END);    print(<<END);
   
 ****  Web Server Protocol ****  ****  Web Server Protocol ****
 If you plan to run the Apache server with SSL enabled,   If you plan to run the Apache server with SSL enabled, 
 the protocol should be: https; otherwise it should be http.  the protocol should be: https; otherwise it should be http.
 ENTER WEB SERVER PROTOCOL:  ENTER WEB SERVER PROTOCOL [http]:
 END  END
   
   my $choice=<>;    my $choice=<>;
Line 493  END Line 501  END
     close(OUT);      close(OUT);
     $protocol=$choice;      $protocol=$choice;
     $flag=1;      $flag=1;
   }    } elsif ($choice eq '') {
   else {      open(OUT,'>>/tmp/loncapa_updatequery.out');
       print(OUT 'protocol'."\t".'http'."\n");
       close(OUT);
       $protocol = 'http';
       $flag = 1;
     } else {
     print "Invalid input (only http or https allowed).\n";      print "Invalid input (only http or https allowed).\n";
   }    }
 }  }
   
   # get internet domain
   # accept if valid, if not valid, tell user and repeat
   $flag=0;
 while (!$flag) {  while (!$flag) {
   print(<<END);    print(<<END);
   
Line 517  END Line 533  END
   chomp($choice);    chomp($choice);
   if ($choice =~/[^.]+\.[^.]+/) {    if ($choice =~/[^.]+\.[^.]+/) {
     open(OUT,'>>/tmp/loncapa_updatequery.out');      open(OUT,'>>/tmp/loncapa_updatequery.out');
     print(OUT 'internet domain'."\t".$intdom."\n");      print(OUT 'internet domain'."\t".$choice."\n");
     close(OUT);      close(OUT);
     $intdom=$choice;      $intdom=$choice;
     $flag=1;      $flag=1;

Removed from v.1.67  
changed lines
  Added in v.1.68


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