<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=us-ascii"> <TITLE>RE: [Nagios-users] website transaction monitor / simple web form</TITLE> <META content="MSHTML 5.50.4919.2200" name=GENERATOR></HEAD> <BODY> <DIV>Here's the final result for my WWW::Mechanize perl script:</DIV> <DIV> </DIV> <DIV>#!/usr/bin/perl -w</DIV> <DIV> </DIV> <DIV># Check Communigate Pro webmail for Nagios</DIV> <DIV> </DIV> <DIV>use WWW::Mechanize; use diagnostics;</DIV> <DIV> </DIV> <DIV>use lib "/usr/local/nagios/libexec" ; use utils qw($TIMEOUT %ERRORS &print_revision &support);</DIV> <DIV> </DIV> <DIV>my $browser = WWW::Mechanize->new(); $browser->get("<A href="http://webmail.vel.net/">http://webmail.vel.net/</A>");</DIV> <DIV> </DIV> <DIV>$browser->form(1);</DIV> <DIV> </DIV> <DIV>$browser->field("Username", "test\@vel.net"); $browser->field("Password", "test06"); $browser->click("login");</DIV> <DIV> </DIV> <DIV>$browser->follow("here");</DIV> <DIV> </DIV> <DIV>$pattern = "INBOX";</DIV> <DIV> </DIV> <DIV>$_ = $browser->{content};</DIV> <DIV> </DIV> <DIV>if ( /$pattern/ ) { print "INBOX"; exit $ERRORS{'OK'}; } else { print ("ERROR: No response from webmail.vel.net\n"); exit $ERRORS{'CRITICAL'}; }</DIV> <DIV> </DIV> <DIV>Hope this helps someone. Thanks to Stanley for his input.</DIV> <DIV> </DIV> <DIV> richg</DIV> <BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px"> <DIV class=OutlookMessageHeader dir=ltr align=left>-----Original Message----- From: Richard Gross Sent: Saturday, February 08, 2003 10:10 PM To: Stanley Hopcroft Cc: nagios-users@lists.sourceforge.net Subject: RE: [Nagios-users] website transaction monitor / simple web form </DIV> 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("<A href="http://webmail.vel.net/">http://webmail.vel.net/</A>"); $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 [<A href="mailto:Stanley.Hopcroft@IPAustralia.Gov.AU">mailto:Stanley.Hopcroft@IPAustralia.Gov.AU</A>] Sent: Friday, February 07, 2003 6:15 PM To: Richard Gross Cc: nagios-users@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 <A href="HTTP::MonkeyWrench">HTTP::MonkeyWrench</A> C unpublished 1 Netsaint::Web_Trx Here's an example plugin using the latter, use constant Intro => '<A href="http://external/atmoss/falcon.application_start'">http://external/atmoss/falcon.application_start'</A> ; use constant ConnectToSearch => '<A href="http://external/atmoss/Falcon_Users_Cookies.Define_User'">http://external/atmoss/Falcon_Users_Cookies.Define_User'</A> ; use constant MultiSessConn => '<A href="http://external/atmoss/Falcon_Users_Cookies.Run_Create'">http://external/atmoss/Falcon_Users_Cookies.Run_Create'</A> ; use constant Search => '<A href="http://external/atmoss/Falcon.Result'">http://external/atmoss/Falcon.Result'</A> ; use constant ResultAbstract => '<A href="http://external/atmoss/falcon_details.show_tm_details'">http://external/atmoss/falcon_details.show_tm_details'</A> ; use constant ResultDetails => '<A href="http://external/atmoss/Falcon_Details.Show_TM_Details'">http://external/atmoss/Falcon_Details.Show_TM_Details'</A> ; use constant DeleteSearches => '<A href="http://external/atmoss/Falcon_Searches.Delete_All_Searches'">http://external/atmoss/Falcon_Searches.Delete_All_Searches'</A> ; 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>Welcome to CommuniGate Pro, > the test.net Messaging > Server! </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> > > <table border=0 cellspacing=0 cellpadding=2> > <tr> > <th NOWRAP align=LEFT> > color="#cc6600">Login > Name</th> > <th NOWRAP align=LEFT> > color="cc6600">Password</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> > > </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@test.net --http-passwd=chris06 > <A href="http://webmail.test.net">http://webmail.test.net</A> 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. </BLOCKQUOTE></BODY></HTML>