#!/usr/local/bin/perl # edit_mods.cgi # Form for installing and removing usermin modules require './usermin-lib.pl'; $access{'umods'} || &error($text{'acl_ecannot'}); &ui_print_header(undef, $text{'mods_title'}, ""); # Display installation form print "$text{'mods_desc1'}
"; print "
"; print "
\n"; print "
\n"; # Display export form print &ui_hr(); print "$text{'mods_desc4'}\n";
print &ui_form_start("export_mod.cgi/module.wbm.gz");
print &ui_table_start($text{'mods_header4'}, undef, 2);
print &ui_table_row($text{'mods_exportmods'},
&ui_select("mod", undef,
[ map { [ $_->{'dir'}, $_->{'desc'} ] } @mlist ], 10, 1));
print &ui_table_row($text{'mods_exportto'},
&ui_radio("to", 0,
[ [ 0, $text{'mods_exportshow'}."
" ],
[ 1, &text('mods_exportfile',
&ui_textbox("file", undef, 40)) ] ]));
print &ui_table_end();
print &ui_form_end([ [ "ok", $text{'mods_exportok'} ] ]);
&ui_print_footer("", $text{'index_return'});