1#**************************************************************
2#
3#  Licensed to the Apache Software Foundation (ASF) under one
4#  or more contributor license agreements.  See the NOTICE file
5#  distributed with this work for additional information
6#  regarding copyright ownership.  The ASF licenses this file
7#  to you under the Apache License, Version 2.0 (the
8#  "License"); you may not use this file except in compliance
9#  with the License.  You may obtain a copy of the License at
10#
11#    http://www.apache.org/licenses/LICENSE-2.0
12#
13#  Unless required by applicable law or agreed to in writing,
14#  software distributed under the License is distributed on an
15#  "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16#  KIND, either express or implied.  See the License for the
17#  specific language governing permissions and limitations
18#  under the License.
19#
20#**************************************************************
21
22
23
24package installer::remover;
25
26use installer::globals;
27
28############################################
29# Remover
30############################################
31
32sub remove_leading_and_ending_whitespaces
33{
34	my ( $stringref ) = @_;
35
36	$$stringref =~ s/^\s*//;
37	$$stringref =~ s/\s*$//;
38}
39
40sub remove_leading_and_ending_quotationmarks
41{
42	my ( $stringref ) = @_;
43
44	$$stringref =~ s/^\s*\"//;
45	$$stringref =~ s/\"\s*$//;
46}
47
48sub remove_leading_and_ending_slashes
49{
50	my ( $stringref ) = @_;
51
52	$$stringref =~ s/^\s*\///g;
53	$$stringref =~ s/\/\s*$//g;
54}
55
56sub remove_ending_slashes
57{
58	my ( $stringref ) = @_;
59
60	$$stringref =~ s/\/\s*$//g;
61}
62
63sub remove_leading_and_ending_pathseparators
64{
65	my ( $stringref ) = @_;
66
67	$$stringref =~ s/^\s*\Q$installer::globals::separator\E//;
68	$$stringref =~ s/\Q$installer::globals::separator\E\s*$//;
69}
70
71sub remove_ending_pathseparator
72{
73	my ( $stringref ) = @_;
74
75	$$stringref =~ s/\Q$installer::globals::separator\E\s*$//;
76}
77
781;
79