ovsho
上传用户:shbosideng
上传日期:2013-05-04
资源大小:1555k
文件大小:1k
- #!/usr/local/bin/perl5
- # -*- mode: Perl -*-
- ##################################################################
- # This file controls the creation of all the MRTG config files from OV
- ##################################################################
- # Created by Laurie Gellatly <gellatly@one.net.au>
- # See newrtrov.txt for a description of what is performed
- #################################################################
- #
- # Distributed under the GNU copyleft
- #
- # $Id: ovsho,v 1.1.1.1 2002/02/26 10:16:36 oetiker Exp $
- #
- use Socket;
- use strict;
- use vars '$DEBUG';
- my $DEBUG = 0;
- my $rundir = "/opt/mrtg/run";
- my $dnsfile = "ovmrtgc.csv";
- my($line,@sysnms);
- sub main {
- chdir $rundir;
- open (DNSFILE,"<".$dnsfile);
- while(<DNSFILE>){
- chomp;
- $line = $_;
- $sysnms[@sysnms]= (split /,/,$line)[2];
- }
- close (DNSFILE);
- `ovtgts $ENV{OVwSessionID} @sysnms`;
- }
- main;
- exit(0);