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

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

version 1.4, 2002/05/12 22:31:41 version 1.5, 2002/05/13 01:09:26
Line 60  unless (-e "<TARGET />") { Line 60  unless (-e "<TARGET />") {
            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\@mail.lon-capa.org.
   
 ===============================================================================  ===============================================================================
 The following 4 values are needed to configure LON-CAPA:  The following 4 values are needed to configure LON-CAPA:
Line 151  END Line 151  END
 }  }
   my $choice=&lt;&gt;;    my $choice=&lt;&gt;;
   chomp($choice);    chomp($choice);
   if ($ipdomain and $choice=~/^\s*$/) {    if ($lonHostID and $choice=~/^\s*$/) {
     $choice=$ipdomain;      $choice=$lonHostID;
     open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');      open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
     print(OUT 'lonHostID'."\t".$choice."\n");      print(OUT 'lonHostID'."\t".$choice."\n");
     close(OUT);      close(OUT);
Line 162  END Line 162  END
     open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');      open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
     print(OUT 'lonHostID'."\t".$choice."\n");      print(OUT 'lonHostID'."\t".$choice."\n");
     close(OUT);      close(OUT);
     $r='l';  
     $flag=1;      $flag=1;
   }    }
   else {    else {
Line 180  END Line 179  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;  $flag=0;
   my $lonDefDomain;
 while (!$flag) {  while (!$flag) {
 if ($ipdomain) {  if ($ipdomain) {
 print(&lt;&lt;END);  print(&lt;&lt;END);
Line 198  END Line 198  END
     open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');      open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
     print(OUT 'lonDefDomain'."\t".$choice."\n");      print(OUT 'lonDefDomain'."\t".$choice."\n");
     close(OUT);      close(OUT);
       $lonDefDomain=$choice;
     $flag=1;      $flag=1;
   }    }
   elsif ($choice!~/\_/ and $choice=~/^\w+$/) {    elsif ($choice!~/\_/ and $choice=~/^\w+$/) {
     open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');      open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
     print(OUT 'lonDefDomain'."\t".$choice."\n");      print(OUT 'lonDefDomain'."\t".$choice."\n");
     close(OUT);      close(OUT);
       $lonDefDomain=$choice;
     $r='l';      $r='l';
     $flag=1;      $flag=1;
   }    }
Line 231  END Line 233  END
     open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');      open(OUT,'&gt;&gt;/tmp/loncapa_updatequery.out');
     print(OUT 'lonAdmEmail'."\t".$choice."\n");      print(OUT 'lonAdmEmail'."\t".$choice."\n");
     close(OUT);      close(OUT);
     my $lonAdmEmail=$choice;      $lonAdmEmail=$choice;
     $flag=1;      $flag=1;
   }    }
   else {    else {
Line 239  END Line 241  END
   }    }
 }  }
   
   
 # update loncapa.conf  # update loncapa.conf
   #my $confdir='/etc/httpd/conf/';
   my $confdir='';
   my $filename='loncapa.conf';
   my %perlvar;
       if (-e "$confdir$filename") {
    open(CONFIG,'&lt;'.$confdir.$filename) or die("Can't read $confdir$filename");
    while (my $configline=&lt;CONFIG&gt;) {
       if ($configline =~ /^[^\#]*PerlSetVar/) {
    my ($unused,$varname,$varvalue)=split(/\s+/,$configline);
    chomp($varvalue);
    $perlvar{$varname}=$varvalue;
       }
    }
    close(CONFIG);
       }
       $perlvar{'lonHostID'}=$lonHostID;
       $perlvar{'lonDefDomain'}=$lonDefDomain;
       $perlvar{'lonAdmEmail'}=$lonAdmEmail;
       $perlvar{'lonRole'}=$lonRole;
       unless ($perlvar{'lonSqlAccess'}) {
          $perlvar{'lonSqlAccess'}='localhostkey';
       }
       unless ($perlvar{'lonLoadLim'}) {
          $perlvar{'lonLoadLim'}='2.00';
       }
       unless ($perlvar{'lonExpire'}) {
          $perlvar{'lonExpire'}='86400';
       }
       unless ($perlvar{'lonReceipt'}) {
          my $lonReceipt='';
          srand($$.time);
          my @alnum=(0..9,a..z);
          foreach my $i (1..20) {
    $lonReceipt.=$alnum[int(rand(36))];
          }
          $perlvar{'lonReceipt'}=$lonReceipt;
       }
       open(OUT,"&gt;$confdir$filename") or
         die("Cannot output to $confdir$filename\n");
       foreach my $key (keys %perlvar) {
         my $value=$perlvar{$key};
         print(OUT &lt;&lt;END);
   PerlSetVar     $key      $value
   END
       }
       close(OUT);
 }  }
 </perlscript>  </perlscript>
 </file>  </file>
 <file>  <file>
 <target dist='default'>/home/httpd/lonUsers2</target>  <target dist='default'>/</target>
 <perlscript mode='fg'>  <perlscript mode='fg'>
 # read values from loncapa.conf  # read values from loncapa.conf
   #my $confdir='/etc/httpd/conf/';
   my $confdir='';
   my $filename='loncapa.conf';
   my %perlvar;
       if (-e "$confdir$filename") {
    open(CONFIG,'&lt;'.$confdir.$filename) or 
             die("Can't read $confdir$filename");
    while (my $configline=&lt;CONFIG&gt;) {
       if ($configline =~ /^[^\#]*PerlSetVar/) {
    my ($unused,$varname,$varvalue)=split(/\s+/,$configline);
    chomp($varvalue);
    $perlvar{$varname}=$varvalue;
       }
    }
    close(CONFIG);
       }
   print(&lt;&lt;END);    print(&lt;&lt;END);
   
 ===============================================================================  ===============================================================================
 This is now the current configuration of your machine.  This is now the current configuration of your machine.
 1) Machine Name: $perlsetvar{'lonHostID'}  1) Machine Name: $perlvar{'lonHostID'}
 2) Domain Name: $perlsetvar{'lonDefDomain'}  2) Domain Name: $perlvar{'lonDefDomain'}
 3) System Administrator's E-mail Address: $perlsetvar{'lonAdmEmail'}  3) System Administrator's E-mail Address: $perlvar{'lonAdmEmail'}
 4) Role: $perlsetvar{'lonRole'}  4) Role: $perlvar{'lonRole'}
 5) Cache Expiration Time: $perlsetvar{'lonExpire'}  5) Cache Expiration Time: $perlvar{'lonExpire'}
 6) Server Load: $perlsetvar{'lonLoadLim'}  6) Server Load: $perlvar{'lonLoadLim'}
 7) Everything is correct up above  7) Everything is correct up above
 ENTER A CHOICE OF 1-6 TO CHANGE, otherwise ENTER 7:  ENTER A CHOICE OF 1-6 TO CHANGE, otherwise ENTER 7:
 END  END
   
 # implement editing logic below, interactively  # implement editing logic below, interactively
 # update loncapa.conf until 7 is entered  # update loncapa.conf until 7 is entered
   my $choice=&lt;&gt;;
   chomp($choice);
   
 </perlscript>  </perlscript>
 </file>  </file>
Line 281  on the LON-CAPA network) Line 346  on the LON-CAPA network)
   
 1) PRODUCTION - you want to deliver courses today or sometime very soon  1) PRODUCTION - you want to deliver courses today or sometime very soon
                 on this machine                  on this machine
 2) DEVELOPMENT - you want to play with or explore LON-CAPA  2) STAND-ALONE - you want this machine to run in 'stand-alone' mode and
 3) Do not install hosts.tab right now                   not be connected to other LON-CAPA machines for now
   3) DEVELOPMENT - you want to play with or explore LON-CAPA
   4) Do not install hosts.tab right now
   
 ENTER 1, 2, or 3:  ENTER 1, 2, 3, or 4:
 END  END
 # Option number 26 will install rawhide_hosts.tab, but  # Option number 26 will install rawhide_hosts.tab, but
 # the typical user does not want to be part of an intensive  # the typical user does not want to be part of an intensive
Line 292  END Line 359  END
   
 # get input  # get input
 # if valid then process, otherwise loop  # if valid then process, otherwise loop
   my $choice=&lt;&gt;;
   chomp($choice);
   
 }  }
 </perlscript>  </perlscript>
Removed from v.1.4  
changed lines
  Added in v.1.5

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