control: Strip trailing whitespace from commands

Otherwise we try and interpret e.g. "! " as a message-id. (See
http://bugs.xenproject.org/xen/bug/17)

diff --git a/config/examples/test/control.18.test b/config/examples/test/control.18.test
new file mode 100644 (file)
index 0000000..19c41a4
--- /dev/null
+++ b/config/examples/test/control.18.test
@@ -0,0 +1,7 @@
+From: Ian Campbell <ijc@hellion.org.uk>
+Subject: Command with trailing whitespace
+To: test-control@bugs.xenproject.org
+Message-Id: <control.test.18@fake.hellion.org.uk>
+
+create !     
+thanks

diff --git a/scripts/control.pl b/scripts/control.pl
index 9c5e3ff99732e134f8be9bc484f34980fb4ebe6c..4534eacb4fa178fbadb63eb055db97886fa1ba30 100755 (executable)
--- a/scripts/control.pl
+++ b/scripts/control.pl
@@ -428,7 +428,7 @@ while (<M>) {
     chomp();
     push @reply, "> $_";
 
-    s/#.*//g;
+    s/#.*//g; s/\s+$//;
     next if (m/^$/);
 
     my $done = 0;