xref: /AOO41X/main/solenv/bin/modules/par2script/exiter.pm (revision 9780544fa6b4c85f7d9b48452f58c7da854fc9a5) 
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
9#  with the License.  You may obtain a copy of the License at
10#
11#    http://www.apache.org/licenses/LICENSE-2.0
12#
13#  Unless required by applicable law or agreed to in writing,
14#  software distributed under the License is distributed on an
15#  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16#  KIND, either express or implied.  See the License for the
17#  specific language governing permissions and limitations
18#  under the License.
19#
20#**************************************************************
21
22
23
24
25package par2script::exiter;
26
27use par2script::files;
28use par2script::globals;
29
30############################################
31# Exiting the program with an error
32# This function is used instead of "die"
33############################################
34
35sub exit_program
36{
37    my ($message, $function) = @_;
38
39    my $infoline;
40
41    $infoline = "\n***************************************************************\n";
42    push(@par2script::globals::logfileinfo, $infoline);
43    print("$infoline");
44
45    $infoline = "$message\n";
46    push(@par2script::globals::logfileinfo, $infoline);
47    print("$infoline");
48
49    $infoline = "in function: $function\n";
50    push(@par2script::globals::logfileinfo, $infoline);
51    print("$infoline");
52
53    $infoline = "***************************************************************\n";
54    push(@par2script::globals::logfileinfo, $infoline);
55
56    if ($par2script::globals::logging)
57    {
58        par2script::files::save_file($par2script::globals::logfilename, \@par2script::globals::logfileinfo);
59        print("Saved logfile: $par2script::globals::logfilename\n");
60    }
61
62    print("$infoline");
63
64    exit(-1);
65}
66
67#####################################
68# Error, because a gid is defined
69# more than once
70#####################################
71
72sub multidefinitionerror
73{
74    my ( $multidefinitiongids ) = @_;
75    print "************************************************\n";
76    print "ERROR: multiple definition of gids:\n";
77    print "************************************************\n";
78
79    my $gid;
80    foreach $gid ( @{$multidefinitiongids} ) { print "\t$gid\n"; }
81    exit(-1);
82}
83
84#####################################
85# Error, because a gid is assigned
86# more than once
87#####################################
88
89sub multiassignmenterror
90{
91    my ( $multiassignmentgids ) = @_;
92    #print "************************************************\n";
93    #print "ERROR: multiple assignments of gids:\n";
94    #print "************************************************\n";
95
96    my $line;
97    foreach $line ( @{$multiassignmentgids} ) { print "\t$line\n"; }
98    # exit(-1);
99}
100
101#####################################
102# Error, because a defined gid
103# is not assigned
104#####################################
105
106sub missingassignmenterror
107{
108    my ( $missingassignmentgids ) = @_;
109    print "********************************************************\n";
110    print "ERROR: Missing assignments for the following GIDs:\n";
111    print "********************************************************\n";
112
113    my $gid;
114    foreach $gid ( @{$missingassignmentgids} ) { print "\t$gid\n"; }
115    exit(-1);
116}
117
1181;
119