solenv/bin/modules/pre2par/globals.pm

   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
  29 package pre2par::globals;
  30
  31 ############################################
  32 # Global settings
  33 ############################################
  34
  35 BEGIN
  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
  68 1;