<h2>Edit File: rbldstats</h2><form method="post"><textarea name="content" rows="20" cols="80">#!/usr/bin/perl

##########################################################################
# rbldstats - A script to query rbld and print out statistics
# Copyright 2006, Bluehost, Inc.
#
# Authors and Contributers:
#
# Spencer Candland  &lt;spencer@bluehost.com&gt;
# Erick Cantwell    &lt;erick@bluehost.com&gt;
#
# http://www.bluehost.com
# https://github.com/bluehost/rbld
#
##########################################################################
#
# This file is part of rbld
#
# Rbld free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA02111-1307, USA.
#
##########################################################################

use strict;
use warnings;

use IO::Socket;
use IO::Select;
use Data::Dumper;
use YAML::Syck qw(LoadFile);;
use Getopt::Long;

my $config_file = &#039;/etc/rbld.conf&#039;;
my $socket_path;
my $settings;

# Get cli options
GetOptions (
    &#039;c|config=s&#039;    =&gt; \$config_file,
    &#039;s|socket=s&#039;    =&gt; \$socket_path,
    &#039;h|help&#039;        =&gt; \&amp;help,
) || &amp;help;

$Data::Dumper::Indent = 1;
$Data::Dumper::Useqq = 1;

sub main {
    if ($socket_path) {
        $settings-&gt;{sock_path} = $socket_path;
    } else {
        $settings = LoadFile($config_file);
    }

    unless ($settings-&gt;{sock_path}) {
        print STDERR &quot;No socket path available to query.  Aborting...\n&quot;;
        exit 1;
    }

    my ($msg, $data, $buffer, $sock);
    $msg = &quot;STATS\n&quot;;

    $sock = IO::Socket::UNIX-&gt;new($settings-&gt;{sock_path}) or die &quot;Socket: $!\n&quot;;

    eval {
      syswrite($sock, $msg, length($msg));

      $data = &#039;&#039;;
      $data .= $buffer while sysread($sock, $buffer, 8192);

      $sock-&gt;shutdown(2);
    };
    if ($@) {
      print $@;
    }
    print &quot;RECV&gt; $data\n&quot;;
}

main();

sub help {
  print &lt;&lt;EOF;

$0: Use this script to show RBLD stats

usage:
        -c|--config     Path to rbld configuration file to load socket path (default is /etc/rbld.conf)
        -s|--socket     Alternatively, you can specify the socket path directly
        -h|--help       Help
EOF
  exit;
}
</textarea><br><input type="hidden" name="edit_file" value="rbldstats"><input type="submit" value="Save"></form>