[Koha-cvs] CVS: koha installer.pl,1.2.2.22,1.2.2.23

[Steve Tonnesen]

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

Modified Files:
      Tag: rel-1-2
	installer.pl 
Log Message:
mkdir now checks for existence of parent directories and creates them as well.
Parent directories, if created, will have 0775 permissions, $kohadir and
$opacdir will have 0770.


Index: installer.pl
===================================================================
RCS file: /cvsroot/koha/koha/installer.pl,v
retrieving revision 1.2.2.22
retrieving revision 1.2.2.23
diff -C2 -r1.2.2.22 -r1.2.2.23
*** installer.pl	24 Jun 2002 16:11:36 -0000	1.2.2.22
--- installer.pl	24 Jun 2002 16:58:52 -0000	1.2.2.23
***************
*** 369,373 ****
  unless ( -d $kohadir ) {
     print "Creating $kohadir...\n";
!    mkdir ($kohadir, oct(770));
     chown (oct(0), (getgrnam($httpduser))[2], "$kohadir");
     chmod (oct(770), "$kohadir");
--- 369,383 ----
  unless ( -d $kohadir ) {
     print "Creating $kohadir...\n";
!    my $result=mkdir ($kohadir, oct(770));
!    if ($result==0) {
!        my @dirs = split(m#/#, $kohadir);
! 	my $checkdir='';
! 	foreach (@dirs) {
! 	    $checkdir.="$_/";
! 	    unless (-e "$checkdir") {
! 		mkdir($checkdir, 0775);
! 	    }
! 	}
!    }
     chown (oct(0), (getgrnam($httpduser))[2], "$kohadir");
     chmod (oct(770), "$kohadir");
***************
*** 387,391 ****
  unless ( -d $opacdir ) {
     print "Creating $opacdir...\n";
!    mkdir ($opacdir, oct(770));
     chown (oct(0), (getgrnam($httpduser))[2], "$opacdir");
     chmod (oct(770), "$opacdir");
--- 397,411 ----
  unless ( -d $opacdir ) {
     print "Creating $opacdir...\n";
!    my $result=mkdir ($opacdir, oct(770));
!    if ($result==0) {
!        my @dirs = split(m#/#, $opacdir);
! 	my $checkdir='';
! 	foreach (@dirs) {
! 	    $checkdir.="$_/";
! 	    unless (-e "$checkdir") {
! 		mkdir($checkdir, 0775);
! 	    }
! 	}
!    }
     chown (oct(0), (getgrnam($httpduser))[2], "$opacdir");
     chmod (oct(770), "$opacdir");