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

version 1.3, 2000/11/20 23:23:15 version 1.6, 2000/11/21 15:08:19
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','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','http://install.lon-capa.org/3.1/scripts/remove_extra.sh');
Line 24  system('sh','./remove_extra.sh'); Line 23  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');
   
 # 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 97  foreach my $psv (@perlsetvars) { Line 96  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 154  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 171  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 208  print OUT $template; Line 214  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 223  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 238  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.6


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