Allow ^ and $ as regular expressions in the responsible person field.

This allows us to search for all those PRs assigned to 're' without
adding the ones assigned to 'reg', or 'mi' and 'mike', etc..  Finally
I hope to have PR email that only contains the PRs that were really
meant for me.
This commit is contained in:
Murray Stokely 2001-10-23 04:28:48 +00:00
parent d9ca234dc3
commit 289bb9611e
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/www/; revision=11005

View file

@ -1,5 +1,5 @@
#!/usr/bin/perl -T
# $FreeBSD: www/en/cgi/query-pr-summary.cgi,v 1.32 2001/01/12 00:19:09 peter Exp $
# $FreeBSD: www/en/cgi/query-pr-summary.cgi,v 1.33 2001/02/19 19:23:19 peter Exp $
$html_mode = 1 if $ENV{'DOCUMENT_ROOT'};
$self_ref = $ENV{'SCRIPT_NAME'};
@ -52,7 +52,7 @@ if ($html_mode) {
$input{"responsible"} = "summary" if $opt_R;
if ($opt_r) {
($input{"responsible"}) = ($opt_r =~ m/^([-_a-zA-Z0-9@.]*)$/);
($input{"responsible"}) = ($opt_r =~ m/^(\^?[-_a-zA-Z0-9@.]*\$?)$/);
die "Insecure args" if ($input{"responsible"} ne $opt_r)
}
if ($opt_s) {