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