X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scripts%2Fservice;h=df3bc2c04b070a26063728c00f3e7344f0bf75bb;hb=e71013e25c1ca334b986e28f1caebb6b0cb69cb7;hp=7e4c2054bcf618b4ec4eb204dbc01d300183d203;hpb=6c674e3570221c96734f94967ad55f50560bee54;p=debbugs.git

diff --git a/scripts/service b/scripts/service
index 7e4c205..df3bc2c 100755
--- a/scripts/service
+++ b/scripts/service
@@ -32,7 +32,7 @@ use Debbugs::Versions::Dpkg;
 use Debbugs::Status qw(splitpackages);
 
 use Debbugs::CGI qw(html_escape);
-use Debbugs::Control qw(:all);
+use Debbugs::Control qw(:all valid_usertag);
 use Debbugs::Control::Service qw(:all);
 use Debbugs::Log qw(:misc);
 use Debbugs::Text qw(:templates);
@@ -425,7 +425,7 @@ END
 	    my %chtags;
 	    if (defined $tags and length $tags) {
 		 for my $t (split /[,\s]+/, $tags) {
-		      if ($t =~ m/^[a-zA-Z0-9.+\@-]+$/) {
+		      if (valid_usertag($t)) {
 			   $chtags{$t} = 1;
 		      } else {
 			   push @badtags, $t;
@@ -455,7 +455,11 @@ END
 	    } else {
 		print {$transcript} "Usertags were: " . join(" ", @oldtags) . ".\n";
 	    }
-	    print {$transcript} "Usertags are now: " . join(" ", @newtags) . ".\n";
+	    if (@newtags == 0) {
+		print {$transcript} "There are now no usertags set.\n";
+	    } else {
+		print {$transcript} "Usertags are now: " . join(" ", @newtags) . ".\n";
+	    }
 	    Debbugs::User::write_usertags(\%ut, $user);
 	}
     } elsif (!$control) {