website transaction monitor / simple web form SOLVED

[Richard Gross]

Here's the final result for my WWW::Mechanize perl script:
 
#!/usr/bin/perl -w
 
# Check Communigate Pro webmail for Nagios
 
use WWW::Mechanize;
use diagnostics;
 
use lib "/usr/local/nagios/libexec" ;
use utils qw($TIMEOUT %ERRORS &print_revision &support);
 
my $browser = WWW::Mechanize->new();
$browser->get(" http://webmail.vel.net/ <http://webmail.vel.net/> ");
 
$browser->form(1);
 
$browser->field("Username", "test\@vel.net");
$browser->field("Password", "test06");
$browser->click("login");
 
$browser->follow("here");
 
$pattern = "INBOX";
 
$_ = $browser->{content};
 
if ( /$pattern/ ) { 
        print "INBOX";
        exit $ERRORS{'OK'};
}
else
        {
        print ("ERROR: No response from webmail.vel.net\n");
        exit $ERRORS{'CRITICAL'};
        }
 
Hope this helps someone.  Thanks to Stanley for his input.
 
                                                                richg

-----Original Message-----
From: Richard Gross 
Sent: Saturday, February 08, 2003 10:10 PM
To: Stanley Hopcroft
Cc: nagios-users at lists.sourceforge.net
Subject: RE: [Nagios-users] website transaction monitor / simple web
form



Stanley, 

Thanks for your approach.  I elected to try WWW::Mechanize and got 
This far: 

#!/usr/bin/perl -w 

# Check Communigate Pro webmail for Nagios 

use WWW::Mechanize; 
use HTML::TokeParser; 
use diagnostics; 

my $browser = WWW::Mechanize->new(); 
$browser->get(" http://webmail.vel.net/ <http://webmail.vel.net/> "); 

$browser->form(1); 

$browser->field("Username", "test\@vel.net"); 
$browser->field("Password", "test06"); 
$browser->click("login"); 

$browser->follow("here"); 

$pattern = "INBOX"; 

$_ = $browser->{content}; 

if ( /$pattern/ ) { 
        print "INBOX"; 
        exit 0; 
} 
else 
        { 
        print "CRITICAL"; 
        exit -1; 
        } 

I wrote this for the purpose of seeing whether webmail was up or not.
It 
Was easy to monitor for SMTP and POP3.   I'd love to figure out SMTP
transaction to a POP3 box. Anyways... 

The above works for the way I have Communigate Pro setup.  I know
everything is hard coded and I'm not taking any ARGV things.  My limited
knowledge of Perl is preventing me on how to send Nagios the results of
OK or CRITICAL.  

Been trying to figure it out, but kinda stumped right now.  But Perl is
an 
Amazing beast.  So few lines of code to do something very useful. 

So, any ideas are appreciated. 

                                                                richg 

-----Original Message----- 
From: Stanley Hopcroft [ mailto:Stanley.Hopcroft at IPAustralia.Gov.AU
<mailto:Stanley.Hopcroft at IPAustralia.Gov.AU> ] 
Sent: Friday, February 07, 2003 6:15 PM 
To: Richard Gross 
Cc: nagios-users at lists.sourceforge.net 
Subject: Re: [Nagios-users] website transaction monitor / simple web
form 

Dear Sir, 

There are a number of approaches for dealing with HTTP transactions/web 
forms. 

They include your writing wrraper programs to Perl modules that are 
congnizant of the transaction structure (ie what to send to what URL and

when). 

These modules include 

A CPAN 

1 WWW::Mechanize 

2 WWW::Automate 

B SourceForge 

1 HTTP::MonkeyWrench <HTTP::MonkeyWrench>  

C unpublished 

1 Netsaint::Web_Trx 

Here's an example plugin using the latter, 


use constant Intro              => 
' http://external/atmoss/falcon.application_start'
<http://external/atmoss/falcon.application_start'>  ; 
use constant ConnectToSearch    => 
' http://external/atmoss/Falcon_Users_Cookies.Define_User'
<http://external/atmoss/Falcon_Users_Cookies.Define_User'>  ; 
use constant MultiSessConn      => 
' http://external/atmoss/Falcon_Users_Cookies.Run_Create'
<http://external/atmoss/Falcon_Users_Cookies.Run_Create'>  ; 
use constant Search             => 
' http://external/atmoss/Falcon.Result'
<http://external/atmoss/Falcon.Result'>  ; 
use constant ResultAbstract     => 
' http://external/atmoss/falcon_details.show_tm_details'
<http://external/atmoss/falcon_details.show_tm_details'>  ; 
use constant ResultDetails      => 
' http://external/atmoss/Falcon_Details.Show_TM_Details'
<http://external/atmoss/Falcon_Details.Show_TM_Details'>  ; 
use constant DeleteSearches     => 
' http://external/atmoss/Falcon_Searches.Delete_All_Searches'
<http://external/atmoss/Falcon_Searches.Delete_All_Searches'>  ; 

use constant Int                => 'Welcome to ATMOSS' ; 
use constant ConnSrch           => 'Connect to Trade Mark Search' ; 
use constant MltiSess           => 'Fill in one or more of the fields 
below' ; 
use constant Srch               => 'Your search request 
retrieved\s+\d+\s+match(es)?' ; 
use constant ResAbs             => 'Trade Mark\s+:\s+\d+' ; 
use constant ResDet             => ResAbs ; 
use constant DelSrch            => MltiSess ; 

use constant MSC_f              => [p_Anon => 'REGISTERED', p_user_type 
=> 'Connect to Existing Extract List', p_extID => 'Stanley Hopcroft', 
p_password => 'It', p_JS => 'N'] ; 
use constant Srch_v             => [p_tmno1 => 'tmno'] ; 
use constant RA_v               => [p_tm_number => 'tmno'] ; 
use constant RA_f               => [p_detail => 'QUICK', p_rec_all => 1,

p_rec_no => 1, p_search_no => 1, p_ExtDisp => 'D'] ; 
use constant RD_v               => RA_v ; 
use constant RD_f               => [p_Detail => 'DETAILED', p_rec_no => 
1, p_search_no => 1,  p_ExtDisp => 'D']; 

use constant OraFault           => 'We were unable to process your 
request at this time' ; 

use constant URLS               => [ 
  {Method => 'GET',  Url => Intro,           Qs_var => [],      Qs_fixed

=> [], Exp => Int,     Exp_Fault => OraFault}, 
  {Method => 'GET',  Url => ConnectToSearch, Qs_var => [],      Qs_fixed

=> [], Exp => ConnSrch,Exp_Fault => OraFault}, 
  {Method => 'POST', Url => MultiSessConn,   Qs_var => [],      Qs_fixed

=> MSC_f,Exp => MltiSess,Exp_Fault => OraFault}, 
  {Method => 'POST', Url => Search,          Qs_var => Srch_v,  Qs_fixed

=> [], Exp => Srch,    Exp_Fault => OraFault}, 
  {Method => 'GET',  Url => ResultAbstract,  Qs_var => RA_v,    Qs_fixed

=> RA_f, Exp => ResAbs,Exp_Fault => OraFault}, 
  {Method => 'POST', Url => ResultDetails,   Qs_var => RD_v,    Qs_fixed

=> RD_f, Exp => ResDet,Exp_Fault => OraFault}, 
  {Method => 'POST', Url => DeleteSearches,  Qs_var => [],      Qs_fixed

=> [], Exp => DelSrch, Exp_Fault => OraFault}, 
        ] ; 

my (@tmarks, $tmno, $i) ; 

@tmarks = @ARGV ? @ARGV : (3, 100092, 200099, 300006, 400075, 500067, 
600076, 700066, 800061) ; 
$i = @ARGV == 1 ? 0 : int( rand($#tmarks) + 0.5 ) ; 
$tmno = $tmarks[$i] ; 

my $x = Netsaint::Web_Trx->new( URLS ) ; 

my ($rc, $message) =  $x->check( {tmno => $tmno}, debug => $debug) ; 

print "ATMOSS $message\n" ; 
exit($rc ? $ERRORS{'OK'} : $ERRORS{'CRITICAL'}) ; 


Easy Peasi: call the constructor with a ref to a hash containing all the

URLs and the data to be sent to each URL, then call the check method. 

The hard bit in this case - and it's a pretty big gotcha - is _you_ have

to work out the sequence of URLs sent and the data supplied to each form

(some of which is invisible). 

The CPAN modules may be a better bet but this works well for me. 

On Fri, Feb 07, 2003 at 11:31:33AM -0800, Richard Gross wrote: 
> Wondering what can be done to use Nagios to check 
> a simple webform?  Maybe some modifiction of the wget that 
> checked the hp switches?  The opening page has: 
> 
>             <h4><b>Welcome to CommuniGate Pro,<br> 
>               the <span class="orange">test.net</span> Messaging 
> Server!</b> </h4> 
>             <form method=post enctype="multipart/form-data"> 
>               <table border=0 cellspacing=0 cellpadding=0
width="100%"> 
>                 <tr bgcolor="#003333" class="contrast"> 
>                   <th NOWRAP align=CENTER> Registered Users </th> 
>                 </tr> 
>               </table> 
>               <br> 
>               <table border=0 cellspacing=0 cellpadding=2> 
>                 <tr> 
>                   <th NOWRAP align=LEFT><font class="colfont" 
> color="#cc6600">Login 
>                     Name</font></th> 
>                   <th NOWRAP align=LEFT><font class="colfont" 
> color="cc6600">Password</font></th> 
>                   <td></td> 
>                 </tr> 
>                 <tr valign=TOP> 
>                   <td> 
>                     <input name="Username" type=text size=20 
> maxlength=255> 
>                   </td> 
>                   <td> 
>                     <input name="Password" type=password size=10 
> maxlength=99> 
>                   </td> 
>                   <td> 
>                     <input name="login"    type=submit value="Enter"> 
>                   </td> 
>                 </tr> 
>                 <tr> 
>                   <td colspan=2></td> 
>                   <td></td> 
>                 </tr> 
>               </table> 
>               <p> 
>             </form> 
> 
> and would like to supply a username and password to this form, 
> then check for a text string INBOX  would be all that's required. 
> 
> I did try the command: 
> 
> wget -r --http-user=chris at test.net --http-passwd=chris06 
> http://webmail.test.net <http://webmail.test.net>  but only got back
the index page... 
> 
> Not really sure how to proceed from here. 
> 
>                                                       richg 
> 
> 

Yours sincerely. 

-- 
------------------------------------------------------------------------

Stanley Hopcroft 
------------------------------------------------------------------------


'...No man is an island, entire of itself; every man is a piece of the 
continent, a part of the main. If a clod be washed away by the sea, 
Europe is the less, as well as if a promontory were, as well as if a 
manor of thy friend's or of thine own were. Any man's death diminishes 
me, because I am involved in mankind; and therefore never send to know 
for whom the bell tolls; it tolls for thee...' 

from Meditation 17, J Donne. 

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://www.monitoring-lists.org/archive/users/attachments/20030210/9f4f1b91/attachment.html>