1#************************************************************************* 2# 3# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 4# 5# Copyright 2000, 2010 Oracle and/or its affiliates. 6# 7# OpenOffice.org - a multi-platform office productivity suite 8# 9# This file is part of OpenOffice.org. 10# 11# OpenOffice.org is free software: you can redistribute it and/or modify 12# it under the terms of the GNU Lesser General Public License version 3 13# only, as published by the Free Software Foundation. 14# 15# OpenOffice.org is distributed in the hope that it will be useful, 16# but WITHOUT ANY WARRANTY; without even the implied warranty of 17# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18# GNU Lesser General Public License version 3 for more details 19# (a copy is included in the LICENSE file that accompanied this code). 20# 21# You should have received a copy of the GNU Lesser General Public License 22# version 3 along with OpenOffice.org. If not, see 23# <http://www.openoffice.org/license.html> 24# for a copy of the LGPLv3 License. 25# 26#************************************************************************* 27 28 29package pre2par::globals; 30 31############################################ 32# Global settings 33############################################ 34 35BEGIN 36{ 37 $prog="pre2par"; 38 39 $prefilename = ""; 40 $parfilename = ""; 41 $langfilename = ""; 42 43 @allitems = ("Installation", "ScpAction", "HelpText", "Directory", "DataCarrier", "StarRegistry", "File", 44 "Shortcut", "Custom", "Unixlink", "Procedure", "Module", "Profile", "ProfileItem", 45 "Folder", "FolderItem", "RegistryItem", "StarRegistryItem", "WindowsCustomAction", 46 "MergeModule"); 47 48 $logging = 0; 49 $logfilename = "logfile.log"; # the default logfile name for global errors 50 @logfileinfo = (); 51 52 $plat = $^O; 53 54 $separator = "/"; 55 $pathseparator = "\:"; 56 $isunix = 1; 57 $iswin = 0; 58 59 $islinux = 0; 60 $issolaris = 0; 61 62 if ( $plat =~ /linux/i ) { $islinux = 1; } 63 if ( $plat =~ /kfreebsd/i ) { $islinux = 1; } 64 if ( $plat =~ /solaris/i ) { $issolaris = 1; } 65 66} 67 681; 69