← Index
NYTProf Performance Profile   « block view • line view • sub view »
For C:/lo/libo-master/solenv/bin/make_installer.pl
  Run on Mon Sep 24 00:52:54 2012
Reported on Mon Sep 24 07:34:40 2012

Filename/cygdrive/c/lo/libo-master/instsetoo_native/util/C:/lo/libo-master/solenv/bin/modules/installer/copyproject.pm
StatementsExecuted 19 statements in 1.29ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
111568µs584µsinstaller::copyproject::::BEGIN@30installer::copyproject::BEGIN@30
11126µs48µsinstaller::copyproject::::BEGIN@31installer::copyproject::BEGIN@31
11119µs22µsinstaller::copyproject::::BEGIN@39installer::copyproject::BEGIN@39
11118µs25µsinstaller::copyproject::::BEGIN@33installer::copyproject::BEGIN@33
11116µs18µsinstaller::copyproject::::BEGIN@38installer::copyproject::BEGIN@38
11116µs70µsinstaller::copyproject::::BEGIN@37installer::copyproject::BEGIN@37
11116µs18µsinstaller::copyproject::::BEGIN@35installer::copyproject::BEGIN@35
11115µs17µsinstaller::copyproject::::BEGIN@34installer::copyproject::BEGIN@34
11115µs17µsinstaller::copyproject::::BEGIN@36installer::copyproject::BEGIN@36
0000s0sinstaller::copyproject::::copy_projectinstaller::copyproject::copy_project
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1#*************************************************************************
2#
3# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4#
5# Copyright 2000, 2010 Oracle and/or its affiliates.
6#
7# OpenOffice.org - a multi-platform office productivity suite
8#
9# This file is part of OpenOffice.org.
10#
11# OpenOffice.org is free software: you can redistribute it and/or modify
12# it under the terms of the GNU Lesser General Public License version 3
13# only, as published by the Free Software Foundation.
14#
15# OpenOffice.org is distributed in the hope that it will be useful,
16# but WITHOUT ANY WARRANTY; without even the implied warranty of
17# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18# GNU Lesser General Public License version 3 for more details
19# (a copy is included in the LICENSE file that accompanied this code).
20#
21# You should have received a copy of the GNU Lesser General Public License
22# version 3 along with OpenOffice.org. If not, see
23# <http://www.openoffice.org/license.html>
24# for a copy of the LGPLv3 License.
25#
26#*************************************************************************
27
28package installer::copyproject;
29
302119µs2600µs
# spent 584µs (568+16) within installer::copyproject::BEGIN@30 which was called: # once (568µs+16µs) by installer::BEGIN@38 at line 30
use strict;
# spent 584µs making 1 call to installer::copyproject::BEGIN@30 # spent 16µs making 1 call to strict::import
31270µs270µs
# spent 48µs (26+22) within installer::copyproject::BEGIN@31 which was called: # once (26µs+22µs) by installer::BEGIN@38 at line 31
use warnings;
# spent 48µs making 1 call to installer::copyproject::BEGIN@31 # spent 22µs making 1 call to warnings::import
32
33257µs232µs
# spent 25µs (18+7) within installer::copyproject::BEGIN@33 which was called: # once (18µs+7µs) by installer::BEGIN@38 at line 33
use installer::control;
# spent 25µs making 1 call to installer::copyproject::BEGIN@33 # spent 7µs making 1 call to UNIVERSAL::import
34256µs220µs
# spent 17µs (15+2) within installer::copyproject::BEGIN@34 which was called: # once (15µs+2µs) by installer::BEGIN@38 at line 34
use installer::converter;
# spent 17µs making 1 call to installer::copyproject::BEGIN@34 # spent 2µs making 1 call to UNIVERSAL::import
35254µs221µs
# spent 18µs (16+3) within installer::copyproject::BEGIN@35 which was called: # once (16µs+3µs) by installer::BEGIN@38 at line 35
use installer::files;
# spent 18µs making 1 call to installer::copyproject::BEGIN@35 # spent 2µs making 1 call to UNIVERSAL::import
36253µs220µs
# spent 17µs (15+3) within installer::copyproject::BEGIN@36 which was called: # once (15µs+3µs) by installer::BEGIN@38 at line 36
use installer::globals;
# spent 17µs making 1 call to installer::copyproject::BEGIN@36 # spent 2µs making 1 call to UNIVERSAL::import
37259µs2123µs
# spent 70µs (16+53) within installer::copyproject::BEGIN@37 which was called: # once (16µs+53µs) by installer::BEGIN@38 at line 37
use installer::logger;
# spent 70µs making 1 call to installer::copyproject::BEGIN@37 # spent 53µs making 1 call to Exporter::import
38286µs220µs
# spent 18µs (16+2) within installer::copyproject::BEGIN@38 which was called: # once (16µs+2µs) by installer::BEGIN@38 at line 38
use installer::systemactions;
# spent 18µs making 1 call to installer::copyproject::BEGIN@38 # spent 2µs making 1 call to UNIVERSAL::import
392727µs224µs
# spent 22µs (19+3) within installer::copyproject::BEGIN@39 which was called: # once (19µs+3µs) by installer::BEGIN@38 at line 39
use installer::worker;
# spent 22µs making 1 call to installer::copyproject::BEGIN@39 # spent 3µs making 1 call to UNIVERSAL::import
40
41####################################################
42# Including header files into the logfile
43####################################################
44
45sub copy_project
46{
47 my ( $filesref, $scpactionsref, $loggingdir, $languagestringref, $shipinstalldir, $allsettingsarrayref ) = @_;
48
49 # Creating directories
50
51 installer::logger::include_header_into_logfile("Creating installation directory");
52
53 my $current_install_number = "";
54
55 my $installdir = installer::worker::create_installation_directory($shipinstalldir, $languagestringref, \$current_install_number);
56
57 my $installlogdir = installer::systemactions::create_directory_next_to_directory($installdir, "log");
58
59 # Copy files and ScpActions
60
61 installer::logger::include_header_into_logfile("Copying files:");
62
63 # copy Files
64
65 for ( my $i = 0; $i <= $#{$filesref}; $i++ )
66 {
67 my $onefile = ${$filesref}[$i];
68
69 my $source = $onefile->{'sourcepath'};
70 my $destination = $installdir . $installer::globals::separator . $onefile->{'Name'};
71
72 installer::systemactions::copy_one_file($source, $destination);
73
74 if ( $onefile->{'UnixRights'} )
75 {
76 chmod oct($onefile->{'UnixRights'}), $destination;
77 }
78 elsif ( $destination =~ /install\s*$/ )
79 {
80 chmod 0775, $destination;
81 }
82 }
83
84 # copy ScpActions
85
86 for ( my $i = 0; $i <= $#{$scpactionsref}; $i++ )
87 {
88 my $onefile = ${$scpactionsref}[$i];
89
90 my $source = $onefile->{'sourcepath'};
91 my $destination = $installdir . $installer::globals::separator . $onefile->{'DestinationName'};
92
93 installer::systemactions::copy_one_file($source, $destination);
94
95 if ( $onefile->{'UnixRights'} )
96 {
97 chmod oct($onefile->{'UnixRights'}), $destination;
98 }
99 elsif ( $destination =~ /install\s*$/ )
100 {
101 chmod 0775, $destination;
102 }
103 }
104
105 # Analyzing the log file
106
107 installer::worker::analyze_and_save_logfile($loggingdir, $installdir, $installlogdir, $allsettingsarrayref, $languagestringref, $current_install_number);
108
109 # That's all
110
111 exit(0);
112}
113
114110µs1;