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