custom_disabled.cgi


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46

#!/usr/bin/perl -wT
use strict;

use lib qw(. lib);

use Bugzilla;
use Bugzilla::Constants;

my $cgi  = Bugzilla->cgi;
my $vars = {};
my $user = Bugzilla->login(LOGIN_REQUIRED);
my $dbh  = Bugzilla->switch_to_shadow_db();

print $cgi->header(-type => 'text/html');

     $user->in_group('admin')
  || $user->in_group('editusers')
  || $user->in_group('gentoo-dev')
  || 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 => {}});

#use Data::Dumper;
#print Dumper($vars);

foreach my $user (@{$vars->{'users'}}) {
  next
    if ($user->{'realname'} =~ m/\(RETIRED\)$/
    and $user->{'disabledtext'} =~ m/retired/i);

  $user->{'disabledtext'} =~ s/\n/<br>/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'});
}