mkmotd: Strip trailing spaces

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;