diff -Nur --no-dereference smeserver-mailalias-0.1.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/mailalias.pm smeserver-mailalias-0.1/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/mailalias.pm
--- smeserver-mailalias-0.1.old/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/mailalias.pm	2011-09-27 22:15:23.000000000 -0400
+++ smeserver-mailalias-0.1/root/usr/share/perl5/vendor_perl/esmith/FormMagick/Panel/mailalias.pm	2022-07-23 20:25:02.797000000 -0400
@@ -180,7 +180,7 @@
         or $msg = "Error occurred while creating mailalias in database.";
 
     # Untaint $pseudonym before use in system()
-    ($mailalias) = ($mailalias =~ /(.+)/);
+    ($mailalias) = ($mailalias =~ /([\w\p{L}.]+)/ );
     system( "/sbin/e-smith/signal-event", "mailalias-create", "$mailalias",) 
         == 0 or $msg = "Error occurred while creating mailalias.";
 
@@ -230,7 +230,7 @@
         or $msg = "Error occurred while modifying mailalias in database.";
 	
     # Untaint $mailalias before use in system()
-    ($mailalias) = ($mailalias =~ /(.+)/);
+    ($mailalias) = ($mailalias =~ /([\w\p{L}]+.)/);
     system( "/sbin/e-smith/signal-event", "mailalias-modify", "$mailalias",)
         == 0 or $msg = "Error occurred while modifying mailalias.";
 
@@ -268,7 +268,7 @@
     #------------------------------------------------------------
 
     # Untaint $mailalias before use in system()
-    ($mailalias) = ($mailalias =~ /(.+)/);
+    ($mailalias) = ($mailalias =~ /([\w\p{L}]+.)/);
     system( "/sbin/e-smith/signal-event", "mailalias-delete", "$mailalias",)
         == 0 or $msg = "Error occurred while deleting mailalias.";