[BACK]Return to postinstall.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / build

Diff for /loncom/build/Attic/postinstall.pl between versions 1.6 and 1.11

version 1.6, 2000/11/21 15:08:19 version 1.11, 2000/12/28 23:14:35
Line 14  system('lynx -source http://install.lon- Line 14  system('lynx -source http://install.lon-
 system('rpm -Uvh --force wget-1.5.3-6.i386.rpm');  system('rpm -Uvh --force wget-1.5.3-6.i386.rpm');
   
 # download SupplementalRPMS and install  # download SupplementalRPMS and install
 system('wget','-r','http://install.lon-capa.org/3.1/SupplementalRPMS');  system('wget','-r','-np','http://install.lon-capa.org/3.1/SupplementalRPMS');
 system('rpm -Uvh --force install.lon-capa.org/3.1/SupplementalRPMS/*.rpm');  system('rpm -Uvh --force install.lon-capa.org/3.1/SupplementalRPMS/*.rpm');
   
 # download remove_extra.sh and run  # download remove_extra.sh and run
 system('wget','http://install.lon-capa.org/3.1/scripts/remove_extra.sh');  system('wget','-r','-np','http://install.lon-capa.org/3.1/scripts/remove_extra.sh');
 system('sh','./remove_extra.sh');  system('sh','./remove_extra.sh');
   
 # download FinalRPMS and install  # download FinalRPMS and install
 system('wget','-r','http://install.lon-capa.org/3.1/FinalRPMS');  system('wget','-r','-np','http://install.lon-capa.org/3.1/FinalRPMS');
 system('rpm','-Uvh','--force','install.lon-capa.org/3.1/FinalRPMS/*.rpm');  system('rpm -Uvh --force install.lon-capa.org/3.1/FinalRPMS/*.rpm');
   
   my $okay=0;
   DEV: while ($okay==0) {
       print "\n\nWill this machine be used to develop future LON-CAPA software? (y/n)\n";
       my $input=<>;
       if ($input=~/^y/i) {
           $okay=1;
       }
       elsif ($input=~/^n/i) {
    last DEV;
       }
   }
   if (!$okay) {
       system('wget','http://install.lon-capa.org/3.1/scripts/remove_extra_dev.sh');
       system('sh','./remove_extra_dev.sh');
   }
   
 # allow entry of new access.conf parameters  # allow entry of new access.conf parameters
 my @perlsetvars=("lonHostID","lonRole","lonAdmEMail","lonDefDomain","lonLoadLim","lonExpire");  my @perlsetvars=("lonHostID","lonRole","lonAdmEMail","lonDefDomain","lonLoadLim","lonExpire");
Line 65  instructors, or any other class of user. Line 81  instructors, or any other class of user.
 END  END
      );       );
 my $template=`/bin/cat /etc/httpd/conf/access.conf`;  my $template=`/bin/cat /etc/httpd/conf/access.conf`;
 my $okay=0;  $okay=0;
 while ($okay==0) {  while ($okay==0) {
     foreach my $psv (@perlsetvars) {      foreach my $psv (@perlsetvars) {
         print "\n";          print "\n";
Line 195  print OUT <<END; Line 211  print OUT <<END;
 AFPD_MAX_CLIENTS=5  AFPD_MAX_CLIENTS=5
 # Change this to set the machine's atalk name:  # Change this to set the machine's atalk name:
 # ATALK_NAME=`echo \${HOSTNAME}|cut -d. -f1`  # ATALK_NAME=`echo \${HOSTNAME}|cut -d. -f1`
 ATALK_NAME=`grep '^PerlSetVar.*lonHostID' /etc/httpd/conf/access.conf | perl -e '\$_=<>; split(/\s+/); print "LONCAPA_\$_[2]";  ATALK_NAME=`grep '^PerlSetVar.*lonHostID' /etc/httpd/conf/access.conf | perl -e '\$_=<>; split(/\\s+/); print "LONCAPA_\$_[2]";
 '`  '`
 # Set which daemons to run:  # Set which daemons to run:
 PAPD_RUN=no  PAPD_RUN=no
Removed from v.1.6  
changed lines
  Added in v.1.11

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