Diff for /doc/loncapafiles/updatequery.piml between versions 1.3 and 1.4

version 1.3, 2002/05/12 19:25:15 version 1.4, 2002/05/12 22:31:41
Line 31  http://www.lon-capa.org/ Line 31  http://www.lon-capa.org/
 <targetroot>/</targetroot>  <targetroot>/</targetroot>
 <files>  <files>
 <file>  <file>
 <target dist='default'>/home/httpd/lonUsers</target>  <target dist='default'>/</target>
 <perlscript mode='fg'>  <perlscript mode='fg'>
   $|=1;
   print(&lt;&lt;END);    print(&lt;&lt;END);
   
   
Line 47  http://www.lon-capa.org/ Line 48  http://www.lon-capa.org/
 *********************************************  *********************************************
   
 END  END
   sleep(3);
 </perlscript>  </perlscript>
 </file>  </file>
 <file>  <file>
 <target dist='default'>/home/httpd/lonUsers</target>  <target dist='default'>/home/httpd/lonUsers2/</target>
 <perlscript mode='fg'>  <perlscript mode='fg'>
   $|=1;
 unless (-e "<TARGET />") {  unless (-e "<TARGET />") {
   print(&lt;&lt;END);    print(&lt;&lt;END);
            WELCOME TO LON-CAPA!             WELCOME TO LON-CAPA!
   
 If you have questions, please visit http://install.lon-capa.org  If you have questions, please visit http://install.lon-capa.org
 or contact sharrison@install.lon-capa.org.  or contact sharrison\@install.lon-capa.org.
   
 ===============================================================================  ===============================================================================
 The following 3 values are needed to configure LON-CAPA:  The following 4 values are needed to configure LON-CAPA:
   * Machine Role
 * Machine ID Name  * Machine ID Name
 * LON-CAPA Domain Name, and  * LON-CAPA Domain Name, and
 * System Administration E-mail Address.  * System Administration E-mail Address.
 END  END
   
   open(OUT,'&gt;/tmp/loncapa_updatequery.out');
   close(OUT);
   
 # query for Machine Role  # query for Machine Role
   print(&lt;&lt;END);    print(&lt;&lt;END);
 **** Machine Role ****  **** Machine Role ****
Line 76  Library server (recommended if first-tim Line 83  Library server (recommended if first-tim
 Access server:  Access server:
    Servers that load-balance high-traffic delivery of educational resources     Servers that load-balance high-traffic delivery of educational resources
    over the world-wide web.     over the world-wide web.
 1) Will this be a library server? (recommended if this is your  1) Will this be a library server? (recommended if this is your first install)
 2) Or, will this be an access server?  2) Or, will this be an access server?
 ENTER A CHOICE OF 1 or 2:  
 END  END
   my $flag=0;
   my $r='';
   my $lonRole;
   while (!$flag) {
     print "ENTER A CHOICE OF 1 or 2:\n";
     my $choice=&lt;&gt;;
     chomp($choice);
     if ($choice==1) {
       open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
       print(OUT 'lonRole'."\t".'library'."\n");
       close(OUT);
       $lonRole='library';
       $r='l';
       $flag=1;
     }
     elsif ($choice==2) {
       open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
       print(OUT 'lonRole'."\t".'access'."\n");
       close(OUT);
       $lonRole='access';
       $r='a';
       $flag=2;
     }
     else {
   
     }
   }
   
 # need to recommend a machine ID name (ipdomain.l.somenumber)  # need to recommend a machine ID name (ipdomain.l.somenumber)
   my $hostname=`hostname`; chomp($hostname);
   my $ipdomain='';
   if ($hostname=~/([^\.]*)\.([^\.]*)$/) {
     $ipdomain=$1;
   }
   my $lonHostID;
   if ($ipdomain) {
     $lonHostID=$ipdomain.$r.int(1+rand(9)); # should be probably detect against
                                             # the hosts.tab
   }
   
   print(&lt;&lt;END);    print(&lt;&lt;END);
   
Line 91  END Line 134  END
  we recommend that you use a name based off of your institution;   we recommend that you use a name based off of your institution;
  good examples: "msul1" or "bionetl1";   good examples: "msul1" or "bionetl1";
  bad examples: "loncapabox" or "studentsinside"]   bad examples: "loncapabox" or "studentsinside"]
 ENTER MACHINE ID NAME:  
 END  END
 # get machine name  # get machine name
 # accept if valid, if not valid, tell user and repeat  # accept if valid, if not valid, tell user and repeat
   $flag=0;
   while (!$flag) {
   if ($ipdomain) {
   print(&lt;&lt;END);
   ENTER LONCAPA MACHINE ID [$lonHostID]:
   END
   }
   else {
     print(&lt;&lt;END);
   ENTER LONCAPA MACHINE ID:
   END
   }
     my $choice=&lt;&gt;;
     chomp($choice);
     if ($ipdomain and $choice=~/^\s*$/) {
       $choice=$ipdomain;
       open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
       print(OUT 'lonHostID'."\t".$choice."\n");
       close(OUT);
       $flag=1;
     }
     elsif ($choice!~/\_/ and $choice=~/^\w+$/) {
       open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
       print(OUT 'lonHostID'."\t".$choice."\n");
       close(OUT);
       $r='l';
       $flag=1;
     }
     else {
       print "Invalid input (only alphanumeric characters supported).\n";
     }
   }
   
   print(&lt;&lt;END);    print(&lt;&lt;END);
   
 **** Domain ****  **** Domain ****
 [this does NOT need to correspond to internet address domains,  [this does NOT need to correspond to internet address domains,
  examples might be "msu" or "bionet" or "vermontcc"]   examples might be "msu" or "bionet" or "vermontcc"]
 ENTER LONCAPA DOMAIN:  
 END  END
   
 # get domain name  # get domain name
 # accept if valid, if not valid, tell user and repeat  # accept if valid, if not valid, tell user and repeat
   $flag=0;
   while (!$flag) {
   if ($ipdomain) {
   print(&lt;&lt;END);
   ENTER LONCAPA DOMAIN [$ipdomain]:
   END
   }
   else {
     print(&lt;&lt;END);
   ENTER LONCAPA DOMAIN:
   END
   }
     my $choice=&lt;&gt;;
     chomp($choice);
     if ($ipdomain and $choice=~/^\s*$/) {
       $choice=$ipdomain;
       open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
       print(OUT 'lonDefDomain'."\t".$choice."\n");
       close(OUT);
       $flag=1;
     }
     elsif ($choice!~/\_/ and $choice=~/^\w+$/) {
       open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
       print(OUT 'lonDefDomain'."\t".$choice."\n");
       close(OUT);
       $r='l';
       $flag=1;
     }
     else {
       print "Invalid input (only alphanumeric characters supported).\n";
     }
   }
   
   # get e-mail address
   # accept if valid, if not valid, tell user and repeat
   $flag=0;
   my $lonAdmEmail;
   while (!$flag) {
   print(&lt;&lt;END);    print(&lt;&lt;END);
   
 **** System Administrator's E-mail ****  **** System 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 E-MAIL ADDRESS:  ENTER E-MAIL ADDRESS:
 END  END
   
 # get e-mail address    my $choice=&lt;&gt;;
 # accept if valid, if not valid, tell user and repeat    chomp($choice);
     if ($choice=~/\@/) {
       open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
       print(OUT 'lonAdmEmail'."\t".$choice."\n");
       close(OUT);
       my $lonAdmEmail=$choice;
       $flag=1;
     }
     else {
       print "Invalid input (this needs to look like an e-mail address!).\n";
     }
   }
   
   
 # update loncapa.conf  # update loncapa.conf
 }  }
 </perlscript>  </perlscript>

Removed from v.1.3  
changed lines
  Added in v.1.4


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