aboutsummaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org>2020-03-04 07:20:21 +0000
committerSergey Poznyakoff <gray@gnu.org>2020-03-04 07:20:21 +0000
commit78fb326be62816fa0a0eeda0d62532cf0eb6e734 (patch)
tree46486f9c4731c9c4c775815617812d8c52bcad53 /lib
parent9ce221b58ff8e5df3707cdf7d2272600da25a303 (diff)
downloadmangemanche-78fb326be62816fa0a0eeda0d62532cf0eb6e734.tar.gz
mangemanche-78fb326be62816fa0a0eeda0d62532cf0eb6e734.tar.bz2
Add Perl build infrastructure
Diffstat (limited to 'lib')
-rw-r--r--lib/App/Mangemanche.pm10
-rw-r--r--lib/App/Mangemanche/Command/dbload.pm2
-rw-r--r--lib/App/Mangemanche/Command/ident.pm2
-rw-r--r--lib/App/Mangemanche/Command/inspect.pm2
-rw-r--r--lib/App/Mangemanche/Command/ipadd.pm2
-rw-r--r--lib/App/Mangemanche/Command/ipdel.pm2
-rw-r--r--lib/App/Mangemanche/Command/nagios.pm2
7 files changed, 16 insertions, 6 deletions
diff --git a/lib/App/Mangemanche.pm b/lib/App/Mangemanche.pm
index 2bcbc44..4d43796 100644
--- a/lib/App/Mangemanche.pm
+++ b/lib/App/Mangemanche.pm
@@ -10,12 +10,21 @@ use App::Mangemanche::Command ':exit_codes';
use File::Basename;
our $VERSION = '0.4.90';
my $DEFAULT_URL = 'http://localhost:8080';
+my $LICENSE = <<'EOT'
+Copyright (C) 2020 Sergey Poznyakoff
+
+License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>
+This is free software: you are free to change and redistribute it.
+There is NO WARRANTY, to the extent permitted by law.
+EOT
+;
+
sub new {
my $class = shift;
my $config_file;
my $url;
my $config = {};
@@ -35,12 +44,13 @@ sub new {
pod2usage(-exitstatus => EX_OK,
-input => pod_where({-inc => 1}, $class),
-verbose => 0)
},
'version' => sub {
print "$0 version $VERSION\n";
+ print $LICENSE,"\n";
exit(EX_OK);
},
'config|c=s' => \$config_file,
'url|u=s' => \$url
) or exit(EX_USAGE);
diff --git a/lib/App/Mangemanche/Command/dbload.pm b/lib/App/Mangemanche/Command/dbload.pm
index 90188c8..06219a8 100644
--- a/lib/App/Mangemanche/Command/dbload.pm
+++ b/lib/App/Mangemanche/Command/dbload.pm
@@ -93,13 +93,13 @@ sub run {
=head1 NAME
dbload - Load IP addresses from database into Ping903
=head1 SYNOPSIS
-B<dbload>
+B<mangemanche dbload>
[B<-D> I<DRIVER>]
[B<-P> I<DBPORT>]
[B<-c> I<COLUMN>]
[B<-d> I<DBNAME>]
[B<-h> I<DBHOST>]
[B<-p> I<DBPASS>]
diff --git a/lib/App/Mangemanche/Command/ident.pm b/lib/App/Mangemanche/Command/ident.pm
index af86d83..f3c904a 100644
--- a/lib/App/Mangemanche/Command/ident.pm
+++ b/lib/App/Mangemanche/Command/ident.pm
@@ -33,13 +33,13 @@ sub run {
=head1 NAME
ident - display ping903 server identification
=head1 SYNOPSIS
-B<ident>
+B<mangemanche ident>
[I<PARAM>]
=head1 DESCRIPTION
Queries the running instance of B<ping903> about identification parameters
and prints them on screen. The identification parameters are: package name,
diff --git a/lib/App/Mangemanche/Command/inspect.pm b/lib/App/Mangemanche/Command/inspect.pm
index 8ad4221..24b8df9 100644
--- a/lib/App/Mangemanche/Command/inspect.pm
+++ b/lib/App/Mangemanche/Command/inspect.pm
@@ -33,13 +33,13 @@ sub run {
}
1;
=head1 NAME
-inspect - inspect ping903 server configuration
+mangemanche inspect - inspect ping903 server configuration
=head1 SYNOPSIS
B<inspect>
[I<PARAM>]
diff --git a/lib/App/Mangemanche/Command/ipadd.pm b/lib/App/Mangemanche/Command/ipadd.pm
index 7a68d82..9ad44d5 100644
--- a/lib/App/Mangemanche/Command/ipadd.pm
+++ b/lib/App/Mangemanche/Command/ipadd.pm
@@ -18,13 +18,13 @@ sub run {
=head1 NAME
ipadd - adds a single IP to the ping903 ip list
=head1 SYNOPSIS
-B<ipadd> I<IP>
+B<mangemanche ipadd> I<IP>
=head1 DESCRIPTION
Adds I<IP> to the mutable IP list of the running B<ping903> daemon.
=head1 OPTIONS
diff --git a/lib/App/Mangemanche/Command/ipdel.pm b/lib/App/Mangemanche/Command/ipdel.pm
index 0671973..79af276 100644
--- a/lib/App/Mangemanche/Command/ipdel.pm
+++ b/lib/App/Mangemanche/Command/ipdel.pm
@@ -17,13 +17,13 @@ sub run {
=head1 NAME
ipdel - deletes a single IP from the ping903 mutable ip list
=head1 SYNOPSIS
-B<ipdel> I<IP>
+B<mangemanche ipdel> I<IP>
=head1 DESCRIPTION
Deletes I<IP> from the mutable IP list of the running B<ping903> daemon.
=head1 OPTIONS
diff --git a/lib/App/Mangemanche/Command/nagios.pm b/lib/App/Mangemanche/Command/nagios.pm
index fc21a37..d3ad347 100644
--- a/lib/App/Mangemanche/Command/nagios.pm
+++ b/lib/App/Mangemanche/Command/nagios.pm
@@ -62,13 +62,13 @@ sub check_command {
=head1 NAME
nagios - extract monitored IP addresses from the Nagios configuration
=head1 SYNOPSIS
-B<nagios>
+B<mangemanche nagios>
[B<-c> I<FILE>]
[B<-p> I<PROG>]
[B<--config=>I<FILE>]
[B<--progname=>I<PROG>]
=head1 DESCRIPTION

Return to:

Send suggestions and report system problems to the System administrator.