mirror of
https://github.com/webmin/webmin.git
synced 2026-01-14 03:11:35 +00:00
a027ad5dd6
* Note: Discussed here: https://github.com/webmin/webmin/pull/2553#issuecomment-3328436525
36 lines
1.1 KiB
Perl
Executable File
36 lines
1.1 KiB
Perl
Executable File
#!/usr/local/bin/perl
|
|
# Display the forgotten password form
|
|
|
|
BEGIN { push(@INC, "."); };
|
|
use WebminCore;
|
|
$no_acl_check++;
|
|
$trust_unknown_referers = 1;
|
|
&init_config();
|
|
&ReadParse();
|
|
&load_theme_library();
|
|
|
|
&theme_forgot_handler($0) if (defined(&theme_forgot_handler));
|
|
&error_setup($text{'forgot_err'});
|
|
$gconfig{'forgot_pass'} || &error($text{'forgot_ecannot'});
|
|
$remote_user && &error($text{'forgot_elogin'});
|
|
$ENV{'HTTPS'} eq 'ON' || $gconfig{'forgot_pass'} == 2 ||
|
|
&error($text{'forgot_essl'});
|
|
$ENV{'SSL_CN_CERT'} == 1 ||
|
|
&error(&text('forgot_esslhost',
|
|
&html_escape($ENV{'HTTP_HOST'} || $ENV{'SSL_CN'})))
|
|
if ($ENV{'HTTPS'} eq 'ON');
|
|
|
|
&ui_print_header(undef, $text{'forgot_title'}, "", undef, undef, 1, 1);
|
|
print &ui_alert_box("<b> ⚠ ".$text{'forgot_nossl_warn'}, 'warn')
|
|
if ($gconfig{'forgot_pass'} == 2 && $ENV{'HTTPS'} ne 'ON');
|
|
print "<center>\n";
|
|
print $text{'forgot_desc'},"<p>\n";
|
|
print &ui_form_start("forgot_send.cgi", "post");
|
|
print "<b>$text{'forgot_user'}</b>\n",
|
|
&ui_textbox("forgot", $in{'failed'}, 40),"<br>\n";
|
|
print &ui_form_end([ [ undef, $text{'forgot_go'} ] ]);
|
|
print "</center>\n";
|
|
|
|
&ui_print_footer();
|
|
|