view release on metacpan or  search on metacpan

bin/bgpmon_analytics_db_report  view on Meta::CPAN

use strict;
use warnings;
use Getopt::Long;


our $VERSION = '1.07';

#Variables to hold the database name and login name
#The default value for both values is just the user's name
my $dbname = getlogin || getpwuid($<);
my $dblogin = getlogin || getpwuid($<);
my $ret = GetOptions(	"dbname=s" => \$dbname,
			"dblogin=s" => \$dblogin);

`psql -c "SELECT PREFIXES,VANTAGES,MOST_ACTIVE FROM (SELECT COUNT(pref) FROM pph.prefixes) AS PREFIXES, (SELECT COUNT(DISTINCT(addr,collector)) FROM pph.peers) AS VANTAGES, (SELECT pph.find_most_active_prefix()) AS MOST_ACTIVE;" -d $dbname -U $dblogi...

1;