[Koha-cvs] CVS: koha installer.pl,1.15,1.16

[Andrew Arensburger]

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv3913

Modified Files:
        installer.pl 
Log Message:
(bug fix): Arguments to mkdir were in the wrong order.
Changed octal values for permissions to the standard notation.


Index: installer.pl
===================================================================
RCS file: /cvsroot/koha/koha/installer.pl,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -r1.15 -r1.16
*** installer.pl        14 Oct 2002 13:20:55 -0000      1.15
--- installer.pl        15 Oct 2002 16:56:56 -0000      1.16
***************
*** 653,657 ****
  
  unless (-e "$kohalogdir") {
!     my $result = mkdir 0770, "$kohalogdir";
      if ($result==0) {
          my @dirs = split(m#/#, $kohalogdir);
--- 653,657 ----
  
  unless (-e "$kohalogdir") {
!     my $result = mkdir "$kohalogdir",  0770;
      if ($result==0) {
          my @dirs = split(m#/#, $kohalogdir);
***************
*** 679,683 ****
  unless ( -d $kohadir ) {
     print "Creating $kohadir...\n";
!    my $result=mkdir ($kohadir, oct(770));
     if ($result==0) {
         my @dirs = split(m#/#, $kohadir);
--- 679,683 ----
  unless ( -d $kohadir ) {
     print "Creating $kohadir...\n";
!    my $result=mkdir ($kohadir, 0770);
     if ($result==0) {
         my @dirs = split(m#/#, $kohadir);
***************
*** 690,715 ****
        }
     }
!    chown (oct(0), (getgrnam($httpduser))[2], "$kohadir");
!    chmod (oct(770), "$kohadir");
  }
  unless ( -d "$kohadir/htdocs" ) {
     print "Creating $kohadir/htdocs...\n";
!    mkdir ("$kohadir/htdocs", oct(750));
  }
  unless ( -d "$kohadir/cgi-bin" ) {
     print "Creating $kohadir/cgi-bin...\n";
!    mkdir ("$kohadir/cgi-bin", oct(750));
  }
  unless ( -d "$kohadir/modules" ) {
     print "Creating $kohadir/modules...\n";
!    mkdir ("$kohadir/modules", oct(750));
  }
  unless ( -d "$kohadir/scripts" ) {
     print "Creating $kohadir/scripts...\n";
!    mkdir ("$kohadir/scripts", oct(750));
  }
  unless ( -d $opacdir ) {
     print "Creating $opacdir...\n";
!    my $result=mkdir ($opacdir, oct(770));
     if ($result==0) {
         my @dirs = split(m#/#, $opacdir);
--- 690,715 ----
        }
     }
!    chown (0, (getgrnam($httpduser))[2], "$kohadir");
!    chmod (0770, "$kohadir");
  }
  unless ( -d "$kohadir/htdocs" ) {
     print "Creating $kohadir/htdocs...\n";
!    mkdir ("$kohadir/htdocs", 0750);
  }
  unless ( -d "$kohadir/cgi-bin" ) {
     print "Creating $kohadir/cgi-bin...\n";
!    mkdir ("$kohadir/cgi-bin", 0750);
  }
  unless ( -d "$kohadir/modules" ) {
     print "Creating $kohadir/modules...\n";
!    mkdir ("$kohadir/modules", 0750);
  }
  unless ( -d "$kohadir/scripts" ) {
     print "Creating $kohadir/scripts...\n";
!    mkdir ("$kohadir/scripts", 0750);
  }
  unless ( -d $opacdir ) {
     print "Creating $opacdir...\n";
!    my $result=mkdir ($opacdir, 0770);
     if ($result==0) {
         my @dirs = split(m#/#, $opacdir);
***************
*** 722,735 ****
        }
     }
!    chown (oct(0), (getgrnam($httpduser))[2], "$opacdir");
!    chmod (oct(770), "$opacdir");
  }
  unless ( -d "$opacdir/htdocs" ) {
     print "Creating $opacdir/htdocs...\n";
!    mkdir ("$opacdir/htdocs", oct(750));
  }
  unless ( -d "$opacdir/cgi-bin" ) {
     print "Creating $opacdir/cgi-bin...\n";
!    mkdir ("$opacdir/cgi-bin", oct(750));
  }
  
--- 722,735 ----
        }
     }
!    chown (0, (getgrnam($httpduser))[2], "$opacdir");
!    chmod (0770, "$opacdir");
  }
  unless ( -d "$opacdir/htdocs" ) {
     print "Creating $opacdir/htdocs...\n";
!    mkdir ("$opacdir/htdocs", 0750);
  }
  unless ( -d "$opacdir/cgi-bin" ) {
     print "Creating $opacdir/cgi-bin...\n";
!    mkdir ("$opacdir/cgi-bin", 0750);
  }