#!/usr/bin/perl -wT
# List users who can access a bug
# License: Dual-license GPL 3.0+ or MPL 1.1+
# Author(s): Andrey Krasilnikov, Vitaliy Filippov

use strict;

use lib qw(. lib);

use Bugzilla;
use Bugzilla::Constants;
use Bugzilla::Error;
use Bugzilla::User;
use Bugzilla::Util;
use Bugzilla::Bug;

viewlist();
exit;

sub viewlist
{
    my $template = Bugzilla->template;
    my $vars = {};

    my $user = Bugzilla->login();

    # Retrieve and validate parameters
    my $bug = Bugzilla::Bug->check(Bugzilla->input_params->{id});
    my $bugid = $bug->id;
    my $user_list = $bug->get_access_user_list();

    $vars->{user_list} = $user_list;
    $vars->{bug} = $bug;

    # Generate and return the UI (HTML page) from the appropriate template.
    $template->process("bug/checkaccess.html.tmpl", $vars)
        || ThrowTemplateError($template->error());
}