From 24244199414f4f3eae7215d6b9d40992802c334b Mon Sep 17 00:00:00 2001
From: Dietmar Maurer <dietmar@proxmox.com>
Date: Wed, 15 Feb 2017 06:47:37 +0100
Subject: [PATCH] pmg-smtp-filter: use perl taint mode

---
 bin/pmg-smtp-filter | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/bin/pmg-smtp-filter b/bin/pmg-smtp-filter
index a4d20b7..8ccf1e0 100755
--- a/bin/pmg-smtp-filter
+++ b/bin/pmg-smtp-filter
@@ -1,4 +1,4 @@
-#!/usr/bin/perl
+#!/usr/bin/perl -T
 
 use strict;
 use warnings;
@@ -94,6 +94,9 @@ if (!$opt_testmode) {
     $min_spare_servers = 1;
     $max_spare_servers = 4;
     $max_requests = 20;
+} else {
+    # untaint $opt_testmode
+    ($opt_testmode) = $opt_testmode =~ /^(.*)$/;
 }
 
 $opt_max_dequeue = 0 if $opt_testmode;
@@ -825,7 +828,7 @@ sub process_request {
 
   $self->log (0, $err) if $err;
 
-  kill (15, $prop->{ppid}) if $opt_testmode;
+  kill(15, $prop->{ppid}) if $opt_testmode;
 
   my $mem = PVE::ProcFSTools::read_memory_usage();
 
-- 
2.39.5