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; |