|
Packit |
667938 |
#!/usr/local/bin/perl5
|
|
Packit |
667938 |
# -*- mode: Perl -*-
|
|
Packit |
667938 |
##################################################################
|
|
Packit |
667938 |
# This file controls the deletion of the MRTG monitoring from OV
|
|
Packit |
667938 |
##################################################################
|
|
Packit |
667938 |
# Created by Laurie Gellatly <gellatly@one.net.au>
|
|
Packit |
667938 |
#################################################################
|
|
Packit |
667938 |
#
|
|
Packit |
667938 |
# Distributed under the GNU copyleft
|
|
Packit |
667938 |
#
|
|
Packit |
667938 |
# $Id: ovdel,v 1.1.1.1 2002/02/26 10:16:36 oetiker Exp $
|
|
Packit |
667938 |
#
|
|
Packit |
667938 |
use Socket;
|
|
Packit |
667938 |
use strict;
|
|
Packit |
667938 |
use vars '$DEBUG';
|
|
Packit |
667938 |
my $DEBUG = 0;
|
|
Packit |
667938 |
my $company = "Company";
|
|
Packit |
667938 |
my $rundir = "/opt/mrtg/run";
|
|
Packit |
667938 |
my $webdir = "/var/opt/ns-fasttrack/docs/mrtg/";
|
|
Packit |
667938 |
my $cronfile = "mrtgc";
|
|
Packit |
667938 |
my $roothtml = "routers.html";
|
|
Packit |
667938 |
my $ov_conf = "/etc/opt/OV/share/conf";
|
|
Packit |
667938 |
my $ovconf = $ov_conf."/snmpCol.conf";
|
|
Packit |
667938 |
my $buildhtf = "buildht";
|
|
Packit |
667938 |
my $dnsfile = "ovmrtgc.csv";
|
|
Packit |
667938 |
|
|
Packit |
667938 |
# Change the next line to " &" if all jobs are to be submitted at once
|
|
Packit |
667938 |
my $backgrnd = " ";
|
|
Packit |
667938 |
|
|
Packit |
667938 |
my($router,$sysn,$sysncfg,$sysnhtml,$head,$cnt,$at);
|
|
Packit |
667938 |
my(@sysipnms,@mrtgc,@mrtgd,@sysnms,@ovconfd,@ovmrtgc,@buildhtt);
|
|
Packit |
667938 |
|
|
Packit |
667938 |
sub main {
|
|
Packit |
667938 |
|
|
Packit |
667938 |
$router = $ARGV[0];
|
|
Packit |
667938 |
die <
|
|
Packit |
667938 |
|
|
Packit |
667938 |
USAGE: ovdel 'router IP ADDRESS/S'
|
|
Packit |
667938 |
|
|
Packit |
667938 |
EXAMPLE: ovdel 193.21.1.2 10.21.1.2 10.21.1.1
|
|
Packit |
667938 |
|
|
Packit |
667938 |
|
|
Packit |
667938 |
USAGE
|
|
Packit |
667938 |
chdir $rundir;
|
|
Packit |
667938 |
@sysipnms=`perl ovsysnms @ARGV`;
|
|
Packit |
667938 |
chomp(@sysipnms);
|
|
Packit |
667938 |
# Figure out what needs not be monitored and change the conf file
|
|
Packit |
667938 |
`perl $rundir\/ovcols - @ARGV > collects`;
|
|
Packit |
667938 |
`xnmcollect -merge collects`;
|
|
Packit |
667938 |
# eventaully HP may decide to remove lines using xnmcollect and then we would
|
|
Packit |
667938 |
# not need the following loop:
|
|
Packit |
667938 |
open (SNMPCOL,"<".$ovconf);
|
|
Packit |
667938 |
# This next piece of code removes any lines in snmpCol.conf that start with XC
|
|
Packit |
667938 |
while(<SNMPCOL>){
|
|
Packit |
667938 |
if (/^XC /){
|
|
Packit |
667938 |
next;
|
|
Packit |
667938 |
} else {
|
|
Packit |
667938 |
$ovconfd[@ovconfd] = $_;
|
|
Packit |
667938 |
}
|
|
Packit |
667938 |
}
|
|
Packit |
667938 |
close (SNMPCOL);
|
|
Packit |
667938 |
open (SNMPCOL,">".$ovconf);
|
|
Packit |
667938 |
for ($cnt = 0; $cnt < @ovconfd ; $cnt++){
|
|
Packit |
667938 |
print SNMPCOL "$ovconfd[$cnt]";
|
|
Packit |
667938 |
}
|
|
Packit |
667938 |
close (SNMPCOL);
|
|
Packit |
667938 |
`xnmcollect -event`;
|
|
Packit |
667938 |
|
|
Packit |
667938 |
# Remove the .cfg and .ok files as no longer needed
|
|
Packit |
667938 |
for ($cnt = 0; $cnt < @sysipnms ; $cnt++){
|
|
Packit |
667938 |
($router,$mrtgd[@mrtgd]) = split /\,/, lc($sysipnms[$cnt]);
|
|
Packit |
667938 |
unlink($mrtgd[$cnt].".cfg",$mrtgd[$cnt].".ok");
|
|
Packit |
667938 |
}
|
|
Packit |
667938 |
@mrtgd = sort(@mrtgd);
|
|
Packit |
667938 |
|
|
Packit |
667938 |
# Assumes that the mrtgc.csv file is in alpha order
|
|
Packit |
667938 |
open (DNSFILE,"<".$dnsfile);
|
|
Packit |
667938 |
$at = 0;
|
|
Packit |
667938 |
while(<DNSFILE>){
|
|
Packit |
667938 |
chomp;
|
|
Packit |
667938 |
$head = $_;
|
|
Packit |
667938 |
$sysn = lc((split /\,/,$head)[1]);
|
|
Packit |
667938 |
if ($sysn gt $mrtgd[$at]) {
|
|
Packit |
667938 |
while($at < @mrtgd) {
|
|
Packit |
667938 |
if($sysn le $mrtgd[++$at]){last; }
|
|
Packit |
667938 |
}
|
|
Packit |
667938 |
}
|
|
Packit |
667938 |
if (($sysn lt $mrtgd[$at]) || ($at >= @mrtgd)) {
|
|
Packit |
667938 |
#keep these lines
|
|
Packit |
667938 |
$mrtgc[@mrtgc] = $sysn;
|
|
Packit |
667938 |
$ovmrtgc[@ovmrtgc] = $head;
|
|
Packit |
667938 |
}
|
|
Packit |
667938 |
# }
|
|
Packit |
667938 |
}
|
|
Packit |
667938 |
close (DNSFILE);
|
|
Packit |
667938 |
#Now rebuild the mrtgc.csv file
|
|
Packit |
667938 |
open (DNSFILE,">".$dnsfile);
|
|
Packit |
667938 |
for ($cnt = 0 ; $cnt < @ovmrtgc ; ++$cnt){
|
|
Packit |
667938 |
print DNSFILE "$ovmrtgc[$cnt]\n";
|
|
Packit |
667938 |
}
|
|
Packit |
667938 |
close (DNSFILE);
|
|
Packit |
667938 |
|
|
Packit |
667938 |
#Build the index by keeping the original lines.
|
|
Packit |
667938 |
open (BUILDHT,"<".$buildhtf);
|
|
Packit |
667938 |
$head = 0;
|
|
Packit |
667938 |
$at = 0;
|
|
Packit |
667938 |
# This next piece of code assumes that the $buildhtf file is in alpha order
|
|
Packit |
667938 |
while(<BUILDHT>){
|
|
Packit |
667938 |
chomp;
|
|
Packit |
667938 |
if (/index (.*)\.cfg/){
|
|
Packit |
667938 |
$sysn = $1;
|
|
Packit |
667938 |
$head = $_;
|
|
Packit |
667938 |
if ($sysn gt $mrtgd[$at]) {
|
|
Packit |
667938 |
while($at < @mrtgd) {
|
|
Packit |
667938 |
if($sysn le $mrtgd[++$at]){last; }
|
|
Packit |
667938 |
}
|
|
Packit |
667938 |
}
|
|
Packit |
667938 |
if (($sysn lt $mrtgd[$at]) || ($at >= @mrtgd)) {
|
|
Packit |
667938 |
$buildhtt[@buildhtt] = $head;
|
|
Packit |
667938 |
}
|
|
Packit |
667938 |
}
|
|
Packit |
667938 |
}
|
|
Packit |
667938 |
close (BUILDHT);
|
|
Packit |
667938 |
open (BUILDHT,">".$buildhtf);
|
|
Packit |
667938 |
print BUILDHT <
|
|
Packit |
667938 |
#This file builds the HTML for each device being monitored
|
|
Packit |
667938 |
cd $rundir
|
|
Packit |
667938 |
ECHO
|
|
Packit |
667938 |
for ($cnt = 0; $cnt < @buildhtt ; $cnt++){
|
|
Packit |
667938 |
print BUILDHT "$buildhtt[$cnt]\n";
|
|
Packit |
667938 |
}
|
|
Packit |
667938 |
close (BUILDHT);
|
|
Packit |
667938 |
|
|
Packit |
667938 |
@mrtgc = sort(@mrtgc);
|
|
Packit |
667938 |
open (HTMLF,">".$webdir.$roothtml);
|
|
Packit |
667938 |
print HTMLF <
|
|
Packit |
667938 |
<HTML>
|
|
Packit |
667938 |
</HEAD>
|
|
Packit |
667938 |
<BODY BGCOLOR="#ffffff">
|
|
Packit |
667938 |
<CENTER>$company Router MRTG Traffic Analysis </CENTER>
|
|
Packit |
667938 |
|
|
Packit |
667938 |
<SPACER TYPE=VERTICAL SIZE=4>
|
|
Packit |
667938 |
<CENTER>
|
|
Packit |
667938 |
|
|
Packit |
667938 |
<FONT FACE="Arial,Helvetica" SIZE=2>
|
|
Packit |
667938 |
ECHO
|
|
Packit |
667938 |
for ($cnt = 0; $cnt < @mrtgc ; $cnt++){
|
|
Packit |
667938 |
$sysn = $mrtgc[$cnt];
|
|
Packit |
667938 |
$sysnhtml = $sysn.".html";
|
|
Packit |
667938 |
print HTMLF "$sysn<\/A>
\n";
|
|
Packit |
667938 |
}
|
|
Packit |
667938 |
print HTMLF <
|
|
Packit |
667938 |
</FONT>
|
|
Packit |
667938 |
|
|
Packit |
667938 |
|
|
Packit |
667938 |
</BODY>
|
|
Packit |
667938 |
</HTML>
|
|
Packit |
667938 |
ECHO
|
|
Packit |
667938 |
close(HTMLF);
|
|
Packit |
667938 |
open (MRTGC,">".$cronfile);
|
|
Packit |
667938 |
print MRTGC <
|
|
Packit |
667938 |
#This file runs the MRTG for each config /opt/mrtg/run/file
|
|
Packit |
667938 |
cd /opt/mrtg/run
|
|
Packit |
667938 |
ECHO
|
|
Packit |
667938 |
for ($cnt = 0; $cnt < @mrtgc ; $cnt++){
|
|
Packit |
667938 |
print MRTGC "perl $rundir\/mrtg $mrtgc[$cnt].cfg $backgrnd\n";
|
|
Packit |
667938 |
}
|
|
Packit |
667938 |
print MRTGC <
|
|
Packit |
667938 |
# Additonal commands could go here! Under NT the next line will not return
|
|
Packit |
667938 |
$buildhtf
|
|
Packit |
667938 |
# End of rebuild ht file
|
|
Packit |
667938 |
ECHO
|
|
Packit |
667938 |
close (MRTGC);
|
|
Packit |
667938 |
# send to management station
|
|
Packit |
667938 |
# (local host unless run from a management console)
|
|
Packit |
667938 |
`ovevent "" .1.3.6.1.4.1.11.2.17.1.0.58916873 .1.3.6.1.4.1.11.2.17.2.1.0 Integer 14 .1.3.6.1.4.1.11.2.17.2.2.0 OctetString "$ENV{OVwSessionID}" .1.3.6.1.4.1.11.2.17.2.4.0 OctetString "OVMRTG Delete for @ARGV COMPLETED"`
|
|
Packit |
667938 |
}
|
|
Packit |
667938 |
main;
|
|
Packit |
667938 |
exit(0);
|
|
Packit |
667938 |
|