exiter.pm (9780544f) exiter.pm (b274bc22)
1#**************************************************************
2#
3# Licensed to the Apache Software Foundation (ASF) under one
4# or more contributor license agreements. See the NOTICE file
5# distributed with this work for additional information
6# regarding copyright ownership. The ASF licenses this file
7# to you under the Apache License, Version 2.0 (the
8# "License"); you may not use this file except in compliance

--- 46 unchanged lines hidden (view full) ---

55 my $infoline;
56
57 $installer::globals::logfilename = $installer::globals::exitlog . $installer::globals::logfilename;
58
59 if ( ! $installer::globals::globalinfo_copied ) { installer::logger::copy_globalinfo_into_logfile(); }
60
61 if ( $#installer::globals::logfileinfo > -1 )
62 {
1#**************************************************************
2#
3# Licensed to the Apache Software Foundation (ASF) under one
4# or more contributor license agreements. See the NOTICE file
5# distributed with this work for additional information
6# regarding copyright ownership. The ASF licenses this file
7# to you under the Apache License, Version 2.0 (the
8# "License"); you may not use this file except in compliance

--- 46 unchanged lines hidden (view full) ---

55 my $infoline;
56
57 $installer::globals::logfilename = $installer::globals::exitlog . $installer::globals::logfilename;
58
59 if ( ! $installer::globals::globalinfo_copied ) { installer::logger::copy_globalinfo_into_logfile(); }
60
61 if ( $#installer::globals::logfileinfo > -1 )
62 {
63 $infoline = "\n***************************************************************\n";
64 push(@installer::globals::logfileinfo, $infoline);
65
66 $infoline = "$message\n";
67 push(@installer::globals::logfileinfo, $infoline);
63 $installer::logger::Lang->print("\n");
64 $installer::logger::Lang->print("***************************************************************\n");
65 $installer::logger::Lang->print($message."\n");
66 $installer::logger::Lang->printf("in function: %s\n", $function);
67 $installer::logger::Lang->printf("***************************************************************\n");
68
68
69 $infoline = "in function: $function\n";
70 push(@installer::globals::logfileinfo, $infoline);
71
72 $infoline = "***************************************************************\n";
73 push(@installer::globals::logfileinfo, $infoline);
74
75 installer::files::save_file($installer::globals::logfilename ,\@installer::globals::logfileinfo);
69# installer::files::save_file($installer::globals::logfilename ,\@installer::globals::logfileinfo);
76 }
77 else
78 {
70 }
71 else
72 {
79 $infoline = "\n***************************************************************\n";
80 push(@installer::globals::globallogfileinfo, $infoline);
81
82 $infoline = "$message\n";
83 push(@installer::globals::globallogfileinfo, $infoline);
73 $installer::logger::Global->print("\n");
74 $installer::logger::Global->print("***************************************************************\n");
75 $installer::logger::Global->print($message."\n");
76 $installer::logger::Global->printf("in function: %s\n", $function);
77 $installer::logger::Global->printf("***************************************************************\n");
84
78
85 $infoline = "in function: $function\n";
86 push(@installer::globals::globallogfileinfo, $infoline);
87
88 $infoline = "***************************************************************\n";
89 push(@installer::globals::globallogfileinfo, $infoline);
90
91 installer::files::save_file($installer::globals::logfilename ,\@installer::globals::globallogfileinfo);
79# installer::files::save_file($installer::globals::logfilename ,\@installer::globals::globallogfileinfo);
92 }
93 installer::logger::print_error("$message\nin function: $function");
80 }
81 installer::logger::print_error("$message\nin function: $function");
94 installer::logger::print_error("Saved logfile: $installer::globals::logfilename\n");
82# installer::logger::print_error("Saved logfile: $installer::globals::logfilename\n");
95
96 # Saving the debug info
97
98 if ( $installer::globals::debug ) { installer::logger::savedebug($installer::globals::exitlog); }
99
100 installer::logger::stoptime();
101
102 if (defined($installer::globals::exithandler)) {
103 &$installer::globals::exithandler;
104 }
105
106 exit(-1);
107}
108
1091;
83
84 # Saving the debug info
85
86 if ( $installer::globals::debug ) { installer::logger::savedebug($installer::globals::exitlog); }
87
88 installer::logger::stoptime();
89
90 if (defined($installer::globals::exithandler)) {
91 &$installer::globals::exithandler;
92 }
93
94 exit(-1);
95}
96
971;