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
44	@items_assigned_at_modules = ("File", "Directory", "Unixlink");
45	@items_with_directories = ("File", "Profile", "Shortcut", "Unixlink");
46	@items_with_moduleid = ("Profile", "ProfileItem", "FolderItem", "RegistryItem");
47	@items_without_moduleid = ("File", "Directory", "Shortcut", "Unixlink");
48
49	%searchkeys = ("File" => "Files", "Directory" => "Dirs", "Unixlink" => "Unixlinks");
50
51	$logging = 0;
52	$logfilename = "logfile.log";	# the default logfile name for global errors
53	@logfileinfo = ();
54
55	$multidefinitionerror = 0;
56	$multiassignmenterror = 0;
57
58	%definitions;
59	%assignedgids;
60
61	$plat = $^O;
62
63	$separator = "/";
64	$pathseparator = "\:";
65	$isunix = 1;
66	$iswin = 0;
67
68	$islinux = 0;
69	$issolaris = 0;
70
71	if ( $plat =~ /linux/i ) { $islinux = 1; }
72	if ( $plat =~ /solaris/i ) { $issolaris = 1; }
73
74}
75
761;
77