[%# 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 %]

[% dw.form_auth %] [% form.select( label = dw.ml( '.label.type' ), name = 'bantype', items = sysban_menu ); form.submit( name = 'addnew', value = dw.ml( '.btn.addnew' ) ); form.submit( name = 'query', value = dw.ml( '.btn.query' ) ) %]

[% dw.form_auth %]

[% form.textbox( label = dw.ml( '.label.queryone' ), value = '', name = 'queryvalue', id = 'queryvalue' ); form.submit( name = 'queryone', value = dw.ml( '.btn.queryone' ) ) %]

[% form.checkbox( label = dw.ml( '.label.expiredcheck' ), value = '1', name = 'expiredcheck', id = 'expiredcheck', selected = formdata.expiredcheck ) %]

[%- IF action == 'queryone'; banquery = formdata.queryvalue | html; IF sysbans.defined && sysbans.size -%]

[% '.header.queryone' | ml( banquery = banquery ) %]

[%- FOREACH bantype IN sysbans.keys.sort -%] [%- FOREACH banrow IN sysbans.$bantype -%] [%- END -%] [%- END -%]
[% '.col.type' | ml %] [% '.col.exp' | ml %] [% '.col.note' | ml %]
[% bantype %] [% localtime( banrow.expire ) %] [% banrow.note | html %]
[%- ELSIF banquery -%]

[% '.txt.nomatch' | ml( banquery = banquery ) %]

[%- END -%] [%- END -%]