mirror of
https://github.com/webmin/webmin.git
synced 2025-07-20 16:48:46 +00:00
38 lines
1.0 KiB
Perl
Executable File
38 lines
1.0 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_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'});
|