#!/usr/local/bin/perl # edit.cgi # Display a form for editing or creating a htpasswd user require './htpasswd-file-lib.pl'; &ReadParse(); if ($in{'new'}) { &ui_print_header(undef, $text{'edit_title1'}, ""); $user = { 'enabled' => 1 }; } else { &ui_print_header(undef, $text{'edit_title2'}, ""); if (!$access{'single'}) { $users = &list_users(); $user = $users->[$in{'idx'}]; } } print "
\n"; if ($access{'single'}) { &ui_print_footer("/", $text{'index'}); } else { &ui_print_footer("", $text{'index_return'}); }