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