Diff for /loncom/build/Attic/postinstall.pl between versions 1.3 and 1.10

version 1.3, 2000/11/20 23:23:15 version 1.10, 2000/12/28 17:33:00
Line 9  open OUT, ">/etc/hosts.deny"; Line 9  open OUT, ">/etc/hosts.deny";
 print OUT "ALL: ALL\n";  print OUT "ALL: ALL\n";
 close OUT;  close OUT;
   
 if (1==0) {  
 # get wget and install  # get wget and install
 system('lynx -source http://install.lon-capa.org/3.1/SupplementalRPMS/wget-1.5.3-6.i386.rpm > wget-1.5.3-6.i386.rpm');  system('lynx -source http://install.lon-capa.org/3.1/SupplementalRPMS/wget-1.5.3-6.i386.rpm > wget-1.5.3-6.i386.rpm');
 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');  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','http://install.lon-capa.org/3.1/FinalRPMS');
 system('rpm','-Uvh','--force','install.lon-capa.org/3.1/FinalRPMS');  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 66  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 97  foreach my $psv (@perlsetvars) { Line 112  foreach my $psv (@perlsetvars) {
 open OUT,">/etc/smb.conf";  open OUT,">/etc/smb.conf";
 print OUT $template;  print OUT $template;
 close OUT;  close OUT;
 }  
 # unshadow passwords  # unshadow passwords
 # change this line in /etc/pam.d/login  # change this line in /etc/pam.d/login
 # password   required     /lib/security/pam_pwdb.so nullok use_authtok md5 shadow  # password   required     /lib/security/pam_pwdb.so nullok use_authtok md5 shadow
Line 155  print OUT "www:$input1\n"; Line 170  print OUT "www:$input1\n";
 close OUT;  close OUT;
 system('stty echo');  system('stty echo');
   
   
 if (1==0) {  
 # create mime.types link  # create mime.types link
 `ln -s /etc/mime.types /etc/httpd/conf/mime.types`;  `ln -s /etc/mime.types /etc/httpd/conf/mime.types`;
   
Line 174  system('/etc/rc.d/init.d/httpd','restart Line 187  system('/etc/rc.d/init.d/httpd','restart
 # ---  # ---
 # > # chkconfig: - 60 20  # > # chkconfig: - 60 20
 # then chkconfig  # then chkconfig
   $template=`/bin/cat /etc/rc.d/init.d/nfs`;
   $template=~s/\# chkconfig: - 60 20/\# chkconfig: 345 60 20/;
   open OUT,">/etc/rc.d/init.d/nfs";
   print OUT $template;
   close OUT;
   $template=`/bin/cat /etc/rc.d/init.d/xntpd`;
   $template=~s/\# chkconfig: - 55 10/\# chkconfig: 345 55 10/;
   open OUT,">/etc/rc.d/init.d/xntpd";
   print OUT $template;
   close OUT;
   
 # ntp  # ntp
 # chkconfig 345  # chkconfig 345
 # then chkconfig  # then chkconfig
   
   
 # make atalk specific modifications  # make atalk specific modifications
 # /etc/atalk/config  # /etc/atalk/config
 open OUT, ">/etc/atalk/config";  open OUT, ">/etc/atalk/config";
Line 189  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
Line 208  print OUT $template; Line 230  print OUT $template;
 close OUT;  close OUT;
 system('depmod -a');  system('depmod -a');
   
 # restart nfs, smb, and atalk services  # restart nfs, smb, xntpd and atalk services
 system('/etc/rc.d/init.d/smb','restart');  system('/etc/rc.d/init.d/smb','restart');
 system('/etc/rc.d/init.d/atalk','restart');  system('/etc/rc.d/init.d/atalk','restart');
 system('/etc/rc.d/init.d portmap','stop');  system('/etc/rc.d/init.d portmap','stop');
Line 217  system('/etc/rc.d/init.d portmap','start Line 239  system('/etc/rc.d/init.d portmap','start
 system('/etc/rc.d/init.d nfs','start');  system('/etc/rc.d/init.d nfs','start');
 system('/etc/rc.d/init.d/smb','restart');  system('/etc/rc.d/init.d/smb','restart');
 system('/etc/rc.d/init.d/inet','restart');  system('/etc/rc.d/init.d/inet','restart');
   system('/etc/rc.d/init.d/xntpd','restart');
   
 # restart loncontrol  # restart loncontrol
 print "Please be patient while loncontrol services are restarted (approximately 10 minutes).\n";  print "Please be patient while loncontrol services are restarted (approximately 10 minutes).\n";
Line 231  different than that needed for LON-CAPA, Line 254  different than that needed for LON-CAPA,
 must make appropriate adjustment to the  must make appropriate adjustment to the
 /etc/hosts.allow file.  /etc/hosts.allow file.
 END  END
 }  

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


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