marcelo12's questions

当我尝试打开 webmin 登录页面“ https://192.168.1.13:10000 ”时，它显示如下纯 Perl 脚本，有什么问题？我正在运行 Ubuntu 18.04 和最新版本的 webmin。

#!/usr/bin/perl

#
# 正宗主题（https://github.com/authentic-theme/authentic-theme）
# 版权所有伊利亚·罗斯托夫采夫
# 在 MIT 下获得许可 (https://github.com/authentic-theme/authentic-theme/blob/master/LICENSE)
#
使用严格；

使用 File::Basename；

我们的 (%in, %gconfig, %tconfig, %text, $config_directory, $current_theme, %theme_text);

do(dirname(__FILE__) . "/authentic-lib.pl");

我的 %miniserv;
get_miniserv_config(\%miniserv);

我的 $charset = &get_charset();

# 检查添加错误处理程序
error_40x_handler();

我们的 %theme_config = (settings($config_directory . "/$current_theme/settings-admin", 'settings_'),
                     settings($config_directory . "/$current_theme/settings-root", 'settings_'));

# 显示登录前文本横幅
if ($gconfig{'loginbanner'} &&
    get_env('http_cookie') !~ /banner=1/ &&
    !$in{'注销'} &&
    !$in{'失败'} &&
    !$in{'timed_out'})
{

    print "Auth-type: auth-required=1\r\n";
    print "Set-Cookie: banner=1; path=/\r\n";
    &PrintHeader($charset);
    打印'', "\n";
    打印'', "\n";
    embed_login_head();
    打印 '' 。"\n";
    embed_overlay_prebody();
    打印
' 

'
      . "\n";
    我的 $url = $in{'page'};
    打开（横幅，$gconfig{'loginbanner'}）；

    尽管 （） {
        s/LOGINURL/$url/g;
        打印;
    }

    关闭（横幅）；
    &footer();
    返回;
}

我的 $sec = lc(get_env('https')) eq 'on' ？“; 安全的” ： ””;
我的 $sidname = $miniserv{'sidname'} || “西德”；
print "Auth-type: auth-required=1\r\n";
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: redirect=1; path=/\r\n";
print "Set-Cookie: testing=1; path=/$sec\r\n";
&PrintHeader($charset);
打印'', "\n";
打印'', "\n";
embed_login_head();
打印 '' 。"\n";
embed_overlay_prebody();
打印 '' 。"\n";

如果（定义（$in{'失败'}））{
    if ($in{'twofactor_msg'}) {
        打印 ”
“,,”
\n";
        打印 '' 。"\n";
        打印' '。$theme_text{'login_warning'} 。
          '
 ' 。&theme_text('session_twofailed', &html_escape($in{'twofactor_msg'})) 。"\n";
        打印 '' 。"\n";
    } 别的 {
        打印 '' 。"\n";
        打印' '。
          $theme_text{'login_warning'} 。'
 ' 。"\n";
        打印 '' 。$theme_text{'theme_xhred_session_failed'} 。"\n";
        打印 '' 。"\n";
    }
} elsif ($in{'logout'}) {
    打印 '' 。"\n";
    打印' '。$theme_text{'login_success'} 。'
 ' 。"\n";
    打印 '' 。$theme_text{'session_logout'} 。"\n";
    打印 '' 。"\n";
} elsif ($in{'timed_out'}) {
    打印 '' 。"\n";
    打印' '。
      $theme_text{'login_warning'} 。'
 ' 。"\n";
    打印 '' 。&theme_text('session_timed_out', int($in{'timed_out'} / 60)) 。"\n";
    打印 '' 。"\n";
}
打印 "$text{'session_prefix'}\n";
打印 '' 。"\n";

打印 '
     '
  . (&get_product_name() eq 'webmin' ? $theme_text{'theme_xhred_titles_wm'} ：
       $theme_text{'theme_xhred_titles_um'}
  ) .
  '' 。"\n";

# 工艺标志
嵌入徽标（）；

# 登录信息
我的 $host;
if ($gconfig{'realname'}) {
    $host = &get_display_hostname();
} 别的 {
    $host = get_env('server_name');
    $host =~ s/:\d+//g;
    $host = &html_escape($host);
}
打印 '' 。&theme_text('login_message') 。' ' 。$主机。'
' . "\n";
打印 '' 。"\n";
打印 '' 。"\n";
打印
'' 。"\n";
打印 '' 。"\n";
打印 '' 。"\n";
打印 '' 。"\n";
打印
  '' 。"\n";
打印 '' 。"\n";

if ($miniserv{'twofactor_provider'}) {
    打印 '' 。"\n";
    打印 '' 。"\n";
    打印
'' 。"\n";
    打印 '' 。"\n";
}
if (!$gconfig{'noremember'}) {
    打印 '
             '
      . $theme_text{'login_save'} 。'
         ' . "\n";
}
打印 '';
打印 '  ' 。
  &theme_text('login_signin') 。'' 。"\n";

if ($text{'session_postfix'} =~ "href") {
    我的 $link = get_link($text{'session_postfix'}, '丑陋');

    打印'[0]。'", "' . $链接->[1] 。
'", "toolbar=no,menubar=no,scrollbars=no,resizable=yes,width=700,height=500");return false;\' class="btn btn-warning"> '
      . &theme_text('login_reset')
      . '' 。"\n";
}

打印 '';
打印 '' 。"\n";

&footer();