Command line version of CSF's Server Security Check feature

servercheck.pl

#!/usr/bin/perl
###############################################################################
# Copyright 2006-2014, Way to the Web Limited
# URL: http://www.configserver.com
# Email: [email protected]
###############################################################################
# start main
#use strict;
use lib '/usr/local/csf/lib';
use Fcntl qw(:DEFAULT :flock);
use File::Basename;
use Net::CIDR::Lite;
use IPC::Open3;
use ConfigServer::Config;
use ConfigServer::CheckIP;
use ConfigServer::Ports;
use ConfigServer::URLGet;
use ConfigServer::Sanity;
use ConfigServer::ServerCheck;
use ConfigServer::ServerStats;
use HTML::Strip;

umask(0177);
my $hs = HTML::Strip->new();
my $clean_text = $hs->parse( ConfigServer::ServerCheck::report($FORM{verbose}) );
$hs->eof;
$clean_text =~ s/ \n//g;
$clean_text =~ s/ //g;
$clean_text =~ s/\n\n\n/\n\n/g;
print $clean_text;