1 files changed, 13 insertions, 17 deletions

diff --git a/custom_extraperms.cgi b/custom_extraperms.cgi
index 01ffcbe76..e064ecbf3 100755
--- a/custom_extraperms.cgi
+++ b/custom_extraperms.cgi
@@ -8,18 +8,19 @@ use Bugzilla::Constants;
 use Bugzilla::Error;
 use Bugzilla::Util;
 
-my $cgi       = Bugzilla->cgi;
+my $cgi  = Bugzilla->cgi;
 my $user = Bugzilla->login(LOGIN_REQUIRED);
-my $dbh       = Bugzilla->switch_to_shadow_db();
+my $dbh  = Bugzilla->switch_to_shadow_db();
 
 my @bindValues;
 
-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 $sql_archtesters = "
 SELECT 
@@ -51,23 +52,18 @@ GROUP BY login_name
 ORDER BY login_name;";
 
 my $users;
-$users = $dbh->selectall_arrayref(
-    $sql_archtesters,
-    { Slice => {} },
-	@bindValues
-);
+$users = $dbh->selectall_arrayref($sql_archtesters, {Slice => {}}, @bindValues);
 
 printf "<h3>Arch Testers that are not \@gentoo.org</h3>\n";
 foreach my $row (@$users) {
-	printf "<a href='%scustom_userhistory.cgi?matchstr=%s'>%s</a><br />\n", correct_urlbase(), $row->{'login_name'}, $row->{'login_name'};
+  printf "<a href='%scustom_userhistory.cgi?matchstr=%s'>%s</a><br />\n",
+    correct_urlbase(), $row->{'login_name'}, $row->{'login_name'};
 }
 
-$users = $dbh->selectall_arrayref(
-    $sql_otherperm,
-    { Slice => {} },
-	@bindValues
-);
+$users = $dbh->selectall_arrayref($sql_otherperm, {Slice => {}}, @bindValues);
 printf "<h3>Users with Other Groups</h3>\n";
 foreach my $row (@$users) {
-	printf "<a href='%scustom_userhistory.cgi?matchstr=%s'>%s</a>: %s<br />\n", correct_urlbase(), $row->{'login_name'}, $row->{'login_name'}, $row->{'group_name'};
+  printf "<a href='%scustom_userhistory.cgi?matchstr=%s'>%s</a>: %s<br />\n",
+    correct_urlbase(), $row->{'login_name'}, $row->{'login_name'},
+    $row->{'group_name'};
 }