1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
|
#*************************************************************************
#
# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
#
# Copyright 2000, 2010 Oracle and/or its affiliates.
#
# OpenOffice.org - a multi-platform office productivity suite
#
# This file is part of OpenOffice.org.
#
# OpenOffice.org is free software: you can redistribute it and/or modify
# it under the terms of the GNU Lesser General Public License version 3
# only, as published by the Free Software Foundation.
#
# OpenOffice.org is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU Lesser General Public License version 3 for more details
# (a copy is included in the LICENSE file that accompanied this code).
#
# You should have received a copy of the GNU Lesser General Public License
# version 3 along with OpenOffice.org. If not, see
# <http://www.openoffice.org/license.html>
# for a copy of the LGPLv3 License.
#
#*************************************************************************
package installer::exiter;
use installer::files;
use installer::globals;
use installer::logger;
use installer::systemactions;
use installer::worker;
############################################
# Exiting the program with an error
# This function is used instead of "die"
############################################
sub exit_program
{
my ($message, $function) = @_;
# If an installation set is currently created, the directory name is saved in $installer::globals::saveinstalldir
# If this directory name matches with "_inprogress", it has to be renamed into "_witherror"
if ( $installer::globals::saveinstalldir =~ /_inprogress/ ) { installer::systemactions::rename_string_in_directory($installer::globals::saveinstalldir, "_inprogress", "_witherror"); }
# Cleaning files from pool tooling
if ( $installer::globals::processhaspoolcheckfile ) { unlink $installer::globals::poolcheckfilename; }
if ( $installer::globals::processhaspoollockfile ) { unlink $installer::globals::poollockfilename; }
installer::worker::clean_output_tree(); # removing directories created in the output tree
# If @installer::globals::logfileinfo is not empty, it can be used.
# Otherwise the content of @installer::globals::globallogfileinfo has to be used.
my $infoline;
$installer::globals::logfilename = $installer::globals::exitlog . $installer::globals::logfilename;
if ( ! $installer::globals::globalinfo_copied ) { installer::logger::copy_globalinfo_into_logfile(); }
if ( $#installer::globals::logfileinfo > -1 )
{
$infoline = "\n***************************************************************\n";
push(@installer::globals::logfileinfo, $infoline);
$infoline = "$message\n";
push(@installer::globals::logfileinfo, $infoline);
$infoline = "in function: $function\n";
push(@installer::globals::logfileinfo, $infoline);
$infoline = "***************************************************************\n";
push(@installer::globals::logfileinfo, $infoline);
installer::files::save_file($installer::globals::logfilename ,\@installer::globals::logfileinfo);
}
else
{
$infoline = "\n***************************************************************\n";
push(@installer::globals::globallogfileinfo, $infoline);
$infoline = "$message\n";
push(@installer::globals::globallogfileinfo, $infoline);
$infoline = "in function: $function\n";
push(@installer::globals::globallogfileinfo, $infoline);
$infoline = "***************************************************************\n";
push(@installer::globals::globallogfileinfo, $infoline);
installer::files::save_file($installer::globals::logfilename ,\@installer::globals::globallogfileinfo);
}
installer::logger::print_error("$message\nin function: $function");
installer::logger::print_error("Saved logfile: $installer::globals::logfilename\n");
# Saving the debug info
if ( $installer::globals::debug ) { installer::logger::savedebug($installer::globals::exitlog); }
installer::logger::stoptime();
if (defined($installer::globals::exithandler)) {
&$installer::globals::exithandler;
}
exit(-1);
}
1;
|