<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=us-ascii"> <TITLE>Message</TITLE> <META content="MSHTML 6.00.2800.1459" name=GENERATOR></HEAD> <BODY> <DIV> Here is a perl script that I modified to fit my needs. It dumps the total availability for services for one work week...during working hours.....your site will probably be different. #!/usr/bin/perl use LWP::UserAgent; use Time::Local; use Data::Dumper; use Date::Manip qw (ParseDate DateCalc UnixDate); @work_week = ("monday","tuesday","wednesday","thursday","friday"); @stime = ("07","30",00); @etime = (18,00,00); $username = @ARGV[0]; $password = @ARGV[1]; print "Days Used:"; foreach $nday (@work_week){ @date = &UnixDate("last $nday","\%m \%d \%Y \%A"),"\n"; foreach $date (@date){ ($mon,$day,$year,$tday) = split ' ', $date; $tday .= "service"; #PUT code HERE and push data in hashes for later processing print "$mon-$day-$year, "; use vars qw($local/perl/agent); my $nagios_url = "<A href="http://nagios-server/nagios/cgi-bin">http://nagios-server/nagios/cgi-bin</A>"; $agent = new LWP::UserAgent(); $agent->agent("Mozilla/6.0"); $agent->timeout(600); #service request happens here........ my $srequest = new HTTP::Request(GET => "$nagios_url/avail.cgi?show_log_entries=&host=all&service=all&timeperiod=custom&smon=$mon&sday=$day&syear=$year&shour=$stime[0]&smin=$stime[1]&ssec=0&emon=$mon&eday=$day&eyear=$year&ehour=$etime[0]&emin=$etime[1]&esec=0&assumeinitialstates=yes&assumestateretention=yes&initialassumedstate=0&backtrack=10&csvoutput= HTTP/1.1"); $srequest->header('Accept' => 'text/html'); $srequest->authorization_basic($username, $password); my $sresponse = $agent->request($srequest); if (!$sresponse->is_success()) { exit; } (@sresponse) = split '\n' , $sresponse->content(); #pass all service requested data into 5 hashes for each work day of work week foreach $line (@sresponse){ if ($line !~ /^HOST_NAME/){ (@info) = split ',' , $line; @info[0] = map {uc} @info[0]; $info[0] =~ s/"//g; $info[1] =~ s/"//g; push @{$$tday{$info[0]}{$info[1]}},($info[10],($info[19]+$info[28]+$info[37])); } } } }print "\n"; foreach $server (keys %Mondayservice){ foreach $service (keys %{$Mondayservice{$server}}){ push @{$stotal{$server}{$service}},(("@{$Mondayservice{$server}{$service}}[0]"+"@{$Tuesdayservice{$server}{$service}}[0]"+"@{$Wednesdayservice{$server}{$service}}[0]"+"@{$Thursdayservice{$server}{$service}}[0]"+"@{$Fridayservice{$server}{$service}}[0]")/"5", ("@{$Mondayservice{$server}{$service}}[1]"+"@{$Tuesdayservice{$server}{$service}}[1]"+"@{$Wednesdayservice{$server}{$service}}[1]"+"@{$Thursdayservice{$server}{$service}}[1]"+"@{$Fridayservice{$server}{$service}}[1]")/"5"); } } foreach $host (sort keys %stotal){ #print "$host,"; foreach $service (sort keys %{$stotal{$host}}){ print "$host,$service,$stotal{$host}{$service}[0],$stotal{$host}{$service}[1]\n"; }print "\n"; }</DIV> <BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px"> <DIV></DIV> <DIV class=OutlookMessageHeader lang=en-us dir=ltr align=left>-----Original Message----- From: nagios-users-admin@lists.sourceforge.net [mailto:nagios-users-admin@lists.sourceforge.net] On Behalf Of Casey Allen Shobe Sent: Monday, October 11, 2004 7:47 AM To: Nagios Subject: [Nagios-users] Nagios statistics access </DIV> <DIV>The company I'm working for is creating a reporting system where they want to show availability of services based on Nagios data. </DIV> <DIV>In the Nagios CGI, I can click "View Availability Report For This Service", and see the percentages I want to use. How can I access these from the command-line where the nagios server is running? </DIV> <DIV>Thanks, </DIV> <DIV>-- </DIV> <DIV>Casey Allen Shobe | http://casey.allen.shobe.info </DIV> <DIV>cshobe@osss.net | ICQ: 1494523 | AIM: SomeLinuxGuy </DIV></BLOCKQUOTE></BODY></HTML>