X-Git-Url: https://git.proxmox.com/?p=pve-common.git;a=blobdiff_plain;f=data%2FPVE%2FTools.pm;h=78d7b9f2140026d4d6d1d4142773a768a05b017d;hp=4c4e25958ad38336ae44b05cce672d9bbbc76f22;hb=762e32238687f0bb7a2687e39fb7145502fadf40;hpb=23dc9401bbd513007ddb3f468ac7e3b754c12402

diff --git a/data/PVE/Tools.pm b/data/PVE/Tools.pm
index 4c4e259..78d7b9f 100644
--- a/data/PVE/Tools.pm
+++ b/data/PVE/Tools.pm
@@ -687,4 +687,26 @@ sub random_ether_addr {
     return $mac;
 }
 
+sub shellquote {
+    my $str = shift;
+
+    return "''" if !defined ($str) || ($str eq '');
+    
+    die "unable to quote string containing null (\\000) bytes"
+	if $str =~ m/\x00/;
+
+    # from String::ShellQuote
+    if ($str =~ m|[^\w!%+,\-./:@^]|) {
+
+	# ' -> '\''
+	$str =~ s/'/'\\''/g;
+
+	$str = "'$str'";
+	$str =~ s/^''//;
+	$str =~ s/''$//;
+    }
+
+    return $str;
+}
+
 1;