solenv/bin/modules/installer/copyproject.pm

   1 #*************************************************************************
   2 #
   3 # DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4 #
   5 # Copyright 2008 by Sun Microsystems, Inc.
   6 #
   7 # OpenOffice.org - a multi-platform office productivity suite
   8 #
   9 # $RCSfile: copyproject.pm,v $
  10 #
  11 # $Revision: 1.9 $
  12 #
  13 # This file is part of OpenOffice.org.
  14 #
  15 # OpenOffice.org is free software: you can redistribute it and/or modify
  16 # it under the terms of the GNU Lesser General Public License version 3
  17 # only, as published by the Free Software Foundation.
  18 #
  19 # OpenOffice.org is distributed in the hope that it will be useful,
  20 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  21 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  22 # GNU Lesser General Public License version 3 for more details
  23 # (a copy is included in the LICENSE file that accompanied this code).
  24 #
  25 # You should have received a copy of the GNU Lesser General Public License
  26 # version 3 along with OpenOffice.org.  If not, see
  27 # <http://www.openoffice.org/license.html>
  28 # for a copy of the LGPLv3 License.
  29 #
  30 #*************************************************************************
  31
  32 package installer::copyproject;
  33
  34 use installer::control;
  35 use installer::converter;
  36 use installer::files;
  37 use installer::globals;
  38 use installer::logger;
  39 use installer::mail;
  40 use installer::systemactions;
  41 use installer::worker;
  42
  43 ####################################################
  44 # Including header files into the logfile
  45 ####################################################
  46
  47 sub copy_project
  48 {
  49     my ( $filesref, $scpactionsref, $loggingdir, $languagestringref, $shipinstalldir, $allsettingsarrayref ) = @_;
  50
  51     # Creating directories
  52
  53     installer::logger::include_header_into_logfile("Creating installation directory");
  54
  55     my $current_install_number = "";
  56
  57     my $installdir = installer::worker::create_installation_directory($shipinstalldir, $languagestringref, \$current_install_number);
  58
  59     my $installlogdir = installer::systemactions::create_directory_next_to_directory($installdir, "log");
  60
  61     # Copy files and ScpActions
  62
  63     installer::logger::include_header_into_logfile("Copying files:");
  64
  65     # copy Files
  66
  67     for ( my $i = 0; $i <= $#{$filesref}; $i++ )
  68     {
  69         my $onefile = ${$filesref}[$i];
  70
  71         my $source = $onefile->{'sourcepath'};
  72         my $destination = $installdir . $installer::globals::separator . $onefile->{'Name'};
  73
  74         installer::systemactions::copy_one_file($source, $destination);
  75
  76         if ( $destination =~ /install\s*$/ )
  77         {
  78             my $localcall = "chmod 775 $destination \>\/dev\/null 2\>\&1";
  79             system($localcall);
  80         }
  81
  82             if ( $onefile->{'UnixRights'} )
  83         {
  84             my $localcall = "chmod $onefile->{'UnixRights'} $destination \>\/dev\/null 2\>\&1";
  85             system($localcall);
  86             }
  87     }
  88
  89     # copy ScpActions
  90
  91     for ( my $i = 0; $i <= $#{$scpactionsref}; $i++ )
  92     {
  93         my $onefile = ${$scpactionsref}[$i];
  94
  95         my $source = $onefile->{'sourcepath'};
  96         my $destination = $installdir . $installer::globals::separator . $onefile->{'DestinationName'};
  97
  98         installer::systemactions::copy_one_file($source, $destination);
  99
 100         if ( $destination =~ /install\s*$/ )
 101         {
 102             my $localcall = "chmod 775 $destination \>\/dev\/null 2\>\&1";
 103             system($localcall);
 104         }
 105
 106         if ( $onefile->{'UnixRights'} )
 107         {
 108             my $localcall = "chmod $onefile->{'UnixRights'} $destination \>\/dev\/null 2\>\&1";
 109             system($localcall);
 110         }
 111     }
 112
 113     # Analyzing the log file
 114
 115     installer::worker::analyze_and_save_logfile($loggingdir, $installdir, $installlogdir, $allsettingsarrayref, $languagestringref, $current_install_number);
 116
 117     # That's all
 118
 119     exit(0);
 120 }
 121
 122 1;