Changeset 5b75e8b

Timestamp:

Aug 21, 2008, 6:20:16 PM (16 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

680ada9

Parents:

d5dcd7c

Message:

Implement BarnOwl::quote() to fully quote a string against command parsing

File:

• perlwrap.pm (modified) (1 diff)

perlwrap.pm

@@ -300 +300 @@
         %{$args});
     $func->($name, $args{default}, $args{summary}, $args{description});
+}
+
+=head2 quote STRING
+
+Return a version of STRING fully quoted to survive processing by
+BarnOwl's command parser.
+
+=cut
+
+sub quote {
+    my $str = shift;
+    if ($str !~ /'/ && $str !~ /"/) {
+        return "$str";
+    }
+    if ($str !~ /'/) {
+        return "'$str'";
+    }
+    $str =~ s/"/"'"'"/g;
+    return '"' . $str . '"';
 }