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 |
} |
|