#!/usr/local/bin/perl # edit_user.cgi # A form for adding or editing a MON user require './mon-lib.pl'; &ReadParse(); if ($in{'new'}) { &ui_print_header(undef, $text{'user_create'}, ""); } else { &ui_print_header(undef, $text{'user_edit'}, ""); @users = &list_users(); %user = %{$users[$in{'index'}]}; } print "
\n"; &ui_print_footer("list_users.cgi", $text{'users_return'}, "", $text{'index_return'});