X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lib%2FDebbugs%2FControl.pm;fp=lib%2FDebbugs%2FControl.pm;h=38b83abfdba0806040825bad3d8cc2ec288535cc;hb=e71013e25c1ca334b986e28f1caebb6b0cb69cb7;hp=1f8b3aac60d3cb98fe5264795fc7806e795c4bac;hpb=1aa5061f8033c49525c7a2d424c43900cee19771;p=debbugs.git

diff --git a/lib/Debbugs/Control.pm b/lib/Debbugs/Control.pm
index 1f8b3aa..38b83ab 100644
--- 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