diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2002-08-18 09:15:41 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2002-08-18 09:15:41 +0000 |
commit | 136669a76f1759a667f334d4ceb733ef2952d7d9 (patch) | |
tree | 5c6e6309b1ab97ebd9a8640d5c36dacdfacebcb9 /lib/sbin/CSTUtils.pl | |
parent | 8ea8cb1b78fcc17797dfe67af0ca2f22fa846d47 (diff) |
Strip of matching quotes from filenames before creating the files
Fixes Cactus/1179
git-svn-id: http://svn.cactuscode.org/flesh/trunk@2958 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/CSTUtils.pl')
-rw-r--r-- | lib/sbin/CSTUtils.pl | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/sbin/CSTUtils.pl b/lib/sbin/CSTUtils.pl index ecbc1d3e..c7b899dd 100644 --- a/lib/sbin/CSTUtils.pl +++ b/lib/sbin/CSTUtils.pl @@ -189,6 +189,10 @@ sub WriteFile my ($filename,$rdata) = @_; my ($data_in); +# Strip any matching quotes from filename + $filename =~ s/^\s*\"(.*)\"\s*$/\1/; + $filename =~ s/^\s*\'(.*)\'\s*$/\1/; + # Read in file $data_in = ""; if (-e $filename) |