perl - 将自定义登录页面添加到 awstats

Question

我正在尝试设置一个与 awstats 一起使用的登录页面，以便内容只能由经过身份验证的用户查看。

理想情况下，我想创建自己的登录页面，如果用户在访问统计页面时未登录，他们将被重定向到登录页面。（目前没有认证）

问题是我不知道如何实现这一点。我试过用谷歌搜索，但我能找到的唯一解决方案是使用 .htaccess （如果我不需要，我宁愿在这种情况下不使用它）

有没有人实现过类似的东西？

Answer 1

.htaccess 是这项工作的正确工具，但如果你坚持，古古古道

#!/usr/bin/perl --
use strict;
use warnings;
use CGI;
Main( @ARGV );
exit( 0 );
sub  Main {
    my ( $q ) = CGI->new;
    if( $q->param('password') eq 'secret' ){
        print ShowAWSTATS($q);
    } else {
        print ShowLoginForm($q);
    }
}

其中 ShowLoginForm() 打印内容标题$q->header以及登录表单的 html，而 ShowAWSTATS 打印内容标题，例如 awstats.pl 提供的一些 html

就像 Len Jaffe 所说，还有很多事情要做，所以你想使用 .htaccess （使用 .htaccess 需要 3 分钟或使用其他任何东西需要几个小时）