The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<%ARGS>
$Plugin => ''
</%ARGS>
<& PluginHelp, %ARGS, Plugin => 'Base' &>
<div class="shredder-form">
<span>Select plugin: </span>
<select name="Plugin" onchange="showShredderPluginTab(this.value);">
<option value="">(no value)</option>
% foreach my $p( keys %plugins ) {
<option value="<% $p %>" <% ($p eq $Plugin)? 'selected': '' %>><% $p %></option>
% }
</select>
</div>
<div id="shredder-plugin-tabs">
% foreach my $p( keys %plugins ) {
<div id="shredder-plugin-<% $p %>-tab" class="<% ($p ne $Plugin)? 'hidden': '' %>">
<& PluginHelp, %ARGS, Plugin => $p &>
<& PluginArguments, %ARGS, Plugin => $p &>
</div>
% }
</div>
<%INIT>
use RTx::Shredder::Plugin;
my $plugin_obj = new RTx::Shredder::Plugin;
my %plugins = $plugin_obj->List;
delete $plugins{'Base'};
</%INIT>