Edit: /usr/share/usermin/session_login.cgi (5230B)
#!/usr/bin/perl
# session_login.cgi
# Display the login form used in session login mode
BEGIN { push(@INC, "."); };
use WebminCore;
$pragma_no_cache = 1;
#$ENV{'MINISERV_INTERNAL'} || die "Can only be called by miniserv.pl";
&init_config();
&ReadParse(undef, undef, undef, 2);
# Redirect to the forgot page that this theme supports if generate in SPA theme
if ($gconfig{'forgot_pass'} && $ENV{'REQUEST_URI'}) {
my ($forgot_id) = $ENV{'REQUEST_URI'} =~ /[?&]forgot=([0-9a-fA-F]{32})/;
if ($forgot_id) {
&redirect("@{[&get_webprefix()]}/forgot.cgi?id=$forgot_id");
return;
}
}
# Redirect to forgot form if return param is set from SPA theme
if ($gconfig{'forgot_pass'} && $ENV{'REQUEST_URI'} &&
$ENV{'REQUEST_URI'} =~ /[?&]return=(http?\S+)/) {
&redirect("@{[&get_webprefix()]}/forgot_form.cgi");
return;
}
# If accessed via HTTPS, make this an SSL-only cookie
&get_miniserv_config(\%miniserv);
$sec = uc($ENV{'HTTPS'}) eq 'ON' ? "; secure" : "";
if (!$miniserv{'no_httponly'}) {
$sec .= "; httpOnly";
}
# Login banner
if ($gconfig{'loginbanner'} && $ENV{'HTTP_COOKIE'} !~ /banner=1/ &&
!$in{'logout'} && !$in{'failed'} && !$in{'timed_out'}) {
# Show pre-login HTML page
print "Set-Cookie: banner=1; path=/".$sec."\r\n";
&PrintHeader();
$url = $in{'page'};
$url = &filter_javascript($url);
open(BANNER, "<$gconfig{'loginbanner'}");
while(
) {
s/LOGINURL/$url/g;
print;
}
close(BANNER);
return;
}
$sidname = $miniserv{'sidname'} || "sid";
print "Set-Cookie: banner=0; path=/".$sec."\r\n" if ($gconfig{'loginbanner'});
print "Set-Cookie: $sidname=x; path=/".$sec."\r\n" if ($in{'logout'});
print "Set-Cookie: testing=1; path=/".$sec."\r\n";
$title = $text{'session_header'};
if ($gconfig{'showhost'}) {
$title = &get_display_hostname()." : ".$title;
}
&ui_print_unbuffered_header(
undef, undef, undef, undef, undef, 1, 1, undef,
"$title",
"onLoad='document.forms[0].user.focus()'");
if ($tconfig{'inframe'}) {
# Framed themes lose original page
$in{'page'} = "/";
}
print "\n";
if (&miniserv_using_default_cert()) {
print &ui_alert_box(&text('defcert_error',
ucfirst(&get_product_name()),
($ENV{'MINISERV_KEYFILE'} || $miniserv{'keyfile'})), 'warn');
}
if (defined($in{'failed'})) {
if ($in{'twofactor_msg'}) {
print "",&text('session_twofailed',
&html_escape($in{'twofactor_msg'})),"
\n";
}
else {
print "$text{'session_failed'}
\n";
}
}
elsif ($in{'logout'}) {
print "$text{'session_logout'}
\n";
}
elsif ($in{'timed_out'}) {
print "",&text('session_timed_out', int($in{'timed_out'}/60)),"
\n";
}
print "$text{'session_prefix'}\n";
print &ui_form_start("@{[&get_webprefix()]}/session_login.cgi", "post");
print &ui_hidden("page", $in{'page'});
my $not_secure;
if ($ENV{'HTTPS'} ne 'ON' && $miniserv{'ssl'}) {
my $link = ui_tag('a', "⚠ $text{'login_notsecure'}",
{ 'href' => "javascript:void(0);",
'class' => 'inherit-color',
'onclick' => "window.location.href = ".
"window.location.href.replace(/^http:/, 'https:'); return false;",
});
$not_secure = ui_tag('span', $link,
{ class => 'not-secure', title => $text{'login_notsecure_desc'} });
}
print &ui_table_start($text{'session_header'} . $not_secure,
"width=40% class='loginform'", 2);
# Login message
if ($gconfig{'realname'}) {
$host = &get_display_hostname();
}
else {
$host = $ENV{'HTTP_HOST'};
$host =~ s/:\d+//g;
$host = &html_escape($host);
}
print &ui_table_row(undef,
&text($gconfig{'nohostname'} ? 'session_mesg2' : 'session_mesg',
"$host"), 2, [ "align=center", "align=center" ]);
# Username and password
$tags = $gconfig{'noremember'} ? "autocomplete=off" : "";
print &ui_table_row($text{'session_user'},
&ui_textbox("user", $in{'failed'}, 20, 0, undef, $tags));
print &ui_table_row($text{'session_pass'},
&ui_password("pass", undef, 20, 0, undef, $tags));
# Two-factor token, for users that have it
if ($miniserv{'twofactor_provider'}) {
print &ui_table_row($text{'session_twofactor'},
&ui_textbox("twofactor", undef, 20, 0, undef,
"autocomplete='one-time-code'"));
}
# Remember session cookie?
if (!$gconfig{'noremember'}) {
print &ui_table_row(" ",
&ui_checkbox("save", 1, $text{'session_save'}, 0));
}
print &ui_table_end(),"\n";
print &ui_submit($text{'session_login'});
print &ui_reset($text{'session_clear'});
print &ui_form_end();
if ($gconfig{'forgot_pass'}) {
# Show forgotten password link
my $link = &get_webmin_base_url();
my $param = '';
if ($link) {
my $src_link = ($ENV{'HTTPS'} eq 'ON'
? 'https'
: 'http').'://'.$ENV{'HTTP_HOST'};
$src_link .= ($gconfig{'webprefix'} || '')."/";
$param = "?return=".&urlize($src_link);
}
print &ui_form_start($link."forgot_form.cgi".$param, "post");
print &ui_hidden("failed", $in{'failed'});
print &ui_form_end([ [ undef, $text{'session_forgot'} ] ]);
}
print "\n";
print "$text{'session_postfix'}\n";
# Output frame-detection Javascript, if theme uses frames
if ($tconfig{'inframe'}) {
print <
if (window != window.top) {
window.top.location = window.location;
}
EOF
}
&ui_print_footer();