#!/usr/local/bin/perl require './usermin-lib.pl'; $access{'categories'} || &error($text{'acl_ecannot'}); &get_usermin_miniserv_config(\%miniserv); &read_file("$miniserv{'root'}/lang/en", \%utext); &read_file("$miniserv{'root'}/ulang/en", \%utext); &ui_print_header(undef, $text{'categories_title'}, undef); print qq( $text{'categories_desc'}
); &ui_print_footer("", $text{'index_return'});