xref: /trunk/main/solenv/bin/modules/par2script/globals.pm (revision d1fa6344)

#**************************************************************
#
#  Licensed to the Apache Software Foundation (ASF) under one
#  or more contributor license agreements.  See the NOTICE file
#  distributed with this work for additional information
#  regarding copyright ownership.  The ASF licenses this file
#  to you under the Apache License, Version 2.0 (the
#  "License"); you may not use this file except in compliance
#  with the License.  You may obtain a copy of the License at
#
#    http://www.apache.org/licenses/LICENSE-2.0
#
#  Unless required by applicable law or agreed to in writing,
#  software distributed under the License is distributed on an
#  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
#  KIND, either express or implied.  See the License for the
#  specific language governing permissions and limitations
#  under the License.
#
#**************************************************************




package par2script::globals;

############################################
# Global settings
############################################

BEGIN
{
	$prog="par2script";

	$includepathlist = "";
	$scriptname = "";
	$parfilelistorig = "";
	$parfilelist = "";

	@allitems = ("Installation", "ScpAction", "Directory", "File",
				 "Shortcut", "Unixlink", "Module", "Profile", "ProfileItem",
				 "Folder", "FolderItem", "RegistryItem", "WindowsCustomAction");

	@items_assigned_at_modules = ("File", "Directory", "Unixlink");
	@items_with_directories = ("File", "Profile", "Shortcut", "Unixlink");
	@items_with_moduleid = ("Profile", "ProfileItem", "FolderItem", "RegistryItem");
	@items_without_moduleid = ("File", "Directory", "Shortcut", "Unixlink");

	%searchkeys = ("File" => "Files", "Directory" => "Dirs", "Unixlink" => "Unixlinks");

	$logging = 0;
	$logfilename = "logfile.log";	# the default logfile name for global errors
	@logfileinfo = ();

	$multidefinitionerror = 0;
	$multiassignmenterror = 0;

	%definitions;
	%assignedgids;

	$plat = $^O;

	$separator = "/";
	$pathseparator = "\:";
	$isunix = 1;
	$iswin = 0;

	$islinux = 0;
	$issolaris = 0;

	if ( $plat =~ /linux/i ) { $islinux = 1; }
	if ( $plat =~ /solaris/i ) { $issolaris = 1; }

}

1;