|
Link Here
|
| 3 |
|
3 |
|
| 4 |
use lib qw(. lib); |
4 |
use lib qw(. lib); |
| 5 |
|
5 |
|
|
|
6 |
use URI::Escape; |
| 7 |
|
| 6 |
use Bugzilla; |
8 |
use Bugzilla; |
| 7 |
use Bugzilla::Constants; |
9 |
use Bugzilla::Constants; |
| 8 |
use Bugzilla::Error; |
10 |
use Bugzilla::Error; |
|
Link Here
|
| 59 |
|
61 |
|
| 60 |
printf "<h3>Arch Testers that are not \@gentoo.org</h3>\n"; |
62 |
printf "<h3>Arch Testers that are not \@gentoo.org</h3>\n"; |
| 61 |
foreach my $row (@$users) { |
63 |
foreach my $row (@$users) { |
| 62 |
printf "<a href='%scustom_userhistory.cgi?matchstr=%s'>%s</a><br />\n", correct_urlbase(), $row->{'login_name'}, $row->{'login_name'}; |
64 |
printf "<a href='%scustom_userhistory.cgi?matchstr=%s'>%s</a><br />\n", correct_urlbase(), uri_escape($row->{'login_name'}), $row->{'login_name'}; |
| 63 |
} |
65 |
} |
| 64 |
|
66 |
|
| 65 |
$users = $dbh->selectall_arrayref( |
67 |
$users = $dbh->selectall_arrayref( |
|
Link Here
|
| 69 |
); |
71 |
); |
| 70 |
printf "<h3>Users with Other Groups</h3>\n"; |
72 |
printf "<h3>Users with Other Groups</h3>\n"; |
| 71 |
foreach my $row (@$users) { |
73 |
foreach my $row (@$users) { |
| 72 |
printf "<a href='%scustom_userhistory.cgi?matchstr=%s'>%s</a>: %s<br />\n", correct_urlbase(), $row->{'login_name'}, $row->{'login_name'}, $row->{'group_name'}; |
74 |
printf "<a href='%scustom_userhistory.cgi?matchstr=%s'>%s</a>: %s<br />\n", correct_urlbase(), uri_escape($row->{'login_name'}), $row->{'login_name'}, $row->{'group_name'}; |
| 73 |
} |
75 |
} |
| 74 |
- |
|
|
