Prevent usertags created at submit time from including invalid trailing chars

[debbugs.git] / lib / Debbugs / Control.pm

diff --git a/lib/Debbugs/Control.pm b/lib/Debbugs/Control.pm
index 1f8b3aac60d3cb98fe5264795fc7806e795c4bac..38b83abfdba0806040825bad3d8cc2ec288535cc 100644 (file)
--- a/lib/Debbugs/Control.pm
+++ b/lib/Debbugs/Control.pm
@@ -3295,6 +3295,20 @@ sub bug_unarchive {
      __end_control(%info);
 }
 
+= head2 valid_usertag
+
+     valid_usertag
+
+This checks if the usertag contains valid characters or not.
+
+=cut
+
+sub valid_usertag {
+    my $usertag = shift;
+    return $usertag =~ m/^[a-zA-Z0-9.+\@-]+$/;
+}
+
+
 =head2 append_action_to_log
 
      append_action_to_log