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 28package installer::remover; 29 30use installer::globals; 31 32############################################ 33# Remover 34############################################ 35 36sub remove_leading_and_ending_whitespaces 37{ 38 my ( $stringref ) = @_; 39 40 $$stringref =~ s/^\s*//; 41 $$stringref =~ s/\s*$//; 42} 43 44sub remove_leading_and_ending_quotationmarks 45{ 46 my ( $stringref ) = @_; 47 48 $$stringref =~ s/^\s*\"//; 49 $$stringref =~ s/\"\s*$//; 50} 51 52sub remove_leading_and_ending_slashes 53{ 54 my ( $stringref ) = @_; 55 56 $$stringref =~ s/^\s*\///g; 57 $$stringref =~ s/\/\s*$//g; 58} 59 60sub remove_ending_slashes 61{ 62 my ( $stringref ) = @_; 63 64 $$stringref =~ s/\/\s*$//g; 65} 66 67sub remove_leading_and_ending_pathseparators 68{ 69 my ( $stringref ) = @_; 70 71 $$stringref =~ s/^\s*\Q$installer::globals::separator\E//; 72 $$stringref =~ s/\Q$installer::globals::separator\E\s*$//; 73} 74 75sub remove_ending_pathseparator 76{ 77 my ( $stringref ) = @_; 78 79 $$stringref =~ s/\Q$installer::globals::separator\E\s*$//; 80} 81 821; 83