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::globals;
26
27############################################
28# Global settings
29############################################
30
31BEGIN
32{
33	$prog="par2script";
34
35	$includepathlist = "";
36	$scriptname = "";
37	$parfilelistorig = "";
38	$parfilelist = "";
39
40	@allitems = ("Installation", "ScpAction", "Directory", "File",
41				 "Shortcut", "Unixlink", "Module", "Profile", "ProfileItem",
42				 "Folder", "FolderItem", "RegistryItem", "WindowsCustomAction",
43				 "MergeModule");
44
45	@items_assigned_at_modules = ("File", "Directory", "Unixlink");
46	@items_with_directories = ("File", "Profile", "Shortcut", "Unixlink");
47	@items_with_moduleid = ("Profile", "ProfileItem", "FolderItem", "RegistryItem");
48	@items_without_moduleid = ("File", "Directory", "Shortcut", "Unixlink");
49
50	%searchkeys = ("File" => "Files", "Directory" => "Dirs", "Unixlink" => "Unixlinks");
51
52	$logging = 0;
53	$logfilename = "logfile.log";	# the default logfile name for global errors
54	@logfileinfo = ();
55
56	$multidefinitionerror = 0;
57	$multiassignmenterror = 0;
58
59	%definitions;
60	%assignedgids;
61
62	$plat = $^O;
63
64	$separator = "/";
65	$pathseparator = "\:";
66	$isunix = 1;
67	$iswin = 0;
68
69	$islinux = 0;
70	$issolaris = 0;
71
72	if ( $plat =~ /linux/i ) { $islinux = 1; }
73	if ( $plat =~ /solaris/i ) { $issolaris = 1; }
74
75}
76
771;
78