#!/usr/bin/perl
# Show form for force sending a password reset link

use strict;
use warnings;
no warnings 'redefine';
no warnings 'uninitialized';
require './acl-lib.pl';
our (%in, %text);
&foreign_require("webmin");
&error_setup($text{'forgot_err'});
&ReadParse();
&can_edit_user($in{'user'}) || &error($text{'edit_euser'});
my $u = &get_user($in{'user'});
$u || &error($text{'edit_egone'});
&ui_print_header(undef, $text{'forgot_title'}, "");

print $text{'forgot_desc'},"<p>\n";

print &ui_form_start("forgot_send.cgi", "post");
print &ui_hidden("user_acc", $u->{'name'});
print &ui_table_start($text{'forgot_header'}, undef, 2);

print &ui_table_row($text{'forgot_user'},
	$u->{'name'} eq "root"
	  ? &ui_textbox("user", $u->{'name'}, 12)
	  : "<tt>".$u->{'name'}."</tt>");

print &ui_table_row($text{'forgot_email'},
	&ui_opt_textbox("email", $u->{'email'}, 60,
			$text{'forgot_email_def'}."<br>\n",
			$text{'forgot_email_sel'}));

print &ui_table_end();
print &ui_form_end([ [ undef, $text{'forgot_send'} ] ]);

&ui_print_footer("", $text{'index_return'});