diff --git a/lib/admin/Controller/bans.pm b/lib/admin/Controller/bans.pm new file mode 100644 index 0000000..e7ea4b5 --- /dev/null +++ b/lib/admin/Controller/bans.pm @@ -0,0 +1,62 @@ +package admin::Controller::bans; + +use strict; +use warnings; +use base 'Catalyst::Controller'; + +=head1 NAME + +admin::Controller::bans - Catalyst Controller + +=head1 DESCRIPTION + +Catalyst Controller. + +View banned IPs and Users + +=head1 METHODS + +=head2 index + +Edit sound sets. + +=cut + +sub base : Chained('/') PathPrefix CaptureArgs(0) {} + +sub users : Chained('base') PathPart('users') Args(0) { + my ($self, $c) = @_; + + $c->stash->{template} = 'tt/bans_users.tt'; + my $banned_users; + + return unless $c->model('Provisioning')->call_prov( + $c, + 'voip', + 'get_banned_users', + undef, # parameters + \$banned_users, + ); + + $c->stash->{banned_users} = $banned_users; +} + +sub ips : Chained('base') PathPart('ips') Args(0) { + my ($self, $c) = @_; + + $c->stash->{template} = 'tt/bans_ips.tt'; + my $banned_ips; + + return unless $c->model('Provisioning')->call_prov( + $c, + 'voip', + 'get_banned_ips', + undef, # parameters + \$banned_ips, + ); + + $c->stash->{banned_ips} = $banned_ips; +} + +# Ends, some people will rob their mothers for the ends ... +1 diff --git a/root/layout/menu b/root/layout/menu index 63b25e6..2fb9449 100644 --- a/root/layout/menu +++ b/root/layout/menu @@ -42,6 +42,7 @@ [% IF Catalyst.config.domain.audiofile_features %]