mirror of
https://github.com/webmin/webmin.git
synced 2026-03-21 01:00:25 +00:00
41 lines
1.1 KiB
Perl
Executable File
41 lines
1.1 KiB
Perl
Executable File
#!/usr/local/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", $in{'user'});
|
|
print &ui_table_start($text{'forgot_header'}, undef, 2);
|
|
|
|
print &ui_table_row($text{'forgot_user'}, "<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'}));
|
|
|
|
if ($u->{'name'} eq 'root') {
|
|
print &ui_table_row($text{'forgot_unix'},
|
|
&ui_opt_textbox("unix", undef, 20, $text{'forgot_unix_def'}));
|
|
}
|
|
|
|
print &ui_table_end();
|
|
print &ui_form_end([ [ undef, $text{'forgot_send'} ] ]);
|
|
|
|
&ui_print_footer("", $text{'index_return'});
|