#!/usr/local/bin/perl # list_users.cgi # Display MON users require './mon-lib.pl'; &ui_print_header(undef, $text{'users_title'}, ""); $conf = &get_mon_config(); $authtype = &find_value("authtype", $conf); if ($authtype ne 'userfile') { print "
",&text('users_etype', 'edit_global.cgi'),"
\n"; } else { @users = &list_users(); $uf = &mon_users_file(); if (@users) { print "
",&text('users_header', "$uf"), " | ||
|
\n"; } print "$text{'users_add'}
\n"; } &ui_print_footer("", $text{'index_return'});