diff options
author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2002-04-20 12:28:58 +0000 |
---|---|---|
committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2002-04-20 12:28:58 +0000 |
commit | 6bd639615afe6bc24b3e962428f2a84d8884fe64 (patch) | |
tree | 6421de616d0c26cc272a19a85cf25b4547cbc892 /lib/sbin/ThornUtils.pm | |
parent | 9021ba9e87f38e9593a5fad8ed450efa5f65ba83 (diff) |
Now thornguide also parses interface.ccl
git-svn-id: http://svn.cactuscode.org/flesh/trunk@2735 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/ThornUtils.pm')
-rw-r--r-- | lib/sbin/ThornUtils.pm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/lib/sbin/ThornUtils.pm b/lib/sbin/ThornUtils.pm index 7880009f..ec42061f 100644 --- a/lib/sbin/ThornUtils.pm +++ b/lib/sbin/ThornUtils.pm @@ -635,6 +635,21 @@ sub AddQuotes { } #/*@@ +# @routine RemoveQuotes +# @date Sat Apr 20 2002 +# @author Gabrielle +# @desc +# Simply takes away any enclosing quotes if they exist. +# @enddesc +# @version +#@@*/ +sub AddQuotes { + my $var = shift; + $var =~ s/^\s*?\"(.*)\"\s*?$/$1/; + return $var; +} + +#/*@@ # @routine SetWidth # @date Sun Mar 3 01:54:37 CET 2002 # @author Ian Kelley |