summaryrefslogtreecommitdiff
path: root/solenv/bin/modules/installer/pathanalyzer.pm
diff options
context:
space:
mode:
Diffstat (limited to 'solenv/bin/modules/installer/pathanalyzer.pm')
-rw-r--r--solenv/bin/modules/installer/pathanalyzer.pm75
1 files changed, 0 insertions, 75 deletions
diff --git a/solenv/bin/modules/installer/pathanalyzer.pm b/solenv/bin/modules/installer/pathanalyzer.pm
deleted file mode 100644
index aab3e8654..000000000
--- a/solenv/bin/modules/installer/pathanalyzer.pm
+++ /dev/null
@@ -1,75 +0,0 @@
-#*************************************************************************
-#
-# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-#
-# Copyright 2000, 2010 Oracle and/or its affiliates.
-#
-# OpenOffice.org - a multi-platform office productivity suite
-#
-# This file is part of OpenOffice.org.
-#
-# OpenOffice.org is free software: you can redistribute it and/or modify
-# it under the terms of the GNU Lesser General Public License version 3
-# only, as published by the Free Software Foundation.
-#
-# OpenOffice.org is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU Lesser General Public License version 3 for more details
-# (a copy is included in the LICENSE file that accompanied this code).
-#
-# You should have received a copy of the GNU Lesser General Public License
-# version 3 along with OpenOffice.org. If not, see
-# <http://www.openoffice.org/license.html>
-# for a copy of the LGPLv3 License.
-#
-#*************************************************************************
-
-package installer::pathanalyzer;
-
-use installer::globals;
-
-###########################################
-# Path analyzer
-###########################################
-
-sub get_path_from_fullqualifiedname
-{
- my ($longfilenameref) = @_;
-
- if ( $$longfilenameref =~ /\Q$installer::globals::separator\E/ ) # Is there a separator in the path? Otherwise the path is empty.
- {
- if ( $$longfilenameref =~ /^\s*(.*\Q$installer::globals::separator\E)(.+)/ )
- {
- $$longfilenameref = $1;
- }
- }
- else
- {
- $$longfilenameref = ""; # there is no path
- }
-}
-
-sub make_absolute_filename_to_relative_filename
-{
- my ($longfilenameref) = @_;
-
- if ( $installer::globals::isunix )
- {
- if ( $$longfilenameref =~ /^.*\/(\S.+\S?)/ )
- {
- $$longfilenameref = $1;
- }
- }
-
- if ( $installer::globals::iswin )
- {
- # Either '/' or '\'. It would be possible to use $installer::globals::separator.
- if ( $$longfilenameref =~ /^.*[\/\\](\S.+\S?)/ )
- {
- $$longfilenameref = $1;
- }
- }
-}
-
-1;