diff options
Diffstat (limited to 'custom_disabled.cgi')
| -rwxr-xr-x | custom_disabled.cgi | 41 |
1 files changed, 23 insertions, 18 deletions
diff --git a/custom_disabled.cgi b/custom_disabled.cgi index 2c134c7f0..1173e3620 100755 --- a/custom_disabled.cgi +++ b/custom_disabled.cgi @@ -6,36 +6,41 @@ use lib qw(. lib); use Bugzilla; use Bugzilla::Constants; -my $cgi = Bugzilla->cgi; -my $vars = {}; +my $cgi = Bugzilla->cgi; +my $vars = {}; my $user = Bugzilla->login(LOGIN_REQUIRED); -my $dbh = Bugzilla->switch_to_shadow_db(); +my $dbh = Bugzilla->switch_to_shadow_db(); -print $cgi->header(-type=>'text/html'); +print $cgi->header(-type => 'text/html'); -$user->in_group('admin') + $user->in_group('admin') || $user->in_group('editusers') || $user->in_group('gentoo-dev') - || ThrowUserError('auth_failure', {action => 'access', object => 'administrative_pages'}); + || ThrowUserError('auth_failure', + {action => 'access', object => 'administrative_pages'}); -my $query = 'SELECT DISTINCT userid, login_name, realname, disabledtext, disable_mail ' . - 'FROM profiles '. - 'WHERE LENGTH(profiles.disabledtext) > 0'; -$vars->{'users'} = $dbh->selectall_arrayref($query, { Slice => {} }); +my $query + = 'SELECT DISTINCT userid, login_name, realname, disabledtext, disable_mail ' + . 'FROM profiles ' + . 'WHERE LENGTH(profiles.disabledtext) > 0'; +$vars->{'users'} = $dbh->selectall_arrayref($query, {Slice => {}}); #use Data::Dumper; #print Dumper($vars); foreach my $user (@{$vars->{'users'}}) { - next if($user->{'realname'} =~ m/\(RETIRED\)$/ and $user->{'disabledtext'} =~ m/retired/i); + next + if ($user->{'realname'} =~ m/\(RETIRED\)$/ + and $user->{'disabledtext'} =~ m/retired/i); - $user->{'disabledtext'} =~ s/\n/<br>/g; + $user->{'disabledtext'} =~ s/\n/<br>/g; - # Add bug links - $user->{'disabledtext'} =~ s/(bug (\d+(#c\d+)?))/<a href="\/$2">$1<\/a>/g; + # Add bug links + $user->{'disabledtext'} =~ s/(bug (\d+(#c\d+)?))/<a href="\/$2">$1<\/a>/g; - printf("Login=<a href=\"/editusers.cgi?action=edit&userid=%i\">%s</a><br>", $user->{'userid'}, $user->{'login_name'}); - printf("Real Name=%s<br>", $user->{'realname'}); - printf("Bugmail Disabled: %s<br>", $user->{'disable_mail'} eq 1 ? "Yes" : "No"); - printf("Disabled Text=%s<br><br>", $user->{'disabledtext'}); + printf("Login=<a href=\"/editusers.cgi?action=edit&userid=%i\">%s</a><br>", + $user->{'userid'}, $user->{'login_name'}); + printf("Real Name=%s<br>", $user->{'realname'}); + printf("Bugmail Disabled: %s<br>", $user->{'disable_mail'} eq 1 ? "Yes" : "No"); + printf("Disabled Text=%s<br><br>", $user->{'disabledtext'}); } |