[BACK]Return to install.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / doc / install / redhat7.3

Diff for /doc/install/redhat7.3/install.pl between versions 1.19 and 1.24

version 1.19, 2003/01/12 19:07:28 version 1.24, 2003/09/02 19:10:52
Line 89  my $test; Line 89  my $test;
 # note: The filehandle LOG is global.  # note: The filehandle LOG is global.
 open LOG,">loncapa_install.log" || die "Unable to open log file.\n";  open LOG,">loncapa_install.log" || die "Unable to open log file.\n";
   
   print LOG '$Id$'."\n";
   
 # Some friendly subroutines  # Some friendly subroutines
 sub die_if_nonempty {  sub die_if_nonempty {
     my ($string,$error)=@_;      my ($string,$error)=@_;
Line 147  END Line 149  END
 print <<"END";  print <<"END";
 ********************************************************************  ********************************************************************
   
                     Welcome to LON-CAPA 0.6.0                      Welcome to LON-CAPA 
   
 This script will install the base software that LON-CAPA needs to  This script will install the base software that LON-CAPA needs to
 run properly.   run properly. 
Line 223  my @misc_rpms = ( Line 225  my @misc_rpms = (
              "$instdir/libcap-1.10-8.i386.rpm",               "$instdir/libcap-1.10-8.i386.rpm",
              );               );
   
 my $systemperl = "$instdir/LON-CAPA-systemperl-3.5-rh7.i386.rpm";  my $systemperl = "$instdir/LON-CAPA-systemperl-3.7-rh7.i386.rpm";
   
 ##  ##
 ## Some of these rpm commands require being obnoxious (--force --nodeps)  ## Some of these rpm commands require being obnoxious (--force --nodeps)
 ## this is not a nice thing to do and we should be careful about it.  ## this is not a nice thing to do and we should be careful about it.
 ##  ##
   
   
   
 &print_and_log("Installing Apache packages.\n");  &print_and_log("Installing Apache packages.\n");
 &writelog (`rpm -Uvh @apache_rpms`);  &writelog (`rpm -Uvh --replacepkgs @apache_rpms`);
 &print_and_log("Installing openssh packages.\n");  &print_and_log("Installing openssh packages.\n");
 &writelog (`rpm -Uvh @openssh_rpms`);  &writelog (`rpm -Uvh --replacepkgs @openssh_rpms`);
 &writelog(`/etc/init.d/sshd start`);  &writelog(`/etc/init.d/sshd start`);
 &print_and_log("Installing ImageMagick packages.\n");  &print_and_log("Installing ImageMagick packages.\n");
 &writelog (`rpm -Uvh @ImageMagick_rpms`);  &writelog (`rpm -Uvh --replacepkgs @ImageMagick_rpms`);
 &print_and_log("Installing mysql packages.\n");  &print_and_log("Installing mysql packages.\n");
 &writelog (`rpm -Uvh @mysql_rpms`);  &writelog (`rpm -Uvh --replacepkgs @mysql_rpms`);
 &print_and_log("Installing Perl packages.\n");  &print_and_log("Installing Perl packages.\n");
 &writelog (`rpm -Uvh @perl_rpms`);  &writelog (`rpm -Uvh --replacepkgs@perl_rpms`);
 &print_and_log("Installing legacy readline package (required for gnuplot).");  &print_and_log("Installing legacy readline package (required for gnuplot).");
 &writelog(`rpm -i --oldpackage @old_readline_rpms`);  &writelog(`rpm -i --oldpackage @old_readline_rpms`);
 &print_and_log("Installing gnuplot packages.\n");  &print_and_log("Installing gnuplot packages.\n");
 &writelog (`rpm -ivh --force --nodeps @gnuplot_rpms`);  &writelog (`rpm -ivh --force --nodeps @gnuplot_rpms`);
 &print_and_log("Installing LON-CAPA Perl packages.\n");  &print_and_log("Installing LON-CAPA Perl packages.\n");
 &writelog (`rpm -Uvh @loncapa_perl_rpms`);  &writelog (`rpm -Uvh --replacepkgs @loncapa_perl_rpms`);
 &print_and_log("Installing misc packages.\n");  &print_and_log("Installing misc packages.\n");
 &writelog (`rpm -Uvh @misc_rpms`);  &writelog (`rpm -Uvh --replacepkgs @misc_rpms`);
 &print_and_log("Installing LON-CAPA systemperl rpm");  &print_and_log("Installing LON-CAPA systemperl rpm");
 &writelog(`rpm -ivh --force --nodeps $systemperl`);  &writelog(`rpm -ivh --force --nodeps $systemperl`);
 &print_and_log("\n");  &print_and_log("\n");
Line 275  foreach my $php_rpm (@php_rpms) { Line 279  foreach my $php_rpm (@php_rpms) {
     }      }
 }  }
   
   &print_and_log("Removing mod_throttle");
   system("rpm -e `rpm -q -a | grep mod_throttle`");
   &print_and_log("Removing mod_bandwidth");
   system("rpm -e `rpm -q -a | grep mod_bandwidth`");
   
 ##  ##
 ## Fix that stupid little sendmail bug  ## Fix that stupid little sendmail bug
 ##  ##
Removed from v.1.19  
changed lines
  Added in v.1.24

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