bin/check_web2.pl

   1 #! perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use v5.10.1;
   7
   8 use Getopt::Long;
   9
  10 use Params::Util qw(_ARRAY);
  11
  12 use WWW::Mechanize::Script::Util qw(:ALL);
  13 use WWW::Mechanize::Script;
  14
  15 my $VERSION = 0.001;
  16 my %opts;
  17 my @options = ( "file=s", "help|h", "usage|?" );
  18
  19 GetOptions( \%opts, @options ) or pod2usage(2);
  20
  21 defined( $opts{help} )
  22   and $opts{help}
  23   and pod2usage(
  24                  {
  25                    -verbose => 2,
  26                    -exitval => 0
  27                  }
  28                );
  29 defined( $opts{usage} ) and $opts{usage} and pod2usage(1);
  30 opt_required_all( \%opts, qw(file) );
  31
  32 my %cfg = load_config( \%opts );
  33 do
  34 {
  35     my %cfgvar = ( OPTS_FILE => $opts{file} );
  36     my $cfgkeys = join( "|", keys %cfgvar );
  37     $cfg{summary}->{target} =~ s/@($cfgkeys)[@]/$cfgvar{$1}/ge;
  38     $cfg{report}->{target}  =~ s/@($cfgkeys)[@]/$cfgvar{$1}/ge;
  39 } while (0);
  40
  41 my $wms = WWW::Mechanize::Script->new( \%cfg );
  42
  43 my @script_files = find_scripts( \%cfg, $opts{file} );
  44
  45 _ARRAY( $cfg{wtscript_extensions} )
  46   and Config::Any::WTScript->extensions( @{ $cfg{wtscript_extensions} } );
  47 my ( $code, @msgs ) = (0);
  48 eval {
  49     my @script;
  50     my $scripts = Config::Any->load_files(
  51                                            {
  52                                              files           => [@script_files],
  53                                              use_ext         => 1,
  54                                              flatten_to_hash => 1,
  55                                            }
  56                                          );
  57     foreach my $filename (@script_files)
  58     {
  59         defined( $scripts->{$filename} )
  60           or next;    # file not found or not parsable ...
  61                       # merge into default and previous loaded config ...
  62         push( @script, @{ $scripts->{$filename} } );
  63     }
  64     ( $code, @msgs ) = $wms->run_script(@script);
  65 };
  66 $@ and say("UNKNOWN - $@");
  67 exit( $@ ? 255 : $code );
  68
  69 __END__
  70
  71 =head1 NAME
  72
  73 check_web2 - allows checking of website according to configured specifications
  74
  75 =head1 DESCRIPTION
  76
  77 check_web2 is intended to be used to check web-sites according a configuration.
  78 The configuration covers the request configuration (including agent part) and
  79 check configuration to specify check parameters.
  80
  81 See C<WWW::Mechanize::Script> for details about the configuration options.
  82
  83 =head2 HISTORY
  84
  85 This script is created as successor of an check_web script of a nagios setup
  86 based on HTTP::WebCheck. This module isn't longer maintained, so decision
  87 was made to create a new environment simulating the old one basing on
  88 WWW::Mechanize.
  89
  90 =head1 SYNOPSIS
  91
  92   $ check_web2 --file domain1/site1.json
  93   $ check_web2 --file domain2/site1.yml
  94   # for compatibility
  95   $ check_web2 --file domain1/site2.wts
  96
  97 =head1 AUTHOR
  98
  99 Jens Rehsack, C<< <rehsack at cpan.org> >>
 100
 101 =head1 BUGS
 102
 103 Please report any bugs or feature requests to C<bug-www-mechanize-script at rt.cpan.org>, or through
 104 the web interface at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=WWW-Mechanize-Script>.  I will be notified, and then you'll
 105 automatically be notified of progress on your bug as I make changes.
 106
 107 =head1 SUPPORT
 108
 109 You can find documentation for this module with the perldoc command.
 110
 111     perldoc WWW:Mechanize::Script
 112
 113 You can also look for information at:
 114
 115 =over 4
 116
 117 =item * RT: CPAN's request tracker (report bugs here)
 118
 119 L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=WWW-Mechanize-Script>
 120
 121 =item * AnnoCPAN: Annotated CPAN documentation
 122
 123 L<http://annocpan.org/dist/WWW-Mechanize-Script>
 124
 125 =item * CPAN Ratings
 126
 127 L<http://cpanratings.perl.org/d/WWW-Mechanize-Script>
 128
 129 =item * Search CPAN
 130
 131 L<http://search.cpan.org/dist/WWW-Mechanize-Script/>
 132
 133 =back
 134
 135 =head1 ACKNOWLEDGEMENTS
 136
 137 =head1 LICENSE AND COPYRIGHT
 138
 139 Copyright 2012 Jens Rehsack.
 140
 141 This program is free software; you can redistribute it and/or modify it
 142 under the terms of either: the GNU General Public License as published
 143 by the Free Software Foundation; or the Artistic License.
 144
 145 See http://dev.perl.org/licenses/ for more information.
 146
 147 =cut