ovsho
上传用户:shbosideng
上传日期:2013-05-04
资源大小:1555k
文件大小:1k
源码类别:

SNMP编程

开发平台:

C/C++

  1. #!/usr/local/bin/perl5
  2. # -*- mode: Perl -*-
  3. ##################################################################
  4. # This file controls the creation of all the MRTG config files from OV
  5. ##################################################################
  6. # Created by Laurie Gellatly <gellatly@one.net.au>
  7. # See newrtrov.txt for a description of what is performed
  8. #################################################################
  9. #
  10. # Distributed under the GNU copyleft
  11. #
  12. # $Id: ovsho,v 1.1.1.1 2002/02/26 10:16:36 oetiker Exp $
  13. #
  14. use Socket;
  15. use strict;
  16. use vars '$DEBUG';
  17. my $DEBUG = 0;
  18. my $rundir = "/opt/mrtg/run";
  19. my $dnsfile = "ovmrtgc.csv";
  20. my($line,@sysnms); 
  21. sub main {
  22.    chdir $rundir;
  23.    open (DNSFILE,"<".$dnsfile);
  24.    while(<DNSFILE>){
  25.       chomp;
  26.       $line = $_;
  27.       $sysnms[@sysnms]= (split /,/,$line)[2];
  28.    }
  29.    close (DNSFILE);
  30.    `ovtgts $ENV{OVwSessionID} @sysnms`;
  31. }  
  32. main;
  33. exit(0);