Add custom_* scripts

1 files changed, 40 insertions, 0 deletions

diff --git a/custom_disabled.cgi b/custom_disabled.cgi
new file mode 100755
index 000000000..594aadee0
--- /dev/null
+++ b/custom_disabled.cgi
@@ -0,0 +1,40 @@
+#!/usr/bin/perl -wT
+use strict;
+
+use lib qw(. lib);
+
+use Bugzilla;
+use Bugzilla::Constants;
+
+my $cgi       = Bugzilla->cgi;
+my $vars      = {};
+my $dbh       = Bugzilla->switch_to_shadow_db();
+my $user = Bugzilla->login(LOGIN_REQUIRED);
+
+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 ' .
+			'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("Disabled Text=%s<br><br>", $user->{'disabledtext'});
+}