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

Diff for /doc/install/fedora/install.pl between versions 1.2 and 1.8

version 1.2, 2003/12/11 21:56:42 version 1.8, 2005/06/29 04:16:54
Line 1 Line 1
 #!/usr/bin/perl -w  #!/usr/bin/perl -w
 # The LearningOnline Network   # The LearningOnline Network 
 # Red Hat 7.3 installation script  # Fedora installation script
 #  #
 # $Id$  # $Id$
 #  #
Line 180  if ($install_httpd_conf) { Line 180  if ($install_httpd_conf) {
 }  }
   
 #my $lctarball = 'loncapa-current.tar.gz';  #my $lctarball = 'loncapa-current.tar.gz';
 my $lctarball = 'loncapa-fedora-1.0.99.1.tar.gz';  my $lctarball = 'loncapa-fedora-current.tar.gz';
 if ($download_loncapa) {  if ($download_loncapa) {
     &download_loncapa($lctarball);      &download_loncapa($lctarball);
 } else {  } else {
Line 218  sub setup_www { Line 218  sub setup_www {
 ###############################################  ###############################################
 ###############################################  ###############################################
 sub uid_of_www {  sub uid_of_www {
     my $num = `grep ^www /etc/passwd | cut -d':' -f3`;      my ($num) = (getpwnam('www'))[2];
     chomp $num;  
     if (int($num) == $num) {  
  writelog ("uid of www = $num\n");  
     } else {  
  die "Unable to determine UID of user www\n  Halting.\n";  
     }  
     print_and_log("\n");  
     return $num;      return $num;
 }  }
   
Line 319  sub setup_mysql { Line 312  sub setup_mysql {
     }      }
     print_and_log("\n");      print_and_log("\n");
     #      #
   
       my ($mysqlinfo,$mysql_ver);
       open(PIPE,"/usr/bin/mysql -V  |");
       $mysqlinfo = <PIPE>;
       close(PIPE);
       if ($mysqlinfo =~ /Distrib\s+([\d]+)\./) {
           $mysql_ver = $1;
       }
     my $mysql_commands = "CREATE DATABASE loncapa;\n";      my $mysql_commands = "CREATE DATABASE loncapa;\n";
     if ($setup_mysql_permissions) {      if ($setup_mysql_permissions) {
  ##   ##
Line 331  to remember it. Line 332  to remember it.
 END  END
         my $rootpass = <>;          my $rootpass = <>;
  chomp $rootpass;   chomp $rootpass;
  $mysql_commands .= <<"END";   $mysql_commands .= <<"BLOCKONE";
 INSERT INTO user (Host, User, Password)  INSERT INTO user (Host, User, Password)
 VALUES ('localhost','www',password('localhostkey'));  VALUES ('localhost','www',password('localhostkey'));
 INSERT INTO db VALUES ('localhost','loncapa','www',  BLOCKONE
 'Y','Y','Y','Y','Y','Y','N','Y','Y','Y');          if ($mysql_ver < 4) {
               $mysql_commands .=<<"BLOCKTWO";
   INSERT INTO db (Host,Db,User,Select_priv,Insert_priv,Update_priv,Delete_priv,Create_priv,Drop_priv,Grant_priv,References_priv,Index_priv,Alter_priv) VALUES ('localhost','loncapa','www','Y','Y','Y','Y','Y','Y','N','Y','Y','Y');
   BLOCKTWO
           } else {
               $mysql_commands .=<<"BLOCKTHREE";
   INSERT INTO db (Host,Db,User,Select_priv,Insert_priv,Update_priv,Delete_priv,Create_priv,Drop_priv,Grant_priv,References_priv,Index_priv,Alter_priv,Create_tmp_table_priv,Lock_tables_priv) VALUES ('localhost','loncapa','www','Y','Y','Y','Y','Y','Y','N','Y','Y','Y','Y','Y');
   BLOCKTHREE
           }
           $mysql_commands .=<<"END"; 
 SET PASSWORD FOR root\@localhost=PASSWORD('$rootpass');  SET PASSWORD FOR root\@localhost=PASSWORD('$rootpass');
 DELETE FROM user WHERE host<>'localhost';  DELETE FROM user WHERE host<>'localhost';
 FLUSH PRIVILEGES;  FLUSH PRIVILEGES;
Line 400  You seem to have a version of loncapa-cu Line 410  You seem to have a version of loncapa-cu
 This copy will be used and a new version will NOT be downloaded.    This copy will be used and a new version will NOT be downloaded.  
 If you wish, you may download a new version by executing:  If you wish, you may download a new version by executing:
   
 wget http://install.loncapa.org/versions/loncapa-current.tar.gz  wget http://install.loncapa.org/versions/loncapa-fedora-current.tar.gz
   
 ------------------------------------------------------------------------  ------------------------------------------------------------------------
 END  END
Line 410  END Line 420  END
     ## untar loncapa.tar.gz      ## untar loncapa.tar.gz
     ##      ##
     print_and_log("Extracting LON-CAPA source files\n");      print_and_log("Extracting LON-CAPA source files\n");
     writelog(`cd ~root; tar zxf $instdir/loncapa-current.tar.gz`);      writelog(`cd ~root; tar zxf $instdir/$lctarball`);
     print_and_log("\n");      print_and_log("\n");
     print <<"ENDMSG";      print <<"ENDMSG";
 All of the extra files seem to have been installed correctly.  It remains for   All of the extra files seem to have been installed correctly.  It remains for 
Removed from v.1.2  
changed lines
  Added in v.1.8

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