From e1f7a5e70a3d6a971d4903ff0206fb38dc8d37ac Mon Sep 17 00:00:00 2001
From: Paul Menzel <pmenzel@molgen.mpg.de>
Date: Wed, 21 Feb 2018 15:14:02 +0100
Subject: [PATCH] mkmotd: Strip trailing spaces

---
 mkmotd/mkmotd.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/mkmotd/mkmotd.pl b/mkmotd/mkmotd.pl
index 83bfbb3..e35bfa6 100755
--- a/mkmotd/mkmotd.pl
+++ b/mkmotd/mkmotd.pl
@@ -73,7 +73,7 @@ sub readstr {
 
 sub policy {				# policy('theinternet') --> ('zeile1,'zeile2',....)
 	my ($hostname)=@_;
-	
+
 	open IN,'<','/etc/mxpolicy' or return ();
 	while (<IN>) {
 		if (/^\S/ && /\b$hostname\b/) {
@@ -84,7 +84,7 @@ sub policy {				# policy('theinternet') --> ('zeile1,'zeile2',....)
 				if (/\s+\`\s*(.+)/) {
 				   my $x = `$1`;chomp($x);
 				   push @out,split(/\n/,$x);
-				} 
+				}
 			}
 			return @out;
 		}
@@ -125,12 +125,12 @@ sub policy {				# policy('theinternet') --> ('zeile1,'zeile2',....)
 $T{SYSTEM}='';
 {
   my $sys = '';
-  
+
 #  for i in /sys/devices/virtual/dmi/id/*_{name,vendor,version}; do echo -en "$i\t"; cat $i; done
 #  for i in /sys/devices/virtual/dmi/id/{product_{name,version},sys_vendor}; do echo -en "$i\t"; cat $i; done
 
 #  /sys/devices/virtual/dmi/id
-  
+
   my $pn = readstr('/sys/devices/virtual/dmi/id/product_name');
   if ($pn =~ m/All Series|empty/) {
     $pn = undef;