solenv/bin/modules/par2script/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.6 $
  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 par2script::exiter;
  34
  35 use par2script::files;
  36 use par2script::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(@par2script::globals::logfileinfo, $infoline);
  51     print("$infoline");
  52
  53     $infoline = "$message\n";
  54     push(@par2script::globals::logfileinfo, $infoline);
  55     print("$infoline");
  56
  57     $infoline = "in function: $function\n";
  58     push(@par2script::globals::logfileinfo, $infoline);
  59     print("$infoline");
  60
  61     $infoline = "***************************************************************\n";
  62     push(@par2script::globals::logfileinfo, $infoline);
  63
  64     if ($par2script::globals::logging)
  65     {
  66         par2script::files::save_file($par2script::globals::logfilename, \@par2script::globals::logfileinfo);
  67         print("Saved logfile: $par2script::globals::logfilename\n");
  68     }
  69
  70     print("$infoline");
  71
  72     exit(-1);
  73 }
  74
  75 #####################################
  76 # Error, because a gid is defined
  77 # more than once
  78 #####################################
  79
  80 sub multidefinitionerror
  81 {
  82     my ( $multidefinitiongids ) = @_;
  83     print "************************************************\n";
  84     print "ERROR: multiple definition of gids:\n";
  85     print "************************************************\n";
  86
  87     my $gid;
  88     foreach $gid ( @{$multidefinitiongids} ) { print "\t$gid\n"; }
  89     exit(-1);
  90 }
  91
  92 #####################################
  93 # Error, because a gid is assigned
  94 # more than once
  95 #####################################
  96
  97 sub multiassignmenterror
  98 {
  99     my ( $multiassignmentgids ) = @_;
 100     #print "************************************************\n";
 101     #print "ERROR: multiple assignments of gids:\n";
 102     #print "************************************************\n";
 103
 104     my $line;
 105     foreach $line ( @{$multiassignmentgids} ) { print "\t$line\n"; }
 106     # exit(-1);
 107 }
 108
 109 #####################################
 110 # Error, because a defined gid
 111 # is not assigned
 112 #####################################
 113
 114 sub missingassignmenterror
 115 {
 116     my ( $missingassignmentgids ) = @_;
 117     print "********************************************************\n";
 118     print "ERROR: Missing assignments for the following GIDs:\n";
 119     print "********************************************************\n";
 120
 121     my $gid;
 122     foreach $gid ( @{$missingassignmentgids} ) { print "\t$gid\n"; }
 123     exit(-1);
 124 }
 125
 126 1;