0

我们公司管理着一百多台服务器，我们希望每天使用 http 向这些服务器“询问”一次或两次基本使用信息。使用 perl cgi 脚本可以轻松找到使用信息，我们希望有一个 http 接口来简化脚本的创建和测试。让 apache 甚至 nginx+fcgiwrap 每天处理一两个请求似乎有点过头了。我们正在考虑使用 openbsd-inetd（已安装在所有服务器中）来启动一个 Web 服务器，该服务器可以轻松地将请求传递给 perl cgi 脚本并退出。有什么好的选择可以做到这一点？

我已经设法perlscript.pl让它工作，但我不确定这是否是正确的方法。

#!/usr/bin/perl                                                                                                                                                                                           

use strict;
use warnings;

{
    package BackupWebServer;

    use HTTP::Server::Simple::CGI;
    use base qw(HTTP::Server::Simple::CGI);


    my %dispatch = (
        '/hello' => \&resp_hello
        );


    sub net_server { 'Net::Server::INET' }

    sub handle_request {

        my $self = shift;
        my $cgi  = shift;

        my $path = $cgi->path_info();
        my $handler = $dispatch{$path};

        if (ref($handler) eq "CODE") {
            print "HTTP/1.0 200 OK\r\n";
            $handler->($cgi);
        } else {
            print "HTTP/1.0 404 Not found\r\n";
            print $cgi->header,
            $cgi->start_html('Not found'),
            $cgi->h1('Not found'),
            $cgi->end_html;
        }

    }


    sub resp_hello {

        my $cgi  = shift;   # CGI.pm object                                                                                                                                                               
        return if !ref $cgi;

        my $who = $cgi->param('name');

        print $cgi->header,
        $cgi->start_html("Hello"),
        $cgi->h1("Hello $who!"),
        $cgi->end_html;

    }


}

BackupWebServer->new()->run(
    log_file => 'Sys::Syslog',
    user => 'root',
    group => 'root'
    );

有inetd.conf一个

8901    stream  tcp     nowait  root    /home/perl/scriptname.pl
4

1 回答 1

2

如果您不想在这些机器上添加守护程序，则必须使用现有的。我假设 SSH 已安装？我会用那个。可能是一个更安全的解决方案，无论如何都使用 HTTP。

于 2014-02-14T19:30:49.857 回答