solenv/bin/modules/packager/exiter.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: exiter.pm,v $
  10 #
  11 # $Revision: 1.4 $
  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
  33 package packager::exiter;
  34
  35 use packager::files;
  36 use packager::globals;
  37
  38 ############################################
  39 # Exiting the program with an error
  40 # This function is used instead of "die"
  41 ############################################
  42
  43 sub exit_program
  44 {
  45     my ($message, $function) = @_;
  46
  47     my $infoline;
  48
  49     $infoline = "\n***************************************************************\n";
  50     push(@packager::globals::logfileinfo, $infoline);
  51     print("$infoline");
  52
  53     $infoline = "$message\n";
  54     push(@packager::globals::logfileinfo, $infoline);
  55     print("$infoline");
  56
  57     $infoline = "in function: $function\n";
  58     push(@packager::globals::logfileinfo, $infoline);
  59     print("$infoline");
  60
  61     $infoline = "***************************************************************\n";
  62     push(@packager::globals::logfileinfo, $infoline);
  63
  64     if ( $packager::globals::logging )
  65     {
  66         packager::files::save_file($packager::globals::logfilename ,\@packager::globals::logfileinfo);
  67         print("Saved logfile: $packager::globals::logfilename\n");
  68     }
  69
  70     print("$infoline");
  71
  72     exit(-1);
  73 }
  74
  75 1;