snmpcollect.pl

介绍在Tivoli网管环境下

#!/usr/bin/perl -w
use strict;
my $dir1;
$dir1="/usr/OV/databases/snmpCollect";
opendir(DH,$dir1);
my @files=readdir DH;
close(DH);
my $oldname;
my $file1;
my $file2;
foreach(@files) {
$oldname=$_;
if (/!/)
{next;}
else {
$file1=`/usr/OV/bin/snmpColDump -o /$dir1/$_`;
$file2=`/usr/OV/bin/snmpColDump -i /$dir1/$_`;
$file1=~s/\n//;
$file2=~s/\n//;
`/usr/OV/perl/cr_sh.sh $dir1/$_ $file1 $file2`;
`/usr/OV/perl/snmpColDump.sh >> /usr/OV/perl/hqdict.unl`;
`rm -f $dir1/$_`;
}
next if (-e "$dir1/$_");
 }
`/usr/OV/perl/rsync -av /usr/OV/perl/hqdict.unl hqnv\@10.1.50.236::netview --password-file=/usr/OV/perl/netview.pas`;
#my $dir;
#$dir=`date +20%y%m%d%H`;
#system "mkdir /usr/OV/databases/backup/$dir";
#system "cp nv07dict.unl /usr/OV/databases/backup/$dir";
system "rm -f /usr/OV/perl/hqdict.unl";