[%# Frontend for managing/setting/clearing sysbans.
#
# Authors:
# Juliet Kemp -- original page
# Jen Griffin -- TT conversion
#
# Copyright (c) 2009-2020 by Dreamwidth Studios, LLC.
#
# This program is free software; you may redistribute it and/or modify it under
# the same terms as Perl itself. For a copy of the license, please reference
# 'perldoc perlartistic' or 'perldoc perlgpl'.
%]
[%- sections.title = '.title' | ml -%]
[%- CALL dw.active_resource_group( "foundation" ) -%]
[%- sections.head = BLOCK %]
[% END %]
[%- IF action == 'queryone';
banquery = formdata.queryvalue | html;
IF sysbans.defined && sysbans.size -%]
[% '.header.queryone' | ml( banquery = banquery ) %]
| [% '.col.type' | ml %] |
[% '.col.exp' | ml %] |
[% '.col.note' | ml %] |
[%- FOREACH bantype IN sysbans.keys.sort -%]
[%- FOREACH banrow IN sysbans.$bantype -%]
| [% bantype %] |
[% localtime( banrow.expire ) %] |
[% banrow.note | html %] |
[%- END -%]
[%- END -%]
[%- ELSIF banquery -%]
[% '.txt.nomatch' | ml( banquery = banquery ) %]
[%- END -%]
[%- END -%]