Re: [WhatsUp Forum] Perl script to query WUG for Down devices only

Dave Habben Wed, 08 Oct 2003 15:02:56 -0700

Here is something I came up with to centralize the view's of our multiple WhatsUp boxes. Perhaps you or others could take some ideas from it. I was using PHP on the Linux side instead of Perl, but the ideas are basically the same.

Dave Habben
(815) 564-9419
Network Specialist
Illinois Century Network

Paul Jasa wrote:

I downloaded a script from the User Community forum (
http://www.wugportal.com/modules.php?op=modload&name=UpDownload&file=index&req=viewdownload&cid=4
) which shows all devices down, but still no way to export that.
Another problem with this very nice ASP page is that it requires a
user to login to WUG WebSite to get the info, something that Perl
might have a problem doing.  If anyone has a known solution for this,
or a direction in which to point me, I would very much appreciate
it!!!    Best regards, Paul

<script language="JavaScript">
<!--


//////////////////////////////////////////
// Begin site specific customizations //
//////////////////////////////////////////

var Region = "Site 1";
var URL = "http://127.0.0.1";;

//////////////////////////////////////////
// End region specific customizations ////
//////////////////////////////////////////


var Up = 0;
var Down = 0;
var Services = 0;

<%START_LOADED_MAP_LIST%>
 Up = Up + <%MAP% TOTAL_DEVICES_UP>;
 Down = Down + <%MAP% TOTAL_DEVICES_DOWN>;
 Services = Services + <%MAP% TOTAL_SERVICES_DOWN>;
<%END_LOADED_MAP_LIST%>

document.write("<TR>");
document.write("<TD><A HREF=" + URL + ">" + Region + "</A></TD>");

if (Up == 0) {
  document.write("<TD align=right>" + Up + "</TD>"); }
 else {
  document.write("<TD bgcolor=#77ff77 align=right>" + Up + "</TD>"); }

if (Down == 0) {
 document.write("<TD align=right>" + Down + "</TD>"); }
else {
 document.write("<TD bgcolor=#ff7777 align=right>" + Down + "</TD>"); }

if (Services == 0) {
 document.write("<TD align=right>" + Services + "</TD>"); }
else {
 document.write("<TD bgcolor=#ff77ff align=right>" + Services + "</TD>"); }

document.write("</TR>");

// -->
</script>

<HTML>
 <HEAD>
  <title>My Company Whatsup Overview</title>
  <meta http-equiv="REFRESH" content="30">
  <meta http-equiv="Content-Type" content="text/html; charset=utf-8" >
 <BODY>
  <table cellSpacing=0 cellPadding=3 width="98%" bgColor="#c0c0c0" border=2>
   <tr>
    <td align=left bgColor="#0080c0" colSpan=2>
     <table width="100%" border=0>
      <tr>
       <td>Company WhatsUp Overview</td>
      </tr>
     </table>
    </td>
   </tr>
   <tr>
    <td vAlign=top width="98%">
     <table cellspacing="2" cellpadding="0" width="100%" bgcolor="#c0c0c0" border="0">
      <tbody>
       <tr>
        <td width="40%"></td>
        <td width="20%"></td>
        <td width="20%"></td>
        <td width="20%"></td>
       </tr>
       <tr>
        <th align="left">Site</th>
        <th align="right">Items<br>Up</th>
        <th align="right">Items<br>Down</th>
        <th align="right">Services<br>Down</th>
       </tr>

       <?php 
        error_reporting(0);
        include("http://username:[EMAIL PROTECTED]/Overview.asp");
        include("http://username:[EMAIL PROTECTED]/Overview.asp");
        include("http://username:[EMAIL PROTECTED]/Overview.asp");
        include("http://username:[EMAIL PROTECTED]/Overview.asp");
        include("http://username:[EMAIL PROTECTED]/Overview.asp");
        include("http://username:[EMAIL PROTECTED]/Overview.asp");
       ?>
       
      </tbody>
     </table>
    </TD>
   </TR>
  </TABLE>
 </BODY>
</HTML>

Re: [WhatsUp Forum] Perl script to query WUG for Down devices only

Reply via email to